VB6.0计算机二级~在窗口打印出三角形与菱形

1、运行vb6.0软件。

3、双击任意一个commandbutton控件打开代码窗口，输入代码！

5、Private Sub Command2_Click() Dim i As Integer, j As Integer, n As Integer n = V锾攒揉敫al(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 Print 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 Print 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 Print Next i For i = n To 1 Step -1 Print Tab(n - i + 1); For j = 1 To 2 * i - 1 Print "*"; Next j Print Next i End IfEnd Sub

6、Private Sub Command3_Click() Form1.Cls '清屏代码。End Sub