ElseIfの使い方。

Elselfを使ってLavel5,6,7全てが7のときメッセージ１を表示、内二つが７のときはメッセージ２、一つが７のときはメッセージ３を表示、全て違った場合はメッセージ４を表示したいのですが、どのようなコードを書けばいいですか？

No.2 ベストアンサー 回答者： watabe007 回答日時： 2013/09/18 17:16

>ElseIfの使い方。

If Lavel5 = 7 And Lavel6 = 7 And Lavel7 = 7 Then
　　MsgBox "1"
ElseIf Lavel5 <> 7 And Lavel6 <> 7 And Lavel7 <> 7 Then
　　MsgBox "4"
ElseIf Lavel5 = 7 And Lavel6 = 7 Then
　　MsgBox "2"
ElseIf Lavel5 = 7 And Lavel7 = 7 Then
　　MsgBox "2"
ElseIf Lavel6 = 7 And Lavel7 = 7 Then
　　MsgBox "2"
Else
　　MsgBox "3"
End If

この回答への補足

実際に使おうとしたらエラーが出て、使い方がわかりませんでした。
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Randomize()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
PictureBox1.Visible = False

Label4.Visible = False


Label1.Text = CStr(Int(Rnd() * 10))
Label2.Text = CStr(Int(Rnd() * 10))

Label3.Text = CStr(Int(Rnd() * 10))

If (Label1.Text = "5") And (Label3.Text <> 5) Then

PictureBox1.Visible = True

Label4.Visible = True

End If

End Sub

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

End Sub

Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

End Sub

Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click

End Sub
End Class

このようなプログラムなのですが、どこに書き足せばいいのでしょうか？

補足日時：2013/09/18 19:12

この回答へのお礼

ご回答ありがとうございます。

お礼日時：2013/09/18 19:11

No.1 回答者： ShowMeHow 回答日時： 2013/09/18 16:45

ラベルの何が7って問題はさておき、

n = 0
if label5 = "7" then n = n+1
if label6 = "7" then n = n+1
if label7 = "7" then n = n+1
if n = 3 then
msgbox msg1
else if n = 2 then
msgbox msg2
else if n = 3 then
msgbox msg3
else
msgbox msg4
end if
end if
end if

みたいなことかな？
デバッグしていないから動くかどうかわかんないけど。

うーーんelse使っている意味ないな。

この回答への補足

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Randomize()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
PictureBox1.Visible = False

Label4.Visible = False


Label1.Text = CStr(Int(Rnd() * 10))

Label2.Text = CStr(Int(Rnd() * 10))

Label3.Text = CStr(Int(Rnd() * 10))

If (Label1.Text = "5") And (Label3.Text <> 5) Then

PictureBox1.Visible = True

Label4.Visible = True

End If

End Sub

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

End Sub

Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

End Sub

Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click

End Sub
End Class

このようなプログラムなのですが、どこにどう入れればいいでしょうか？

補足日時：2013/09/18 19:10

この回答へのお礼

ご回答ありがとうございます。

お礼日時：2013/09/18 19:01