疑問 - "*"的迴圈

[u8810329]

請問一下如果我想把這串星星
*
**
***
****
*****
******
*******
******
*****
****
***
**
*
用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

[u8810329]

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

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

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

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

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

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


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

[劍痞憶秋年]

作者: 飛行船大大

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

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

[飛行船大大]

作者: 劍痞憶秋年

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

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

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


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

[rank]

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

[mraaa711128]

作者: 劍痞憶秋年

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

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

[yangchihwei]

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

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

[rank]

作者: yangchihwei

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

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

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

[飛鳥]

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

for(1...5){
print "*" x $_;
print "\n";
}
for($i=4;$i>=1;$i--){
print "*" x $i;
print "\n";
}