史萊姆論壇 - "*"的迴圈

史萊姆論壇 (http://forum.slime.com.tw/)

- 程式語言討論區 (http://forum.slime.com.tw/f76.html)

- - "*"的迴圈 (http://forum.slime.com.tw/thread240100.html)

請問一下如果我想把這串星星
*
**
***
****
*****
******
*******
******
*****
****
***
**
*
用for迴圈要如何使用
Dim I, J, h As Integer
TextBox1.Text = ""
For I = 1 To 7
For j = 7 To I
TextBox1.SelectedText = "★"
Next
TextBox1.SelectedText = vbNewLine '換行字元
Next
我想是想說再寫一個for迴圈可是試過但無效
會變成了很多"*"
所我想說多寫一個迴圈應該是不可能了
請大家幫幫忙喔

看來你是初學者,還不到10小時.

語法:

Private Sub Form_Activate()

   Dim i As Integer

   For i = 1 To 7

      Print String(i, "★") & vbCrLf

   Next

   For i = 6 To 1 Step -1

      Print String(i, "★") & vbCrLf

   Next

End Sub

Dim i As Integer
For i = 1 To 7
Print String(i, "★") & vbCrLf
Next
For i = 6 To 1 Step -1
Print String(i, "★") & vbCrLf
'String' 是類別型別，無法當成運算式使用。
所以你寫錯了ㄟ
ㄏㄏ
Next

End Sub

引用:

作者: u8810329 (文章 2067774)

看來你連VB6有 String函數也不知道 , 你連RUN看看都沒試 ,
也可以去問問這兒的那些版主 , 看看我回覆的指令是不是有正確畫出.

沒知識也不要緊, 也要有常識 ,沒常識也得常看電視,就算沒看電視, 也得虛心的請教
恐怕你是腦殘的小白. 你真是可悲!

你可以去查VB的MSDN , 教你一下: 先進VB後按F1.

或去 VB研究小站查入門的String函數：

填入重覆字元
--------------------------------------------------------------------------------
●將一個字元重覆組成一個字串後輸出。
●用法：傳回字串 = String(數值, 字元)
--------------------------------------------------------------------------------
MyStr = String(N, MyChr)
MyStr = String(6, "瓜")
'結果MyStr = "瓜瓜瓜瓜瓜瓜"

引用:

作者: 飛行船大大 (文章 2067954)

看來你連VB6有 String函數也不知道 , 你連RUN看看"

啊呀!!!誤會誤會囉, 飛行船大大別這麼氣唷,劣者 try 了一下
是環境的不同啦
VB6 & VB2005 OR VB2008
VB2005 沒有提供 STRING

引用:

作者: 劍痞憶秋年 (文章 2068035)

啊呀!!!誤會誤會囉, 飛行船大大別這麼氣唷,劣者 try 了一下
是環境的不同啦
VB6 & VB2005 OR VB2008
VB2005 沒有提供 STRING

學過vb 的人成千上萬. vb6 和vb.net的
在第一行從事件帶的參數就已經可以看出來是VB6
Private Sub Form_Activate()

就算是看不出,在 vb.net 中也有現成的轉換工具可以轉換專案. F1有說明和建議
有些人連MSDN若是安裝不完整.當然連這些最基本也查不到.
一般老手連這種入門水準的課本題是懶得回答, 我回復就是看在初學者不懂語法
,才7行指令而已,照顧初學者路過順手寫給他. 並且是在VB6中RUN過無誤.
請自己看圖背景是7行的指令 ~ 中央的小窗口是執行時畫面

http://huhuge.hp.infoseek.co.jp/Picture3.gif

STRING不只是可以用來宣告, STRING也是個函數.程式設計貴在靈活應用
資料查不到不代表沒有.別人通常只是給個思路 , 必須自己學習解決才能學到更多.

別動怒啊
我也覺得VB2005/VB2008用的人開始變多了
:on_90:

引用:

作者: 劍痞憶秋年 (文章 2068035)

啊呀!!!誤會誤會囉, 飛行船大大別這麼氣唷,劣者 try 了一下
是環境的不同啦
VB6 & VB2005 OR VB2008
VB2005 沒有提供 STRING

我印象中2003、2005已經將 String()函數改成StrDup()
用法一樣
2008就不清楚啦

Dim I, J, h As Integer
TextBox1.Text = ""
For I = -6 To 6
For J = 0 To 6 - Math.Abs(I)
TextBox1.Text = TextBox1.Text & "★"
Next
TextBox1.Text = TextBox1.Text & vbNewLine '換行字元
Next

不好意思,小弟比較懶一點.

引用:

作者: yangchihwei (文章 2087601)

也是另一種思維,感覺不錯

另有perl的寫法給大家看參考

語法:

for(1...5){

print "*" x $_;

print "\n";

}

for($i=4;$i>=1;$i--){

print "*" x $i;

print "\n";

}