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 作者: x_Ls 時間: 2010-4-4 04:42 標題: 回復 1# 的帖子