Определить сумму цифр числа и напечатать число, составленное из цифр заданного в обратном порядке - VB
Формулировка задачи:
Помогите,пожалуйста!Вообще не врубаюсь в решение задания.Какой код написать?
Вот задание: в числовую переменную ввести натуральное число больше 1000, но меньше 32000. Определить сумму цифр этого числа и напечатать число, составленное из цифр заданного в обратном порядке.
Помогииите...
Решение задачи: «Определить сумму цифр числа и напечатать число, составленное из цифр заданного в обратном порядке»
textual
Листинг программы
- Private Sub Command1_Click()
- Dim X, txt As String, sum As Single
- X = Int(Val(InputBox("X:")))
- If X < 1000 And X > 32000 Then MsgBox ("Error!"): Exit Sub
- X = CStr(X)
- For i = 1 To Len(X)
- sum = sum + Mid(X, i, 1)
- txt = txt & Mid(X, Len(X) - i + 1, 1)
- Next i
- MsgBox "Sum = " & sum & Chr(13) & "Numb = " & txt
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
