新VB程序设计案例教程（ ） 第4章 中文 VB 程序设计基础.pptVIP

第4章循环结构程序设计 【案例15】九九乘法表 【拓展案例35】100以内素数和2 【拓展案例36】两个数之间自然数的和2 【拓展案例37】求1！+3！+……+9！的值2 【拓展案例38】裴波纳契数列2 【案例17】求自然常数 【拓展案例39】两个数之间自然数的和3 【拓展案例40】求1！+3！+……+9！的值2 【拓展案例41】裴波纳契数列3【案例18】4个特殊自然数1【拓展案例42】4个特殊自然数2【拓展案例43】猜父子年龄【拓展案例44】三个有趣的整数【拓展案例45】字符菱形图案1【拓展案例46】字符菱形图案1【拓展案例47】50位精确加法计算 4.1 【案例15】九九乘法表 4.1.1 学习目的 “九九乘法表”程序运行后的画面如图4-1-1所示（还没有显示九九乘法表的内容），单击“九九乘法表1”按钮后的显示效果如图4-1-1所示，单击“九九乘法表2”按钮后的显示效果如图4-1-2所示，单击“九九乘法表3”按钮后的显示效果如图4-1-3所示，通过本案例的学习，可以了解循环结构的特点和For语句的基本使用方法，以及循环的嵌套等。 4.1.2 案例实现 （1）“九九乘法表”程序的界面设计有读者自行完成。 （2）在代码窗口内输入如下程序。 Private Sub Form_Activate() Dim N1, N2 As Integer 声明变量N1和 N2为整型变量 FontSize = 10 设置九九乘法表文字的大小 ForeColor = vbBlue 设置九九乘法表文字的颜色为蓝色 FontBold = False 设置九九乘法表文字为非粗体 End Sub Private Sub Command1_Click() Cls Print: Print: Print For N1 = 1 To 9 For N2 = 1 To N1 Print Tab(N2 * 12 - 12); Str$(N1) + × + Str$(N2) + ＝ + Str$(N1 * N2); Next N2 Print Next N1 End Sub Private Sub Command2_Click() Cls Print: Print: Print For N1 = 1 To 9 For N2 = 1 To 9 Print Tab(N2 * 12 - 12); Str$(N1) + × + Str$(N2) + ＝ + Str$(N1 * N2); Next N2 Print Next N1 End Sub Private Sub Command3_Click() Cls Print: Print: Print For N1 = 1 To 9 For N2 = N1 To 9 Print Tab(N2 * 12 - 12); Str$(N2) + × + Str$(N1) + ＝ + Str$(N2 * N1); Next N2 Print Next N1 End Sub 4.1.3 相关知识 循环结构是在一定条件下反复执行某段程序的流程结构，它是由循环语句来实现的。被反复执行的语句被称为循环体。For Next循环语句是VB6.0语言中最常用、功能最强、使用最灵活的循环语句。 1．For Next语句的格式与功能 【格式】 For 循环变量=初值 To 终值 [Step 步长值] [循环体语句序列] Next [循环变量] 【功能】（1）执行For语句时，计算初值、终值和步长值各数值型表达式的值，将初值赋给循环变量。然后将循环变量的值与终值进行比较，如果循环变量的值没超出终值，则执行循环体语句序列的语句，否则执行Next下面的语句。 （2）执行Next语句时，将循环变量的值与步长值相加，再赋给循环变量，然后将循环变量的值与终值进行比较，如果循环变量的值没超出终值，则执行循环体语句序列的语句，否则执行Next下面的语句。 （3）若步长值为正数，则循环变量的值大于终值时为超出；若步长值为负数，则循环变量的值小于终值时为超出。 For Next语句的流程图如图4-1-4所示。 【说明】（1）如果没有关键字Step和其后的步长值，则默认步长值为1。 （2）循环变量是数值型变量，初值、终值和步长值都是数值型的常量、变量或表达式，但不能是数组的数组元素。 （3）在