Запросить у пользователя числа, преобразовать их в строки - VB
Формулировка задачи:
очень нужно решение задачи...
запрсите у пользователя числа, преобразуйте их в строки (например: 1 = один), произведите их сципление в разных сочетаниях(например: один два три, след строка: три два один) и вывод на экран. не забудьте поставить между строкками пробел и начать с загалвной буквы.
Решение задачи: «Запросить у пользователя числа, преобразовать их в строки»
textual
Листинг программы
Dim sVyhod As String Private Sub Command1_Click() Dim A() As String, stroka As Variant, i As Integer, j As Integer sVyhod = "": Varianty (CStr(InputBox("Введите цифры:", , "123"))) ReDim A(0 To Len(sVyhod)) stroka = Split(sVyhod) For i = 0 To UBound(stroka) For j = 1 To Len(stroka(i)) A(i) = Mid(stroka(i), j, 1) If j = 1 Then Print StrConv(S(CInt(A(i))), 3); Else Print S(CInt(A(i))); Next j Print ' vbCrLf 'Если нужно увеличить межстрочное Next i End Sub Function S(chislo As Integer) As String Select Case chislo Case 0: S = "ноль " Case 1: S = "один " Case 2: S = "двa " Case 3: S = "три " Case 4: S = "четырe " Case 5: S = "пять " Case 6: S = "шесть " Case 7: S = "семь " Case 8: S = "восемь " Case 9: S = "девять " Case Else: S = " - " End Select End Function Public Sub Varianty(S As String, Optional sTemp As String = "") Dim i As Integer If Len(S) = 1 Then sVyhod = sVyhod & sTemp & S & " " Else For i = 1 To Len(S) Varianty Left$(S, i - 1) & Mid$(S, i + 1), sTemp & Mid$(S, i, 1) Next End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д