15电气郄慧敏vb作业计算一位数乘以一位数

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即可看到结果。