Microsoft Excel/Visual Basic for Applications в Excel/Переменные и константы. Арифметические и логические выражения: различия между версиями
Содержимое удалено Содержимое добавлено
→Задачи: дополнение |
дополнение |
||
Строка 163:
=== Задача 2 ===
С клавиатуры вводится целое четырёхзначное число. Найти сумму его цифр и вывести ответ в виде: <code>Сумма цифр <число> равняется <результат></code>
=== Задача 3 ===
Строка 187:
}}
==== Задача 2 ====
{{Hider|
title = Решение |
hidden = 1 |
title-style = text-align: left; |
content-style = text-align: left; |
content =
<source lang=vb>
Sub My2()
Dim X As Integer
Dim T As Byte 'для экономии памяти вместо Integer
Dim H As Byte
Dim D As Byte
Dim O As Byte
Dim Summa As Byte
X = InputBox("Введите целое четырёхзначное число:")
T = X \ 1000
H = (X - 1000 * T) \ 100
D = (X - 1000 * T - 100 * H) \ 10
O = X Mod 10
Summa = T + H + D + O
MsgBox ("Сумма цифр числа " & X & " равна " & Summa)
End Sub
</source>
}}
{{BookCat}}
| |||