1打开软件,建立两个text,一个commandbutton,双击,在窗口中输入以下内容。
2
Dim n1 As ByteDim n2 As Byte
Dim shang As Byte
Dim yushu 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
3点击运行,输入数字,点击运行的commang button即可看到结果。