Next i
For i = 1 To 5 a(i) = 5
Print Tab(6 + (i - 1) * 4); a(i); Next i Print For i = 1 To 5 a(i) = 7
Print Tab(6 + (i - 2) * 4); a(i); Next i End Sub
22 利用双重循环，实现如图。
Private Sub Form_Click()
x = 0
For n = 1 To 4
For m = 1 To 2 * n - 1 x = x + 3
Print Tab(16 - n * 5 + m * 5); x; Next m Print Next n End Sub
23 编制一个时钟程序，如下图：
建立一个Label Private Sub Form_Click() Label1.Caption = Now End Sub
24 .画出如图所示的图形
Private Sub Form_Click() Cls
Form1.Scale (-8, 2)-(8, -2) Line (-7.5, 0)-(7.5, 0) Line (0, 1.9)-(0, -1.9)
CurrentX = 7.5: CurrentY = 0.2: Print \CurrentX = 0.5: CurrentY = 2: Print \For i = -1 To 1 If i <> 0 Then
CurrentX = 0.7: CurrentY = i + 0.1: Print i Line (0.5, i)-(0, i) End If Next i
CurrentX = 6.283: CurrentY = 0 For x = -6.283 To 6.283 Step 0.01 y = Sin(x) Line -(x, y) Next x End Sub
25 .画出如图所示的图形
Private Sub Form_Click() Dim i% For i = 0 To 7 Me.FillStyle = i
Me.Circle (500 + 800 * i, 800), 400 Next i End Sub
