密碼檢查程式 要如何用迴圈寫呢

Question

假設密碼為12345.先顯示畫面讓使用者輸入密碼

1.輸入密碼正確就顯示訊息 (通過密碼檢查,繼續處理),並結束程式處理

2.輸入密碼錯誤,就顯示第幾次錯誤的訊息 (第n次密碼錯誤,請重新輸入),

並讓使用者重新輸入密碼

3.如果輸入3次密碼錯誤,就顯示訊息(已輸入3密碼錯誤,停止執行),並結束程式執行

Answer 1

最佳解答

Private Sub Form_Activate()

Dim i As Integer

For i = 1 To 3

If InputBox("請輸入密碼") = "12345" Then

MsgBox "通過密碼檢查,繼續處理"

Exit For

Else

If i = 3 Then

MsgBox "已輸入3密碼錯誤 , 停止執行"

End

Else

MsgBox "第 " & i & " 次密碼錯誤,請重新輸入"

End If

End If

Next i

'通過密碼檢查後,繼續處理

'並結束程式處理

End

End Sub