Дано словесное описание целого числа, вывести значение этого числа в цифровом виде - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д