第4章控制结构与过程_1.pptVIP

* * Visual Basic程序设计教程 * * 改进例题4-11 输入一个正整数N，单击窗体，则输出0~N之间能被3整除的数，每输出10个数，换行一次。 Visual Basic程序设计教程 * * Private Sub Form_Click() Dim n As Integer, y As Integer, k As Integer n = Val(InputBox(输入正整数N)) While y = n y = y + 1 If y Mod 3 = 0 Then Print y; k = k + 1 End If If k Mod 10 = 0 Then Print 换行 Wend End Sub Visual Basic程序设计教程 * * 【例4-12】在窗体上有两个标签框；两个文本框Text1和Text2；两个命令按钮Command1和Command2。编写程序，将用户在文本框Text1中输入的字符串的偶位数字符取出，组成一个新字符串，并在文本框Text2中输出。 Visual Basic程序设计教程 * * Private Sub Command1_Click() Dim p As Integer, n As Integer Dim s1 As String, s2 As String s1 = Trim(Text1.Text) n = Len(Trim(Text1.Text)) p = 1 Do While p = n If p Mod 2 = 0 Then s2 = s2 Mid(s1, p, 1) p = p + 1 Loop Text2.Text = s2 End Sub Visual Basic程序设计教程 * * 【例4.12】使用Do…Loop Until循环计算199~253之间的偶数和。用MsgBox语句显示结果。 Private Sub Form_Click() Dim x As Integer, s As Integer x = 200 Do s = s + x x = x + 2 Loop Until x 253 MsgBox 200+202+...+252= + Str(s) , , 偶数和 End Sub Visual Basic程序设计教程 * * 4.3.4 多重循环 如果循环体中包含有循环语句，就是多重循环。内层循环体还可以包含循环语句，就是三重循环，依此类推。多重循环又称循环的嵌套。 Visual Basic有3种格式的循环语句，嵌套可以是同类型的循环，也可以是不同类型的循环。如果某层循环内包含退出语句，当执行退出语句时，只能退出本层循环，使控制转移到本层循环终端语句的下一个语句。 Visual Basic程序设计教程 * * 【例4-13】For循环嵌套实例。 Private Sub Form_Click() Dim i As Integer, j As Integer For i = 1 To 5 Print Tab(3); For j = 1 To 5 Print + a; Trim(i) + Trim(j); Next j Print Next i End Sub Visual Basic程序设计教程 * * 常用算法举例 【例4.16】计算1/1！+1/2！+1/3！+…1/n! 之值。程序运行界面如图所示。 Visual Basic程序设计教程 * * Option Explicit Dim m As Integer ‘窗体变量 Private Sub Command1_Click() m = InputBox(请输入一个整数) End Sub Private Sub Command2_Click() Dim i As Integer, p As Long, s As Double p = 1 For i = 1 To m p = p * i s = s + 1 / p Next i Label1.Caption = 1/1!+1/2!+...+ 1/ m != s End Sub Visual Basic程序设计教程 * * 【例4.17】求1/1！+1/3！+1/5！+…