Дано словесное описание целого числа, вывести значение этого числа в цифровом виде - VB

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

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

На VB 6.0: Дано словесное описание целого числа, вывести значение этого числа в цифровом виде.

Решение задачи: «Дано словесное описание целого числа, вывести значение этого числа в цифровом виде»

textual
Листинг программы
Dim s, str() As String
Dim i As Integer
Dim a, t As Integer
 
Private Sub Command1_Click()
Text2.Text = ''
t = 0
s = Trim(Text1.Text) + ' '
 
str() = Split(s, , -1)
For i = (UBound(str) - 1) To 0 Step -1
 
    If str(i) = 'один' Then t = 1
    If str(i) = 'два' Then t = 2
    If str(i) = 'три' Then t = 3
    If str(i) = 'четыре' Then t = 4
    If str(i) = 'пять' Then t = 5
    If str(i) = 'шесть' Then t = 6
    If str(i) = 'семь' Then t = 7
    If str(i) = 'восемь' Then t = 8
    If str(i) = 'девять' Then t = 9
    If str(i) = 'десять' Then t = 10
    If str(i) = 'одиннадцать' Then t = 11
    If str(i) = 'двенадцать' Then t = 12
    If str(i) = 'тринадцать' Then t = 13
    If str(i) = 'четырнадцать' Then t = 14
    If str(i) = 'пятнадцать' Then t = 15
    If str(i) = 'шестнадцать' Then t = 16
    If str(i) = 'семнадцать' Then t = 17
    If str(i) = 'девятнадцать' Then t = 19
    If str(i) = 'двадцать' Then t = 20
    If str(i) = 'тридцать' Then t = 30
    If str(i) = 'сорок' Then t = 40
    If str(i) = 'пятьдесят' Then t = 50
    If str(i) = 'шестьдесят' Then t = 60
    If str(i) = 'семьдесят' Then t = 70
    If str(i) = 'восемьдесят' Then t = 80
    If str(i) = 'девяносто' Then t = 90
    If str(i) = 'сто' Then t = 100
    If str(i) = 'двести' Then t = 200
  a = a + t
Next i
   
Text2.Text = a
End Sub

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


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

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

12   голосов , оценка 3.583 из 5
Похожие ответы