Преобразовать число в текстовое представление - VB

Узнай цену своей работы

Формулировка задачи:

Не могу понять , что и куда нужно добавить , при запуске данного макроса он показывает только целые числа и формате (20 , 9 и т.д.) Но должен выдавать и остальные . Пример : 45 , 25 и т.д. Вот само задание : При разработке функции учтите следующее : а)в любом месте функции можно организовать выход из процедуры по команде Exit Function. б) числа в диапазоне от 11 до 19 имеют нестандартное текстовое представление. в) для обработки числе > 19 , следует выделить старший разряд ( с помощью оператора деления нацело на 10 ) и младший разряд ( с помощью вычисления остатка от деления на 10). Для каждого разряда отдельно сформировать текстовое представление ( с помощью команд Select Case) а затем соединить их в одно строковое выражение ( с помощью оператора конкатенации)
Листинг программы 
  1. Function Число2(N)
  2. 'функция для записи прописью целого числа N от 0 до 99
  3. 'Исключим число , не попадающее в заданный диапазон
  4. If N < 0 Or N > 99 Then Число2 = "Неверное число": Exit Function
  5. 'Исключим число , не являющееся целым. Для этого используем
  6. 'функцию Int, вычислящую целую часть числа
  7. If N - Int(N) <> 0 Then Число2 = "Неверное число": Exit Function
  8. Select Case N
  9. Case 0: Число2 = "ноль"
  10. Case 1: Число2 = "один"
  11. Case 2: Число2 = "два"
  12. Case 3: Число2 = "три"
  13. Case 4: Число2 = "четыре"
  14. Case 5: Число2 = "пять"
  15. Case 6: Число2 = "шесть"
  16. Case 7: Число2 = "семь"
  17. Case 8: Число2 = "восемь"
  18. Case 9: Число2 = "девять"
  19. Case 10: Число2 = "десять"
  20. Case 11: Число2 = "одиннадцать"
  21. Case 12: Число2 = "двенадцать"
  22. Case 13: Число2 = "тринадцать"
  23. Case 14: Число2 = "четырнадцать"
  24. Case 15: Число2 = "пятнадцать"
  25. Case 16: Число2 = "шеснадцать"
  26. Case 17: Число2 = "семнадцать"
  27. Case 18: Число2 = "восемнадцать"
  28. Case 19: Число2 = "девятнадцать"
  29. Case 20: Число2 = "двадцать"
  30. Case 30: Число2 = "тридцать"
  31. Case 40: Число2 = " сорок"
  32. Case 50: Число2 = "пятдесят"
  33. Case 60: Число2 = "шестьесят"
  34. Case 70: Число2 = "семьдесят"
  35. Case 80: Число2 = "восемьдесят"
  36. Case 90: Число2 = "девянносто"
  37. End Select
  38. End Function

Решение задачи: «Преобразовать число в текстовое представление»

textual
Листинг программы 
  1. Option Explicit
  2.  
  3. Private Sub Command1_Click()
  4.         Dim N As Single
  5.         N = InputBox("N =", , 25)
  6.         MsgBox Число2(N)
  7. End Sub
  8.  
  9. Function Число2(ByVal N As Single) As String
  10.         'функция для записи прописью целого числа N от 0 до 99
  11. Dim Nd As Integer, Ne As Integer
  12.         'Исключим число , не попадающее в заданный диапазон
  13. If N < 0 Or N > 99 Then Число2 = "Неверное число": Exit Function
  14.         'Исключим число , не являющееся целым. Для этого используем
  15.         'функцию Int, вычислящую целую часть числа
  16. If N - Int(N) <> 0 Then Число2 = "Неверное число": Exit Function
  17.  
  18. If N > 20 And N Mod 10 <> 0 Then
  19.         Ne = N Mod 10: Nd = N - Ne
  20.         Число2 = Число2(Nd) & " " & Число2(Ne)
  21. End If
  22.   
  23. Select Case N
  24.        Case 0: Число2 = "ноль"
  25.        Case 1: Число2 = "один"
  26.        Case 2: Число2 = "два"
  27.        Case 3: Число2 = "три"
  28.        Case 4: Число2 = "четыре"
  29.        Case 5: Число2 = "пять"
  30.        Case 6: Число2 = "шесть"
  31.        Case 7: Число2 = "семь"
  32.        Case 8: Число2 = "восемь"
  33.        Case 9: Число2 = "девять"
  34.        Case 10: Число2 = "десять"
  35.        Case 11: Число2 = "одиннадцать"
  36.        Case 12: Число2 = "двенадцать"
  37.        Case 13: Число2 = "тринадцать"
  38.        Case 14: Число2 = "четырнадцать"
  39.        Case 15: Число2 = "пятнадцать"
  40.        Case 16: Число2 = "шеснадцать"
  41.        Case 17: Число2 = "семнадцать"
  42.        Case 18: Число2 = "восемнадцать"
  43.        Case 19: Число2 = "девятнадцать"
  44.        Case 20: Число2 = "двадцать"
  45.        Case 30: Число2 = "тридцать"
  46.        Case 40: Число2 = " сорок"
  47.        Case 50: Число2 = "пятдесят"
  48.        Case 60: Число2 = "шестьесят"
  49.        Case 70: Число2 = "семьдесят"
  50.        Case 80: Число2 = "восемьдесят"
  51.        Case 90: Число2 = "девянносто"
  52. End Select
  53.  
  54. End Function

ИИ поможет Вам:

  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4.5 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы