- 405 名前：デフォルトの名無しさん [2010/02/25(木) 12:14:46 ]
- すみません、もうひとつ聞きたいことがあるんですが、
星の表示で1〜ｎ個の＊を順番に表示させるプログラムをつくったんですが、
Sub 星の昇順表示()
'1 〜 ｎ個の”* ”を順番に表示
Dim i As Integer, n As Integer
n = 10
Do
Debug.Print Format(i, "00") & String(i, "*")
i = i + 1
Loop While i < 11
End Sub
これをｎ〜1個の＊を順番に表示させるためにはDo〜Loopを使ってどのように変えればいいのでしょうか？
教えていただけないでしょうか。
