[Open]
[Close]
電腦高手~~~~~~~~~~~~
Private Sub multiply_Click()
If Len(Text1.Text) = 0 Or Not (IsNumeric(Text1.Text)) Then
MsgBox "input a number !"
Text1.Text = ""
Text2.Text = ""
label1caption = ""
End If
If Len(Text2.Text) = 0 Or Not (IsNumeric(Text2.Text)) Then
MsgBox "input a number!"
Text2.Text = ""
Text2.Text = ""
Label1.Caption = ""
End If
Label1.Caption = Val(Text1.Text) * Val(Text2.Text)
End Sub