A. VB里用星號輸出平行四邊形、正三角、倒三角的程序語句
一、Private Sub Form_Click()
show
Dim m, n, i, j As Integer
m = 4 :n = 7
For i = 1 To m
For j = 1 To m - i + 1
Print " ";
Next j
For j = 1 To n
Print "*";
Next j
Next i
For i = 1 To m
For j = 1 To m - i + 1
Print " ";
Next j
For j = 1 To 2 * i - 1
Print "*";
Next j
Next i
For i = 1 To m
For j = 1 To i
Print " ";
Next j
For j = 1 To 2 * m - 2 * i + 1
Print "*";
Next j
Next i
End Sub
二、Sub Command1_Click()
Dim i As Integer
For i = 1 To 11 Step 2
For m = 11 To i Step -1
Debug.Print "*";
Next
Print Chr(10) & Space(1 + i 2);
Next
End Sub
(1)編程列印平行四邊形擴展閱讀:
在VB中,注釋有2種方式。
1、以Rem關鍵字開頭,並且Rem關鍵字與注釋內容之間要加一個空格。注釋可以是單獨的一行,也可以寫在其他語句行的後面。如果在其他語句行後使用Rem關鍵字,則必須使用冒號(:)與語句隔開。
2、使用一個撇號(')來代替Rem關鍵字。若使用撇號,則在其他語句行使用時不必加冒號。
特徵衡量
在 Visual Basic 中,可通過屬性、方法和事件來說明和衡量一個對象的特徵。
參考資料來源:網路-Visual Basic