乘法
来源:互联网 发布:西安数据录入员招聘 编辑:程序博客网 时间:2024/04/20 06:27
Private Sub Command1_Click()
Dim a As Byte, c As Integer
Dim b As String
b = Me.Text1.Text
a = Int(Val(b))
b = Me.Text2.Text
c = Int(Val(b))
Dim r As Byte
r = a * c
Print r
End Sub
Dim a As Byte, c As Integer
Dim b As String
b = Me.Text1.Text
a = Int(Val(b))
b = Me.Text2.Text
c = Int(Val(b))
Dim r As Byte
r = a * c
Print r
End Sub
0 0