發新話題
打印

電腦高手~~~~~~~~~~~~

[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

TOP

回復 1# 的帖子

你想表達d咩=.=
凈係打左一斷vb code上泥 !
你想人地教你vb 定係點?=.=

TOP

引用:
原帖由 x_Ls 於 2010-4-4 04:42 發表
你想表達d咩=.=
凈係打左一斷vb code上泥 !
你想人地教你vb 定係點?=.=
9lv發8post T_T

TOP

發新話題