一位数*一位数和两位数*一位数

Private Sub Command1_Click()
Dim n1 As Byte
Dim n2 As Byte
Dim yushu As Byte
Dim shang As Byte
Dim tempResult As Byte
n1 = Int(Val(Me.Text1.Text))
n2 = Int(Val(Me.Text2.Text))
tempResult = n1 * n2
yushu = tempResult Mod 10
shang = tempResult \ 10
Print shang & yushu
End Sub

<2>
Option Base 1
Private Sub Command1_Click()
Dim n1() As Byte, n1len As Long
Dim n2() As Byte, n2len As Long
Dim yushu1 As Byte, yushu2 As Byte
Dim shang As Byte
Dim tempResult As Byte
Dim i As Long
n1len = Len(Me.Text1.Text)
n2len = Len(Me.Text2.Text)
ReDim n1(n1len)
ReDim n2(n2len)
For i = LBound(n1) To UBound(n1)
n1(i) = Mid(Me.Text1.Text, i, 1)
Next
For i = LBound(n2) To UBound(n2)
n2(i) = Mid(Me.Text2.Text, i, 1)
Next
tempResult = n1(2) * n2(1) + shang
yushu1 = tempResult Mod 10
shang = tempResult \ 10

tempResult = n1(2) * n2(1) + shang
yushu2 = tempResult Mod 10
shang = tempResult \ 10

Print shang & yushu2 & yushu1

End Sub

心得体会：注意细节，注意角标，注意顺序。