图片太麻烦——————一位数乘以一位数

Option Explicit
Dim i As Integer
Dim sum As Integer

Private Sub Command1_Click()
    Cls
    Font.Size = 70
    
End Sub

Private Sub Timer1_Timer()
       sum = sum + i
       i = i + 1
    If i > 100 Then
        Me.Timer1.Enabled = False
        Print sum
        Print "timer's i=" & i
    End If
End Sub

Function f(x As Integer) As Long
    Dim i As Integer
    End Function
    

Private Sub Command1_Click()
    Me.Font.Size = 70
    Dim n1() As Byte
    Dim n2() As Byte
    Dim yushu As Byte
    Dim shang As Byte
    
    Dim temprssult 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

Private Sub Command1_Click()
    Me.Font.Size = 70
    Dim n1() As Byte, n1len As Long
    Dim na() 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) '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)
        n1(i) = Mid(Me.Text1.Text, i, 1)
        Next
        'n1=int(val(me.text1.text))
        'n2=int(val(me.text2.text))
        'tempResult=n1*n2
        tempresult = n1(1) * n2(1)
        yushu = tempresult Mod 10
        shang = tempresult \ 10
        
        Print shang & yushu
           
End Sub

Private Sub Command1_Click()
    Me.Font.Size = 70
    Dim n1() As Byte, n1len As Long
    Dim na() 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) '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)
        n1(i) = Mid(Me.Text1.Text, i, 1)
        Next
        'n1=int(val(me.text1.text))
        'n2=int(val(me.text2.text))
        'tempResult=n1*n2
        tempresult = n1(1) * n2(1) + shang
        yushu = tempresult Mod 10
        shang = tempresult \ 10
        
        tempresult = n1(1) * n2(1) + shang
        yushu2 = tempresult Mod 10
        shang = tempresult \ 10
        Print shang & yushu2 & yushu1

        
End Sub

why？？？！