Dim i, ii, iii, iiitmp As Integer'定义4个变量,i为主数,ii为间隔数,iii为列数,iiitmp为列数的临时变量
ii = 4
iii = 1
For i = 1 To 4'总共只有1234这个4个数,循环4次
Text1.Text = Text1.Text & Space(ii - i)'每行前面的空格数
iiitmp = iii'临时变量
Do Until iii = 0'每行输出的数字多少都不一样这次是递增
Text1.Text = Text1.Text & i
iii = iii - 1
Loop
iii = iiitmp + 2'增值为2
Text1.Text = Text1.Text & vbCrLf
Next i
ii = 1
iii = 5
For i = 3 To 1 Step -1
Text1.Text = Text1.Text & Space(ii)
iiitmp = iii
Do Until iii = 0
Text1.Text = Text1.Text & i
iii = iii - 1
Loop
iii = iiitmp - 2
Text1.Text = Text1.Text & vbCrLf
ii = ii + 1
Next i
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
For i = 1 To 7 Step 2
Print Space((7 - i) / 2);
For j = 1 To i
Print "*";
Next j
Print
Next i
End Sub