一位数与一位数相乘

Private Sub Command1_Click()
    Me.FontSize = 45
    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