こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

Elseifのコードが分かりません。(至急)

急ぎのため再度の質問失礼します。
3つの数字すべてが7のとき、メッセージ1を出し、 どれか2つだけが7のときは、メッセージ2を出し、 どれか1つだけが7のときは、メッセージ3を出し、 どこにも7が含まれていないときは、メッセージ4を出すように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

よろしくお願いします。

投稿日時 - 2013-09-18 21:10:47

QNo.8270038

すぐに回答ほしいです

質問者が選んだベストアンサー

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("メッセージ1")
ElseIf st.Replace("7", "").Length = 1 Then
MsgBox("メッセージ2")
ElseIf st.Replace("7", "").Length = 2 Then
MsgBox("メッセージ3")
Else
MsgBox("メッセージ4")
End If

一例になれば幸いです。

投稿日時 - 2013-09-18 21:31:26

お礼

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

投稿日時 - 2013-09-18 22:43:29

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)