Elseifのコードが分かりません。（至急）

質問

急ぎのため再度の質問失礼します。
３つの数字すべてが７のとき、メッセージ１を出し、 どれか２つだけが７のときは、メッセージ２を出し、 どれか１つだけが７のときは、メッセージ３を出し、 どこにも７が含まれていないときは、メッセージ４を出すようにEndifを使って書きたいのですが、正しいコードを教えて下さい。

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

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

よろしくお願いします。

回答No.1

n-jun · ベストアンサー

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

Dim st As String

st = Label1.Text + Label2.Text + Label3.Text

If st = "777" Then
MsgBox("メッセージ１")
ElseIf st.Replace("7", "").Length = 1 Then
MsgBox("メッセージ２")
ElseIf st.Replace("7", "").Length = 2 Then
MsgBox("メッセージ３")
Else
MsgBox("メッセージ４")
End If

一例になれば幸いです。

お礼

ありがとうございます。大変助かりました。