Помогите пожалуйста в VBAВводить целые числа до тех пор,пока сумма четных чисел не превысит значения 25 по модулю . Вывести на экран все введенные числа.
Помогите пожалуйста в VBA
Вводить целые числа до тех пор,пока сумма четных чисел не превысит значения 25 по модулю . Вывести на экран все введенные числа.
Гость
Ответ(ы) на вопрос:
ГостьSub Z()
Dim s As String
Dim x As Integer
Dim n As Integer
Do While n <= 25
x = InputBox("Введите число ")
If x Mod 2 = 0 Then n = n + x
s = s & x & " "
Loop
MsgBox ("Введеные числа: " & s)
End Sub
Не нашли ответ?
Похожие вопросы