川崎北高校　情報科　専門教科「アルゴリズム」
VisualBasicでビンゴゲームを作ろう！
〜配列変数の活用〜
2003,9,21更新
　

ビンゴゲーム
  • １から７５までの乱数を重複せずに発生させる。
  • 乱数の値が1〜15の場合はＢ、16〜30はI、31〜45はN、46〜60はG、61〜75はＯを表示させる。
１次元配列変数 X(75） X(0)〜X(75)まで、76コの変数を使える
値の交換 C=B
B=A
A=C		 AとBの値を交換するために変数Cを用意する
多分岐選択 Select Case X
　Case Is〜
　Case Is〜
End Select		 Xの値が〜の場合はこうしなさい

内容 フォーム コード
課
題
１		 配列変数x(75)と変数ｊを宣言。
x(1)〜x(75)の値に1〜75の値を代入。
ｊの初期値を１とする
コマンドボタンをクリックするたびに
１から７５までの数字を表示させる		 Dim x(75), j As Integer
Private Sub Form_Load()
　For i = 1 To 75
　　x(i) = i
　Next i
　j = 1
End Sub
Private Sub Command1_Click()
　Text1.Text = x(j)
　j = j + 1
End Sub
課
題
２		 x(1)〜x(75)の中から任意の変数を２つ選んで
値を交換する。
以上の作業を何回（例は10000回）繰り返す。		 Dim x(75), j As Integer
Private Sub Form_Load()
　For i = 1 To 75
　　x(i) = i
　Next i
　j = 1
　For i = 1 To 10000
　　r1 = Int(Rnd(1) * 75 + 1)
　　r2 = Int(Rnd(1) * 75 + 1)
　　（この部分を考えよう）
　　x(r1) = x(r2)
　　（この部分を考えよう）
　Next i
End Sub
Private Sub Command1_Click()
Text1.Text = x(j)
j = j + 1
End Sub
課
題
３		 テキストボックス２を追加し、
x（ｊ）の値が
１６未満ならば"Ｂ"
３１未満ならば"Ｉ"
４６未満ならば"Ｎ"
６１未満ならば"Ｇ"
７６未満ならば"Ｏ"
と表示させる。		 Dim x(75), j As Integer
Private Sub Form_Load()
　For i = 1 To 75
　　x(i) = i
　Next i
　j = 1
　For i = 1 To 10000
　　r1 = Int(Rnd(1) * 75 + 1)
　　r2 = Int(Rnd(1) * 75 + 1)
　　cash = x(r1)
　　x(r1) = x(r2)
　　x(r2) = cash
　Next i
End Sub
Private Sub Command1_Click()
　Text1.Text = x(j)
　Select Case x(j)
　　Case Is < 16
　　Text2.Text = "B"

（この部分は各自考えよう）

　End Select
　j = j + 1
End Sub
課
題
４		 コマンドボタンを追加し、「RESET」ボタンにする。
RESETボタンを押すと、配列変数には新たな
乱数を代入する。		 考えよう
課
題
６		 スタートボタンで乱数が連続して発生
（スロットマシーンの応用、
タイマーコントロールを使う）
ストップボタンで乱数を表示。
発
展
１		 柴田功のBINGOマシーンVer2.0

「柴田功のBINGOマシーンVer2.0」ダウンロードはこちら（ライブラリーなし、28KB）
発
展
２
さらに、こんなカードも作ってみてはいかがでしょうか？
「digital bingo card ver1.0」ダウンロードはこちら（bingocard.exe　ライブラリーなし、32KB）

index