繰り返しの問題

質問

繰り返しの問題
繰り返し構文の中に一つだけmsgbox関数を使用する。繰り返し回数は１０回で、次の順序で「」内のメッセージを表示するプログラム。「はい」→「はいはい」→「はいはいはい」→・・・→「はいはいはいはいはいはいはいはいはいはい」
msgboxのタイトルバーに何回目かが分かるように表示せよ

というもんだいなのですがなんどやっても「はい」がいっぱいでてきたりしてしまいます。どのようにやれば問題通りにできるのでしょうか。あと最後の一行のやり方は応用みたいなので教えてもらえると
ありがたいです。
初歩的な問題ですが初心者なんで回答よろしくおねがいします

回答No.3

pbforce · ベストアンサー

>　msgbox関数を使用する
msgbox("はい")

>　繰り返し回数は１０回
For i=1 TO 10
msgbox("はい")
Next i

>　次の順序で「」内のメッセージを表示する
strMsg As String =""
For i=1 TO 10
strMsg = strMsg & "はい"
msgbox(strMsg)
Next i

お礼

一つ一つ回答していただきありがとうございます。
理解することができました。

回答No.2

noname#140971

[イミディエイト]
? Left$("はいはいはい", 2)
はい
? Left$("はいはいはい", 4)
はいはい
? Left$("はいはいはい", 6)
はいはいはい

こういう手もあります。

お礼

ありがとうございます。
やってみます。

回答No.1

hana-hana3

丸投げは禁止です。
自分で作成してみたんですよね？

＞あと最後の一行のやり方は応用みたいなので

コードが無いので、最後の一行がどのようになっているのか解りません。

お礼

毎回ためになる回答ありがとうございます。

補足

丸投げではないです。
自分で何回もやったのですがうまくできず
ヒントをもらえればと質問しました。

自分でやった間違えです
Sub ex82()
Dim x As Integer, y As String
y = "はい"
For x = 1 To 10
y = y + y
Next x
MsgBox y
End Sub