字塔” 的层数,而Start用来指定“塔顶”的位置。调用时只要给出这两个参数,就可 以输出指定层数的“金字塔”。
(3)在窗体Form1上画1个文本框和3个按钮,把文本框的MultiLine属性设置为 True,如图10.4所示。
(4)编写该窗体的代码: Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load Me.Text = "显示数字金字塔(1)" Button1.Text = "显示" Button2.Text = "另一窗体" Button3.Text = "结束" End Sub Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click SS = DigOut(10, 25) TextBox1.Text = CL &; SS End Sub
Private Sub Button2_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button2.Click Me.Hide() F2.Show() End Sub Private Sub Button3_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button3.Click End End Sub 窗体的Load事件过程用来设置窗体及按钮的