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

《VB程序设计案例教程（ ） 第4章 中文 VB 程序设计基础》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第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】

2、九九乘法表图4-1-1“九九乘法表”运行结果图4-1-3“九九乘法表”运行结果图4-1-2“九九乘法表”运行结果4.1.1学习目的“九九乘法表”程序运行后的画面如图4-1-1所示（还没有显示九九乘法表的内容），单击“九九乘法表1”按钮后的显示效果如图4-1-1所示，单击“九九乘法表2”按钮后的显示效果如图4-1-2所示，单击“九九乘法表3”按钮后的显示效果如图4-1-3所示，通过本案例的学习，可以了解循环结构的特点和For语句的基本使用方法，以及循环的嵌套等。4.1.2案例实现（1）“九九乘法表”程序的界面设计有读者自行完成。（2）在代码窗口内输入如下程序。Pr

3、ivateSubForm_Activate()DimN1,N2AsInteger'声明变量N1和N2为整型变量FontSize=10'设置"九九乘法表"文字的大小ForeColor=vbBlue'设置"九九乘法表"文字的颜色为蓝色FontBold=False'设置"九九乘法表"文字为非粗体EndSubPrivateSubCommand1_Click()ClsPrint:Print:PrintForN1=1To9ForN2=1ToN1PrintTab(N2*12-12);Str$(N1)+"×"+Str$(N2)+"＝"+Str$(N1*N2);NextN2Pri

4、ntNextN1EndSubPrivateSubCommand2_Click()ClsPrint:Print:PrintForN1=1To9ForN2=1To9PrintTab(N2*12-12);Str$(N1)+"×"+Str$(N2)+"＝"+Str$(N1*N2);NextN2PrintNextN1EndSubPrivateSubCommand3_Click()ClsPrint:Print:PrintForN1=1To9ForN2=N1To9PrintTab(N2*12-12);Str$(N2)+"×"+Str$(N1)+"＝"+Str$(N2*N1);

5、NextN2PrintNextN1EndSub4.1.3相关知识循环结构是在一定条件下反复执行某段程序的流程结构，它是由循环语句来实现的。被反复执行的语句被称为循环体。ForNext循环语句是VB6.0语言中最常用、功能最强、使用最灵活的循环语句。1．ForNext语句的格式与功能【格式】For循环变量=初值To终值[Step步长值][循环体语句序列]Next[循环变量]【功能】（1）执行For语句时，计算初值、终值和步长值各数值型表达式的值，将初值赋给循环变量。然后将循环变量的值与终值进行比较，如果循环变量的值没超出终值，则执行循环体语句序列的语句，否则执行N

6、ext下面的语句。（2）执行Next语句时，将循环变量的值与步长值相加，再赋给循环变量，然后将循环变量的值与终值进行比较，如果循环变量的值没超出终值，则执行循环体语句序列的语句，否则执行Next下面的语句。（3）若步长值为正数，则循环变量的值大于终值时为超出；若步长值为负数，则循环变量的值小于终值时为超出。ForNext语句的流程图如图4-1-4所示。图4-1-4ForNext语句流程图【说明】（1）如果没有关键字Step和其后的步长值，则默认步长值为1。（2）循环变量是数值型变量，初值、终值和步长值都是数值型的常量、变量或表达式，但不能是数组的数组元素。（3）

7、在循环体语句序列中可以加入ExitFor语句，执行该语句后会强制程序脱离循环，执行Next下面的语句。ExitFor语句通常放在选择结构语句之中使用。（4）如果出现循环变量的值总没有超出终值的情况，则会产生死循环。此时，可按Ctrl+Break键，强制终止程序的运行。（5）在ForNext循环语句的循环体语句序列中可以使用ExitFor语句，它的作用是退出该循环体，它一般用于循环体语句序列中的判断语句。2．ForNext语句的程序分析【实例4-1】程序运行结果如图4-1-5所示。程序如下。PrivateSubForm_Activate()FontSize=12F

8、orL=1To9Step