版块 › Visual Basic › VB编程实例-简单除法计算

awerva 发表于 2018-4-25 21:31:53

VB编程实例-简单除法计算

Private Sub Command1_Click()
Dim a, b, s As Long
a = Text1.Text
b = Text2.Text
c = 0
If b <> 0 Then
c = a / b
Text3.Text = c
Else: MsgBox "除数不能为0"
End If
End Sub

查看完整版本: VB编程实例-简单除法计算