Visual Basicについてなんですが、いいですか？
http://azsx00.tripod.co.jp/D001.jpg
初心者じみた質問ですみません。
上記の画像ののようなプログラムが途中までで引っかかってしまって先に進めません。
どなたかご指導下さい。
一応自分で考えた結果です。どこが悪いとか何が分かってないとかいろいろアドバイスもあればお願いします。まだ習い始めたばかりです。
Dim Number As Integer
Dim Score As Integer
Dim MessageText As String
Private Sub Command1_Click()
If Number > 7 Then
Score = Score + 1
MessageText "あたり"
End If
If Number < 7 Then
Score = Score - 1
MessageText "外れ"
End If
If Number = 7 Then
Score = Score + 0
MessageText "引き分け"
End If
End Sub
Private Sub Command2_Click()
If Number > 7 Then
Score = Score + 1
MessageText "あたり"
End If
If Number < 7 Then
Score = Score - 1
MessageText "外れ"
End If
If Number = 7 Then
Score = Score + 0
MessageText "引き分け"
End If
End Sub
Private Sub Form_Load()
Number = Rnd() * 13 + 1
Score = 0
Label1.Caption = "?"
Text1.Text = "Score:" & Score
End Sub
Private Sub Label1_Click()
If Number > 7 Then
Label1.Caption = "Score"
End If
If Number < 7 Then
Label1.Caption = "Score"
End If
End Sub
