《用vb编写所有三角形》由会员分享,可在线阅读,更多相关《用vb编写所有三角形(4页珍藏版)》请在金锄头文库上搜索。
1、Private Sub Command1_Click()Dim i%, j% For i = 1 To 9 Print Tab(2 * i - 1); Print *; Next j PrintNext iEnd SubPrivate Sub Command2_Click()Dim i%, j%ClsFor i = 1 To 9 Print Tab(19 - 2 * i); For j = 1 To (2 * i - 1) Print *; Next j PrintNext iEnd SubPrivate Sub Command3_Click()Dim i%, j%ClsFor i = 1 T
2、o 9 For j = 1 To (19 - 2 * i) Print *; Next j PrintNext iEnd SubPrivate Sub Command4_Click()Dim i%, j%ClsFor i = 1 To 9 For j = 1 To (2 * i - 1) Print *; Next j PrintNext iEnd SubPrivate Sub Command5_Click()Dim i%, j%ClsFor i = 1 To 9 Print Tab(10 - i); For j = 1 To (2 * i - 1) Print *; Next j Print
3、Next iEnd SubPrivate Sub Command6_Click()Dim i%, j%ClsFor i = 1 To 9 Print Tab(i); For j = 1 To (19 - 2 * i) Print *; Next j PrintNext iEnd SubPrivate Sub Command7_Click()Dim i%, j%ClsFor i = 1 To 9 Print Tab(10 - i); For j = 1 To (2 * i - 1) If i = 9 Or j = 1 Or j = (2 * i - 1) Then Print *; Else P
4、rint ; End If Next j PrintNext iEnd SubPrivate Sub Command8_Click()Dim i%, j%ClsFor i = 1 To 9 Print Tab(i); For j = 1 To (19 - 2 * i) If i = 1 Or j = 1 Or j = (19 - 2 * i) Then Print *; Else Print ; End If Next j PrintNext iEnd SubPrivate Sub Command9_Click()Dim i%, j%, m%, s$Clsm = 64For i = 1 To 9 Print Tab(10 - i); For j = 1 To (2 * i - 1) If m = 89 Then m = m + 1 Else m = 65 End If s = Chr(m) Print s; Next j PrintNext iEnd Sub