第05章循环结构程序设计.ppt

Visual Basic 第五章 循环结构程序设计 题型：打印图形 题型：打印图形 Private Sub Form_Click() Dim s As String * 8, i As Integer s = ******** Print: Print For i = 1 To 8 Print Tab(10 + i); s Next i End Sub 题型：打印图形 分析：1）首先确定图形中心线位置——第20个字符处。 2）将第 n 行的起始打印位置，表示为行号 n 的函数，起始打印位置 = F(21 - n) 。 3）将第 n 行打印星号的个数，表示为行号 n 的函数， 星号个数 = F(2 * n - 1) 。 4）可先将一个有十五个星号的字符串赋给串变量 S，打印时取其子串输出。 题型：打印图形 程序如下： Private Sub Form_Click() Dim s As String, i As Integer s = *************** For i = 1 To 8 Print Tab( 21 – i ); Left( s, 2 * i – 1 )