嗯呢。

要一直敲一直敲。。。好累 ！

Private Sub Command1_Click()

   Me.Font.Size = 70

   Dim n1() As Byte, n1Len As Long

   Dim n2() As Byte, n2Len As Long

   Dim yushu As Byte, yushu2 As Byte

   Dim shang As Byte

   Dim i As Long

   Dim tempResult As Byte

   n1Len = Len(Me.Text1.Text)

   n2Len = Len(Me.Text2.Text)

  

   ReDim n1(n1Len) '1

   ReDim n2(n2Len) '长度始终为1

  

   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

   'n1=Int(Val(Me.Text1.Text))

   'n2=Int(Val(Me.Text2.Text))

   'temResult=n1*n2

   temResult = n1(2) * n2(1) + shang

   yushu = temResult Mod 10

   shang = temResult \ 10

  

   temResult = n1(1) * n2(1) + shang

   yushu2 = temResult Mod 10

   shang = temResult \ 10

  

   Print shang&; yushu2&; yushu1