第05章循环结构程序设计知识分享.ppt

题型：打印图形 题型：打印图形 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 ) Next i End Sub 题型：打印图形 题型：打印图形 程序如下： Private Sub Form_Click() Dim s As String, i As Integer s = 0123456789 Print: Print For i = 1 To 10 Print Tab(21 - i); String(2 * i - 1, Mid(s, i, 1)) Next i End Sub 题型：打印图形 题型：打印图形 程序如下： Private Sub Form_Click() Dim i As Integer Print: Print For i = 1 To 10 Print Tab(21 - i); String(2 * i - 1, Chr(47 + i)) Next i End Sub VB中的取整函数 语法： Int( 数值表达式 ) Fix( 数值表达式 ) Round( 数值表达式 [,小数点右边应保留的位数]) 功能：1）如果数值表达式的值为正， Int 和 Fix 都会删除其小数部份而返回剩下的整数。 2）如果数值表达式的值为负，则 Int 返回小于或等于其值的第一个负整数，而 Fix 则会返回大于或等于其值的第一个负整数。 3）Round将数值表达式的值四舍五入到 n 位小数。 例如： Int( 3.4 ) 3 Fix( 3.4 ) 3 Int( -3.4 ) -4 Fix( -3.4 ) -3 Round( -3.3456, 1 ) -3.3 Round( -3.3456, 2 ) -3.35 VB中的取整函数 0 3 4 -3 -4 题型：分拆数字 例题：求0～999之间所有的“水仙花”数。 例如：153=1^3+5^3+3^3 。 Dim i As Integer, a As Integer, b As Integer, c As Integer For i = 0 To 999 a = Int(i / 100) b = Int((i - a * 100) / 10) c = i - a * 100 - b * 10 If i = a * a * a + b * b * b + c * c * c Then Print i; Next i 题型：分拆数字 思考题 求1～100之间所有的“同构数”。 “同构数”是这样一种数：它出现在它的平方数的右端。例如：5的平方是25，5是25中右端的数，5就是同构数。25也是一个同构数，它的平方是625。 当型 Do 循环 Do While 逻辑表达式 … … … … … … … … … Loop 直到型 Do 循环 Do … … … … … … … … … Loop Until 逻辑表达式 循环的嵌套 在一个循环体内又包含了一个完整的循环，这样的结构称为多重循环或循环的嵌套。在程序设计时，许多问题要用二重或多重循环才能解决。 For循环、While循环、Do循环 都可以互