• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:Elseifのコードが分かりません。(至急))

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

このQ&Aのポイント
  • 3つの数字すべてが7のとき、メッセージ1を出し、 どれか2つだけが7のときは、メッセージ2を出し、 どれか1つだけが7のときは、メッセージ3を出し、 どこにも7が含まれていないときは、メッセージ4を出すようにEndifを使って書きたいのですが、正しいコードを教えて下さい。
  • Visual BasicのElseIf文を使用して、規定の条件に基づいて異なるメッセージを表示するコードを作成したいです。
  • Form1_LoadイベントハンドラでRandomize関数を使用して、乱数を生成するコードを作成し、Button2_Clickイベントハンドラで3つの数字を生成し、それに応じて条件分岐するコードを書きたいと思います。

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

  • ベストアンサー
  • n-jun
  • ベストアンサー率33% (959/2873)
回答No.1

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 一例になれば幸いです。

noname#203801
質問者

お礼

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

関連するQ&A

専門家に質問してみよう