Private Sub Command1_Click()
Cls
Me.Font.Size = 50
Dim n1 As Integer
Dim n2 As Integer
Dim yushu As Integer
Dim shang As Integer
Dim tempresult As Double
n1 = (Val(Me.Text1.Text))
n2 = (Val(Me.Text2.Text))
tempresult = n1 * n2
yushu = tempresult Mod 10
shang = tempresult \ 10
Print shang & yushu
End Sub
Cls
Me.Font.Size = 50
Dim n1 As Integer
Dim n2 As Integer
Dim yushu As Integer
Dim shang As Integer
Dim tempresult As Double
n1 = (Val(Me.Text1.Text))
n2 = (Val(Me.Text2.Text))
tempresult = n1 * n2
yushu = tempresult Mod 10
shang = tempresult \ 10
Print shang & yushu
End Sub
扫一扫
1570
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
