Herose
Private Sub Command1_Click() Dim a, b, result As Double a = Text1.Text b = Text2.Text result = 0 If b <> 0 Then result = a / b Text3 = result Else MsgBox "除数不能为0!" End If
End Sub
posted on 2010-11-09 20:47 Herose 阅读(98) 评论(0) 编辑 收藏
Powered by: BlogJava Copyright © Herose