Здравствуйте! У меня такая задача - создать процедуру, которая должна запрашивать у пользователя два числа, знак арифметической операции (+, -, /, *) и выдавать на экран результат выполнения её над введёнными числами.  
Написала код, но почему-то выводится результат равный нолю. Подскажите, в чём ошибка?  
Sub Z()  
Dim Z, a, b As Integer, c As Variant  
a = InputBox("Введите число")  
b = InputBox("Введите число")  
с = InputBox("Введите знак")  
Select Case c  
Case "+"  
Z = a + b  
Case "-"  
Z = a - b  
Case "/"  
Z = a / b  
Case "*"  
Z = a * b  
End Select  
MsgBox (Z)  
End Sub

Спасибо за помощь )  
Обязательно нужно было с Do/While решить, поэтому пыталась переделать Ваш первый вариант, несмотря на то, что он короче :)

Сделала так:  
Sub mm()  
Dim s As Variant  
Do  
s = InputBox("Ввод")  
Loop While s = IsNumeric(s)  
MsgBox (s)  
If s Mod 5 = 0 Then Debug.Print s  
End Sub  
 
Первая часть работает, с выводом чисел кратных 5 проблема. Ошибка "несоответствие типа". Как исправить?

А как записать, что вводится любое число, не перебирая все числа? И с символом то же самое...

Здравствуйте!    
Помогите пожалуйста с задачей:  
Написать программу, которая бы запрашивала у пользователя числа до тех пор, пока пользователь не введёт любой символ. Из всех введённых чисел нужно выбрать все кратные 5 и выдать в immediate window. Использовать циклы Do\While\Loop и Do\Until\Loop.

Вывод действительно лучше, но строка Debug.Print Join(Application.Index(mas, i, 0), vbTab) непонятна )    
ну, в принципе и первое решение сойдёт )

{quote}{login=KukLP}{date=18.10.2011 05:42}{thema=}{post}Чего это?  
 
For i = 1 To 3  
For j = 1 To 3  
mas(i, j) = Cells(i, j)  
Next j  
Debug.Print mas(i, 1), mas(i, 2), mas(i, 3)  
Next i{/post}{/quote}  
 
Спасибо, исходный массив получился ) А как это связать со второй частью цикла??

Задание: объявить двумерный массив размерностью 3 на 3 и заполнить его числами. Каждый элемент массива умножьте на 2. Начальный и результирующий массивы выдать в окно Immediate Window в виде двух матриц 3 на 3.  
Числа для заполнения массива берутся из ячеек.  
 
Sub mas()  
Dim mas(3, 3)  
For i = 1 To 3  
For j = 1 To 3  
mas(i, j) = Cells(i, j)  
Next j  
Next i  
Debug.Print (mas)  
For Each M In ms  
M = M * 2  
Next M  
Debug.Print (mas)  
End Sub  
 
Не могу понять, как вывести весь массив в виде матрицы через Debug.Print! Так не получается... Может по строкам как-нибудь? Подскажите, пожалуйста, заранее благодарю.