VBS(7)　繰り返し処理（その２）

メニューに戻りたいときはここをクリック。

Lesson 1

手順

• スタートメニューから Z:ドライブ（個人用）を開く
• 既に作成した、vbsというフォルダーを選択
• メニューから「ファイル → 新規作成 → テキストドキュメント」とする。
• 「新規テキストドキュメント.txt（拡張子が表示されていること！）」というファイルが作成されるので、保存したい名前に変更する。今回は vbs0701.vbs という名前に変更する。
  「拡張子を変更すると、ファイルが使えなくなる可能性があります。変更しますか？」と聞かれるのが「はい(Y)」と答えて良い。
• 今作成した vbs0701.vbs をデスクトップのメモ帳にドラッグ＆ドロップする。
• メモ帳が開いて編集できるようになったら、以下のように入力

  x=inputbox("お名前を教えてください。","問い合わせ")
  do while x=""
  	x=inputbox("さっさと名前を入力せよ。","急げ！")
  loop
  msgbox "こんにちは" & x & "さん。",,"挨拶"
  

• 「ファイル -> 上書き保存」として保存する。メモ帳は閉じてかまわない。
• 保存された vbs0701.vbs をダブルクリックして実行する。
• 間違いがあれば、 vbs0701.vbs をデスクトップのメモ帳にドラッグ＆ドロップして編集しなおして、保存する。保存後に、もう一度 vbs0701.vbs をダブルクリックして実行してみること。

解説

• do loop 文の一番よく使われる形式は

  do while 条件式
  	実行文たち
  loop 
  

  この構文では、条件式が成立する間、do と loop の間の実行文を実行する。
• １行目で名前を入力するようにしているが、ユーザが名前を入力しないときは x が空文字列になっている。
• ２行目から４行目にかけてのループは x が空文字列であるあいだ、ユーザへ名前の入力を要求し続ける。回数は決まっていない。

Lesson 2

手順

• スタートメニューから Z:ドライブ（個人用）を開く
• 既に作成した、vbsというフォルダーを選択
• メニューから「ファイル → 新規作成 → テキストドキュメント」とする。
• 「新規テキストドキュメント.txt（拡張子が表示されていること！）」というファイルが作成されるので、保存したい名前に変更する。今回は vbs0702.vbs という名前に変更する。
  「拡張子を変更すると、ファイルが使えなくなる可能性があります。変更しますか？」と聞かれるのが「はい(Y)」と答えて良い。
• 今作成した vbs0702.vbs をデスクトップのメモ帳にドラッグ＆ドロップする。
• メモ帳が開いて編集できるようになったら、以下のように入力

  count=1
  n=inputbox("1+2+3+4+5+6+7+8+9+10=?","問題")
  if n<>"" then if n=55 then ok=1
  do while ok=0
  	count=count+1
  	n=inputbox("不正解だ！ 1+2+3+4+5+6+7+8+9+10=?","しっかりしろ")
  	if n<>"" then if n=55 then ok=1
  loop
  msgbox "正解だ！　入力回数は" & count & "回",, "おめでとう"
  

• 「ファイル -> 上書き保存」として保存する。メモ帳は閉じてかまわない。
• 保存された vbs0702.vbs をダブルクリックして実行する。
• 間違いがあれば、 vbs0702.vbs をデスクトップのメモ帳にドラッグ＆ドロップして編集しなおして、保存する。保存後に、もう一度 vbs0702.vbs をダブルクリックして実行してみること。

解説

• 内容としては lesson 1 とほとんど違いは無い。
• if n<>"" then if n=55 then ok=1
  この部分は n が空文字列でないときに、 n=55 であれば ok に 1 を代入している。すなわち、正解が入力されると ok が 1 になる。
• count=count+1 の部分は入力する度に入力回数を増やしてカウントしている。

問題

憶えていますか？ 憶えましたか？

• do loop で繰り返しを行う方法がわかりましたか？
• do loop 以外で繰り返しを行うのにはどうしたらよいですか？
• inputbox の使い方はわかりますか。
• 配列ってどんなものですか？配列変数を使う前にはどんなことをしなければなりませんか？