第2章VisualBasic60编程基础(第二部分).pptVIP

【案例2-17】 打印等腰三角形 在同一窗体建立两个过程，Triangle是通用过程，Form_Click是窗体事件过程，执行程序时，单击窗体将在窗体显示两个等腰三角形，如图所示。 Private Sub triangle(Str As String, n As Integer) Dim i As Integer, j As Integer For i = l To n Print Tab(16 - i); For j = 1 To 2 * i - 1 Print Str; Next j Print Next i End Sub Private Sub Form_Click() Dim char As String * 1, n As Integer char = * n = 5 Call triangle(char, n) char = + triangle char, 3 End Sub 2.9.3 Function函数过程 Visual Basic 6.0包含内置的或内部的函数，如Sqr，Cos或Chr。此外，还可用Function语句编写自己的Function函数过程。 与Sub过程一样，Function过程