Помогите пожалуйста в VBAВводить целые числа до тех пор,пока сумма четных чисел не...

Question

Помогите пожалуйста в VBA
Вводить целые числа до тех пор,пока сумма четных чисел не превысит значения 25 по модулю . Вывести на экран все введенные числа.

Answer 1

Sub Z()
Dim s As String
Dim x As Integer
Dim n As Integer
Do While n <= 25<br>    x = InputBox("Введите число ")
    If x Mod 2 = 0 Then n = n + x
    s = s & x & " "
Loop
MsgBox ("Введеные числа: " & s)
End Sub

Comments

Спасибо большое,осталось одно задание а написать вопрос не могу мало баллов,не поможете если я здесь напишу

---

Баллы несложно заработать - ответь на вопрос ученика начальной школы))

---

Пиши здесь

---

Ясно буду зарабатывать,сейчас напишу

---

Записать в массив 7 символов.Преобразовать массив так,чтобы в нем сначала следовали цифры,а за ними-буквы. Преобразованный массив вывести на экран.

---

Sub Z()
Dim a(7) As String
Dim i As Integer
Dim j As Integer
Dim s As String
For i = 1 To 7
a(i) = InputBox("Введите символ")
Next i

---

For i = 1 To 7
For j = 1 To 7
If Val(a(i)) <> 0 Or a(i) = "0" Then
If Asc(a(j)) > Asc(a(i)) Then
p = a(i)
a(i) = a(j)
a(j) = p
End If
End If
Next j
Next i
For i = 1 To 7
s = s & a(i) & " "
Next i
MsgBox ("Преобразованный массив: " & s)
End Sub

---

Всемного благодарна,что бы я без вас делала