VB6.0计算机二级~在窗口打印出三角形与菱形
1、运行vb6.0软件。
2、新建一个工程，并且在窗口建立三个commandbutton控件，将其caption依次改为command1显示三角形，command1显示菱形， command1清屏。如图所示！
3、双击任意一个commandbutton控件打开代码窗口，输入代码！
4、Private Sub command1_Click()
Dim i As Integer, j As Integer, n As Integer
n = Val(InputBox("请输入行数！"))
For i = 1 To n
Print Tab(n + 1 - i);
For j = 1 To 2 * i - 1
Print "*";
Next j
Next i
End Sub
此代码显示等腰三角形！
5、Private Sub Command2_Click()
Dim i As Integer, j As Integer, n As Integer
n = Val(InputBox("请输入行数！"))
If n Mod 2 = 1 Then '当为奇数行时执行以下代码。
n = Int((n + 1) / 2)
For i = 1 To n
Print Tab(n + 1 - i);
For j = 1 To 2 * i - 1
Print "*";
Next j
Next i
For i = n - 1 To 1 Step -1
Print Tab(n - i + 1);
For j = 1 To 2 * i - 1
Print "*";
Next j
Next i
Else '当为偶数行时执行以下代码。
n = n / 2
For i = 1 To n
Print Tab(n + 1 - i);
For j = 1 To 2 * i - 1
Print "*";
Next j
Next i
For i = n To 1 Step -1
Print Tab(n - i + 1);
For j = 1 To 2 * i - 1
Print "*";
Next j
Next i
End If
End Sub
6、Private Sub Command3_Click()
Form1.Cls '清屏代码。
End Sub