繰り返し構造

今日は休まずにプログラミング。

繰り返し構造を勉強してました。

Do・・・Loopステートメントが中心。

最後に練習したのは3回パスを間違えると入力できなくなるというもの

こんな漢字

Public Sub ex14()

'変数の宣言
Dim password As String
Dim n As Integer

'変数の初期化
n = 0

Do

'回数のチェック
n = n + 1

If n > 3 Then
MsgBox "これ以上は処理を続けられません"
Exit Do
End If

'パスワードの入力
password = InputBox("パスワードを入力")
Loop Until password = "apple"

End Sub

appleがパスワード　なぜappleがここででてくるのかは不明

聞かないでください

↓他に本日練習したもの

入力された数字列の桁数を表示

入力しなくなるまで数字列を足していく

パスワードを入力するまで入力画面表示(前判断)

パスワードを入力するまで入力画面表示(後判断)

アドバイスなどがあればコメントまでおねがいします