2007-04-18 09:27:57ㄉ一ㄜˊ先生
程式 提供下載
Private Sub Command1_Click()
Dim pwd As String
pwd = InputBox(”請輸入密碼:”, ”密碼程式(if-then)”)
If pwd = ”5566” Then
MsgBox ”密碼正確”, vbOKOnly + vbInformation, ”密碼正確!你即將進入本系統.”
End If
End Sub
Dim pwd As String
pwd = InputBox(”請輸入密碼:”, ”密碼程式(if-then)”)
If pwd = ”5566” Then
MsgBox ”密碼正確”, vbOKOnly + vbInformation, ”密碼正確!你即將進入本系統.”
End If
End Sub
下一篇：程式p88