一位数相乘

来源:互联网 发布:windows 10不能玩魔兽 编辑:程序博客网 时间:2024/06/06 05:17
Private Sub Command1_Click()
Dim a As Byte
Dim b As Byte
Dim c As Byte
Dim r As Byte

b = Me.Text1.Text
a = Int(Val(b))
b = Me.Text2.Text
c = Int(Val(b))

r = a * c
Print r


End Sub


1 0