两个个位数之积

 

Private Sub Command1_Click()

Me.Font.Size = 40

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

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