VB(用文字*如何做出以下圖案)

Dim t As Integer

___________________

Private Sub Command1_Click()

Cls

For i = 1 To 10

For j = 1 To i

Print "*";

Next j

Print

Next i

End Sub

___________________________________________

這樣如何做出以下的圖案

1.

圖片參考:http://blog.roodo.com/pion168/cf0bc028.jpg

2。

圖片參考:http://blog.roodo.com/pion168/fd70f176.jpg

兩題分開教我

能給詳解就更好了!

已更新項目:

可以讓他在表當出現嗎?

不要再即時運算視窗出現.

2 個已更新項目:

懂了.!

1 個解答

評分
  • 酷兒
    Lv 5
    1 0 年前
    最佳解答

    第一題 用2個For...Next迴圈,在 VB6 裡可用 String 函式來產生重覆的字元

    例如要重覆6個星號: String(6,”*”)

    Dim i As Integer

    Dim j As Integer

    Dim outleft As String

    Dim outright As String

    Dim starNumber As String

    starNumber = 10 ’設定你要產生的*號數

    For i = 1 To starNumber

    For j = 1 To i

    outleft = String(j, ”*”) + String(starNumber - j, ” ”)

    outright = String(starNumber - j, ” ”) + String(j, ”*”)

    Next

    Debug.Print outleft + String(6, ” ”) + outright

    Next

    Debug.Print

    For i = starNumber To 1 Step -1

    For j = 1 To i

    outleft = String(j, ”*”) + String(starNumber - j, ” ”)

    outright = String(starNumber - j, ” ”) + String(j, ”*”)

    Next

    Debug.Print outleft + String(6, ” ”) + outright

    Next

    第二題 用一個For...Next迴圈就可以了

    For i = 1 To starNumber

    Debug.Print String(i, "*")

    Next

    參考資料: 自己
    • 登入以對解答發表意見
還有問題?馬上發問,尋求解答。