4.14

来源:互联网 发布:linux可执行文件.o 编辑:程序博客网 时间:2024/04/30 03:20
Private Sub Command1_Click()
Dim n1 As Byte
Dim n2 As Byte
Dim yushu As Byte
Dim shuang 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

0 0
原创粉丝点击