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