リスト1:マルチステートメントを使った条件分岐処理


※最大値を示すMAX_NUMという記号定数が定義されているものとします

intMembersCount = Val(txtMembersCount.Text)
If intMembersCount > MAX_NUM Then
 MsgBox "値が最大値を超えているので、最大値で処理を続けます": _
   intMembersCount = MAX_NUM: txtMembersCount.Text = CStr(MAX_NUM)
End If

注意レイアウト上、"MsgBox・・・MAX_NUM) "は2行で表示されていますが、
実際のコードでは1行で記述します。


本文へ戻る