Здравствуйте! У меня такая задача - создать процедуру, которая должна запрашивать у пользователя два числа, знак арифметической операции (+, -, /, *) и выдавать на экран результат выполнения её над введёнными числами.  
Написала код, но почему-то выводится результат равный нолю. Подскажите, в чём ошибка?  
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

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

Задание: объявить двумерный массив размерностью 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! Так не получается... Может по строкам как-нибудь? Подскажите, пожалуйста, заранее благодарю.