计算机vb编程

来源：百度知道 编辑：UC知道 时间：2024/06/20 02:44:14
编写一个无参数SUB过程TRIANGLE，在窗体上输出用*组成的如下图所示的三角形图案。
*
* * *
* * * * *
* * * * * * * *
还要用两种方式调用，直接调用和CALL调用

提供两种不同风格的三角形图案打印程序

打印等腰的三角形图案：
Private Sub TRIANGLE()
Dim n%, i%, j%

n = 4 '表示总共4行

For i = 1 To n
For j = 1 To n + i - 1
Print IIf(j <= n - i, Space(2), "* ");
Next j
Print
Next i
End Sub

Private Sub Command1_Click()
TRIANGLE
End Sub

打印直角的三角形图案：
Private Sub TRIANGLE()
Dim n%, i%, j%

n = 4 '表示总共4行
For i = 1 To n
For j = 1 To 2 * i - 1
Print "* ";
Next j
Print
Next i
End Sub

Private Sub Command1_Click()
TRIANGLE '这是直接调用
Print
Call TRIANGLE '这是Call调用
End Sub

Sub TRIANGLE()
Dim i As Integer
Dim j As Integer
For i = 1 To 4
For j = 1 To 4 - i
Print " ";
Next j
For j = 1 To i * 2 - 1
Print "*";
Next j
Print
Next i

End Sub

Private Su