VBA¤Ç¥«¡¼¥É¥²¡¼¥à¤òºî¤ë¡¡
¿À·Ð¿ê¼å¥²¡¼¥à£²
¥È¥é¥ó¥×¤Î΢¤òɽ¼¨¤·¤Þ¤¹¡£¥³¥Þ¥ó¥É¥Ü¥¿¥ó£²¤ò¥À¥Ö¥ë¥¯¥ê¥Ã¥¯¤·¤Æ¼¡¤Î¥×¥í¥°¥é¥à¤òÆþ¤ì¤ë
Private Sub CommandButton2_Click()
Image1.Picture = Image28.Picture
Image2.Picture = Image28.Picture
Image3.Picture = Image28.Picture
Image4.Picture = Image28.Picture
Image5.Picture = Image28.Picture
Image6.Picture = Image28.Picture
Image7.Picture = Image28.Picture
Image8.Picture = Image28.Picture
Image9.Picture = Image28.Picture
Image10.Picture = Image28.Picture
Image11.Picture = Image28.Picture
Image12.Picture = Image28.Picture
Image13.Picture = Image28.Picture
End Sub
¼Â¹Ô¡¡Î¢Ì̤¬É½¼¨¤µ¤ì¤ë
Private Sub CommandButton2_Click()
Image1.Picture = Image28.Picture
Image2.Picture = Image28.Picture
Image3.Picture = Image28.Picture
Image4.Picture = Image28.Picture
Image5.Picture = Image28.Picture
Image6.Picture = Image28.Picture
Image7.Picture = Image28.Picture
Image8.Picture = Image28.Picture
Image9.Picture = Image28.Picture
Image10.Picture = Image28.Picture
Image11.Picture = Image28.Picture
Image12.Picture = Image28.Picture
Image13.Picture = Image28.Picture
no = 1
x = no
kotae = no
disp2
Image14.Picture = Image29.Picture
End Sub
£±¤¬É½¼¨¤µ¤ì¤ë
ȽÄê¥ë¡¼¥Á¥ó¡¡¥¤¥á¡¼¥¸£±¤ò¥¯¥ê¥Ã¥¯¤·¤¿¤È¤¤ÎȽÄê¤ò¤¤ë
Private Sub Image1_Click()
Image1.Visible = False
If a(1) = kotae Then
Image1.Picture = Image29.Picture
seikai
Else
missdesu
End If
Image1.Visible = True
End Sub
Sub seikai()
TextBox1 = "Àµ²ò¤Ç¤¹"
no = no + 1
x = no
kotae = no
disp2
Image14.Picture = Image29.Picture
ok = ok + 1
If ok = 13 Then
TextBox1 = "´°àú¡¡¥²¡¼¥à¥¯¥ê¥¢¡¼"
iq = iq + 20
CommandButton2_Click
End If
End Sub
Sub missdesu()
TextBox1 = "´Ö°ã¤¨"
miss = miss + 1
If miss > 2 Then
iq = iq - 20
TextBox2 = iq
TextBox1 = "GAME OVER ¤Ï¤¸¤á¤«¤é"
CommandButton2_Click
Else
End If
End Sub
Private Sub userform_initialize()
iq = 80
End Sub
¼Â¹Ô¡¡º¸¾å£±ÈÖÌܤˣ±¡Ú¥¯¥é¥Ö¤Î¥¨¡¼¥¹¡Û¤¬½Ð¤ë¤Þ¤Ç¥Ü¥¿¥ó£±¡Ö³Ð¤¨¤Æ¤Í¡×¤ò¥¯¥ê¥Ã¥¯¤¹¤ë¡£¥¯¥é¥Ö¤Î¥¨¡¼¥¹¤¬½Ð¤¿¤é
¥Ü¥¿¥ó£²¡Ö¤Ï¤¸¤á¡×¤½¤Î³¨¡Ú¥¯¥é¥Ö¤Î¥¨¡¼¥¹¡Û¤ò¥¯¥ê¥Ã¥¯¤¹¤ë¡£
Private Sub Image1_Click()
Image1.Visible = False
If a(1) = kotae Then
Image1.Picture = Image29.Picture
seikai
Else
missdesu
End If
Image1.Visible = True
End Sub
¾åµ¤ÎÉôʬ¤ò¥³¥Ô¡¼¤·¤Æ£±£²¸ÄŽ¤êÉÕ¤±¡¢ÀÖ»ú¤ÎÉôʬ¤òľ¤¹¡£
Private Sub Image2_Click()
Image2.Visible = False
If a(2) = kotae Then
Image2.Picture = Image29.Picture
seikai
Else
missdesu
End If
Image2.Visible = True
End Sub
Private Sub Image3_Click()
Image3.Visible = False
If a(3) = kotae Then
Image3.Picture = Image29.Picture
seikai
Else
missdesu
End If
Image3.Visible = True
End Sub
Private Sub Image4_Click()
Image4.Visible = False
If a(4) = kotae Then
Image4.Picture = Image29.Picture
seikai
Else
missdesu
End If
Image4.Visible = True
End Sub
Private Sub Image5_Click()
Image5.Visible = False
If a(5) = kotae Then
Image5.Picture = Image29.Picture
seikai
Else
missdesu
End If
Image5.Visible = True
End Sub
Private Sub Image6_Click()
Image6.Visible = False
If a(6) = kotae Then
Image6.Picture = Image29.Picture
seikai
Else
missdesu
End If
Image6.Visible = True
End Sub
Private Sub Image7_Click()
Image7.Visible = False
If a(7) = kotae Then
Image7.Picture = Image29.Picture
seikai
Else
missdesu
End If
Image7.Visible = True
End Sub
Private Sub Image8_Click()
Image8.Visible = False
If a(8) = kotae Then
Image8.Picture = Image29.Picture
seikai
Else
missdesu
End If
Image8.Visible = True
End Sub
Private Sub Image9_Click()
Image9.Visible = False
If a(9) = kotae Then
Image9.Picture = Image29.Picture
seikai
Else
missdesu
End If
Image9.Visible = True
End Sub
Private Sub Image10_Click()
Image10.Visible = False
If a(10) = kotae Then
Image10.Picture = Image29.Picture
seikai
Else
missdesu
End If
Image10.Visible = True
End Sub
Private Sub Image11_Click()
Image11.Visible = False
If a(11) = kotae Then
Image11.Picture = Image29.Picture
seikai
Else
missdesu
End If
Image11.Visible = True
End Sub
Private Sub Image12_Click()
Image12.Visible = False
If a(12) = kotae Then
Image12.Picture = Image29.Picture
seikai
Else
missdesu
End If
Image12.Visible = True
End Sub
Private Sub Image13_Click()
Image13.Visible = False
If a(13) = kotae Then
Image13.Picture = Image29.Picture
seikai
Else
missdesu
End If
Image13.Visible = True
End Sub