15电气李杰 小学数学知识：一位数互乘

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 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