برنامه زیر دو عدد صحیح از ورودی خوانده و عمل ضرب را بدون استفاده از عملگر ضرب محاسبه و نمایش میدهد :
Private Sub Command25_Click()
Dim a As Integer, b As Integer, i As Integer, m As Integer
a = InputBox("Enter first num")
b = InputBox("Enter second num")
For i = 1 To b
m = m + a
Next
MsgBox a & " * " & b & " = " & m
End Sub
پاسخ با نقل قول
