Private Sub Command1_Click()
Dim n1() As Byte, n1len As Long
Dim n2() As Byte, n2len As Long
Dim yushu As Byte
Dim shang As Byte
Dim tempResult As Byte
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) = Int(Val(Mid(Me.Text1.Text)))
Next
tempResult = n1(1) * n2(1)
yushu = tempResult Mod 10
shang = tempResult \ 10
Print shang & yushu2 & yushu1
End Sub
Dim n1() As Byte, n1len As Long
Dim n2() As Byte, n2len As Long
Dim yushu As Byte
Dim shang As Byte
Dim tempResult As Byte
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) = Int(Val(Mid(Me.Text1.Text)))
Next
tempResult = n1(1) * n2(1)
yushu = tempResult Mod 10
shang = tempResult \ 10
Print shang & yushu2 & yushu1
End Sub