n*1

一位数*一位数

Private Sub cmdmulti_Click()

Me.Font.Size = 40
Dim a As Byte, c As Integer
Dim b As String
b = Me.Text1.Text
a = Int(Val(b))
b = Me.Text2.Text
c = Int(Val(b))
Dim r As Byte

r = a * c

Print r

End Sub

三位数乘一位数

Private Sub cmdmulti_Click()
Me.Font.Size = 40
Dim a As Byte, c As Integer
Dim b As String
b = Mid(Me.Text1.Text, 1, 1)
a1 = Int(Val(b))
b = Mid(Me.Text1.Text, 2, 1)
a2 = Int(Val(b))
b = Mid(Me.Text1.Text, 3, 1)
a3 = Int(Val(b))

b = Me.Text2.Text
c = Int(Val(b))
Dim r As Byte

r = a3 * c
Dim r1 As Byte
Dim r2 As Byte
Dim r3 As Byte
Dim d As Byte
r3 = r Mod 10
d = r \ 10

r = a2 * c + d
r2 = r Mod 10
d = r \ 10

r = a1 * c + d
r1 = r Mod 10
d = r \ 10

Print d & r1 & r2 & r3

End Sub