Select Case if Select Case Select Case Score

Select Case テキストの条件式 • 条件分岐が多い場合、if文 では複雑になってしまうので、 Select Caseを使うと見やすく なる。 数字の条件式 Select Case Score Case Is > 80 Msg. Box “ 80より大きい” Case Is > 50 Msg. Box “ 50より大きい” Case Else Msg. Box “ 50より小さい” End Select Case Score Case “A” Msg. Box “優” Case “B” Msg. Box “良” Case Else Msg. Box “可” End Select Case Score Case 81 To 100 Msg. Box “ 80より大きい” Case 51 To 80 Msg. Box “ 50より大きい” Case Else Msg. Box “ 50より小さい” End Select

For Next 繰り返し処理を行う場合は、For Nextを使う。 For i = 1 to 10 For i = 3 to 10 ‘ 3から開始 Msg. Box i For i = 1 To 10 Step 2 ‘ 2ずつ増加 Next i For i = 10 To 1 Step -1 ‘ 1ずつ減る Forループを抜けるときは は、Exit Forを使う。 課題： セルA 1～A 10に 1～ 10を 入れよ。 Dim i As Integer Dim Ans As Integer For i = 1 To 10 Ans = Input. Box(“数字を入れて下さい。”) If Ans = 0 Then Exit For End If Next i

Do Loop ループの回数が決まっていな いときはDo Loopを使用する。 ※無限ループの可能なので 注意。Ctrl+Breakで強制終了。 前判断 後判断 満たすま で Do Until…Loop Do…Loop Until 満たす間 Do While…Loop Do…Loop While Dim Flag As Boolean Dim Ans As String Flag = 0 Do While Flag = 0 Ans = Input. Box(“数字を入れて下さい。 ”) If Ans = 0 Then flag = 1 End If Loop