一乘一个

1打开软件，建立两个text,一个commandbutton,双击，在窗口中输入以下内容。

2

Dim n1 As Byte
Dim 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即可看到结果。