ＶＢＡを使ったゲーム
ジャンケンゲーム
＿＿＿高校1年 組
＿＿＿＿＿
番
プレゼンテーション内容
ジャンケンゲーム
 作り方
 詳しい説明

ジャンケンゲーム
computer
2
パー
グー
player
グー
チョキ
0
パー
作り方
セル（10，4）に、0，1，2の内
どれかを乱数で発生させます。

パーの出し方についての説明

Sub pa()
Cells(10, 4) = Int(Rnd * 3)
Cells(10, 10) = 2
If Cells(10, 10) = 2 Then
Cells(10, 9) = "パー"
End If
If Cells(10, 4) = 0 Then
Cells(10, 5) = “グー”
ElseIf Cells(10, 4) = 1 Then
Cells(10, 5) = "チョキ"
ElseIf Cells(10, 4) = 2 Then
Cells(10, 5) = "パー"
End If













セル（10，10）に2を表示させ、
セル（10，9）に“パー”と表示させます。
セル（10，4）に発生した乱数が0なら、
セル（10，5）に“グー”と表示させ、同じように
1ならチョキ、2ならパーと出るようにします。
作り方２











If Cells(10, 4) - Cells(10, 10) = -1 Then
MsgBox "あなたの負けです"
ElseIf Cells(10, 4) - Cells(10, 10) = -2 Then
MsgBox "あなたの勝ちです"
引いた数字が－2の時、
ElseIf Cells(10, 4) - Cells(10, 10) = 2 Then
メッセージボックスに
MsgBox "あなたの負けです"
ElseIf Cells(10, 4) - Cells(10, 10)
= 1 Then
“あなたの勝ちです”と表示させます。
MsgBox "あなたの勝ちです"
ElseIf Cells(10, 4) - Cells(10, 10) = 0 Then
MsgBox "あいこです"
End If


セル（10，4）に書いてある数字から、
セル（10，10）に書いてある数字を引きます。
End Sub
同じように進めていき、
最後に引いた数字が0時、
それぞれ手は同じということになるので
“あいこです”と表示させます。
詳しい説明（簡単な説明）
computer
2
0
パー
グー
player
グー
チョキ
１0
パー
勝敗の出し方
ＰＣのセル（この場合０）と、プレイヤーのセル（この場合１）を引き算します。
例＊
０（ＰＣがグー）－１（プレイヤーがチョキ）＝－１
→メッセージボックス”あなたの負けです”
他の引き算、｛例えば１（チョキ）－２（パー）｝の場合も同じように使うことが出来ます。

日生協健康保険組合 契約健診機関一覧表 データ更新日 2015年5月19

燻製の作り方

1 なんぽろ温泉ハート＆ハート 施設面積調書 南幌町