【正文】
nt Next i 輸出上三角形 2021/11/10 20 For i = 4 To 1 Step 1 Print Tab(20 i)。 2021/11/10 19 Option Explicit Private Sub Form_Click() Dim i As Integer, j As Integer Dim a As String For i = 1 To 5 Print Tab(20 i)。上面的三角形有 5行第 1行為一個(gè)“ *”，第2行為三個(gè)“ *”，第 3行為五個(gè) …… 第 5行有 2*51個(gè)“ *”。 。 For k = 1 To j Print Tab(k * 6)。 Next i Print 輸出表頭 2021/11/10 17 For j = 1 To 9 Print j。 For i = 1 To 9 Print Tab(i * 6)。 輸出的位置 2021/11/10 15 在窗體上輸出乘法九九表 2021/11/10 16 Option Explicit Private Sub Form_Click() Dim i As Integer, j As Integer, k As Integer Dim m As Integer FontSize = 12 Print Tab(25)。 For j = 1 To 2 * i 1 Print a。表示從第 18i 列開(kāi)始輸出內(nèi)容。因此要使用 Tab函數(shù)來(lái)確定每一行的起始位置。可以先用變量 a存放一個(gè)星號(hào)。 2021/11/10 11 在窗體上輸出下列圖案 2021/11/10 12 問(wèn)題分析： 該圖案共有十行，每行有不同的星號(hào)。編寫(xiě)代碼如下： 2021/11/10 10 Option Explicit Private Sub Command1_Click() Dim a As String, i As Integer, j As Integer a = ********** = 14 For i = 1 To 10 Print Tab(2 * i)。 語(yǔ)句 Print Tab(2* i) 。使用語(yǔ)句： a=“**********” 由于要輸出的是一個(gè)平行四邊形，每一行的起始位置比上一行位置多 2列。 圖 417 百錢(qián)買(mǎi)百雞問(wèn)題的運(yùn)行結(jié)果 2021/11/10 8 在窗體上輸出下列圖案 2021/11/10 9 問(wèn)題分析： 該圖案共有十行，每行有十個(gè)星號(hào)。 Priva