Question

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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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