实验六循环结构程序设计.docVIP

实验六 循环结构程序设计 一、实验目的 1. 掌握For...Next循环的使用，正确使用循环变量控制For...Next循环的起始和结束。 2. 掌握While...Wend循环的使用。 3. 熟悉Do…Loop循环的使用。 4. 掌握多重循环的应用。 二、实验内容 1. 用For...Next循环制作可打印的ASCII码字符对照表 2. 用For...Next循环及其嵌套制作九九乘法表，使其以三种方式（全部、下三角、上三角）显示。 3. 用Do...Loop循环限制用户输入有效数据。 4. 用While...Wend循环编制一个计算人口增长数据的程序。 三、实验步骤及指导 1. 制作ASCII码对照表 ASCII码（美国信息交换标准码）是7位二进制字符集，用来表示标准美制键盘上的字母、符号以及控制字符。其中，可打印字符的编码值范围为32～126（32=空格）。利用Chr函数可以将字符代码转换为对应的字符。 （1）设计界面 程序的界面很简单，窗体上无任何控件。将窗体的背景色设为白色，Caption属性设为“ASCII码表”。 （2）编写代码 由于可打印字符的ASCII码对照表具有明确的起止范围，因此，很适于用For…Next循环制作。单击窗体时，在循环中用Print方法将ASCII字符及其代码直接显示在窗体上，格式为“字符=字符代码”，每行显示8个字符。 程序运行效果如图6-1所示。 图6-1 ASCII码对照表 程序代码如下： Option Explicit Private Sub Form_Click() Dim intASC As Integer, i As Integer Cls Print Me.FontSize = 10 Print Tab(29); ASCII码对照表 Me.FontSize = 9 Print ; String$(79, -) String函数返回指定数目的重复字符 ASCII码32-126是可打印字符。Chr函数将ASCII码转换为对应字符 For intASC = 32 To 126 intASC为循环变量 Print Tab(10 * i + 3); Chr(intASC); =; intASC; i = i + 1 If i = 8 Then 每行显示8个ASCII码 i = 0 Print End If Next intASC Print vbCr; ; String$(79, -) vbCr代表回车 End Sub 2. 制作“九九乘法表” 用三种方式（全部、下三角、上三角）显示“九九乘法表”。 （1）设计界面及设置属性 在窗体上放置一个图片框，设背景色为白色。添加四个命令按钮，Caption属性分别为“全部”、“下三角”、“上三角”和“结束”。 （2）编写代码 “九九乘法表”具有明显的规律，由9行9列等式组成，若以变量i代表行号，变量j代表列号，则所有等式均可表示为：i * j = 乘积。三种显示方式（全部、下三角、上三角）的区别在于行或列中等式的个数不同。在“全部”显示方式下，所有的行、列中均含有9个等式。在“下三角”方式下，每行等式的个数等于该行的行号。在“上三角”方式下，每列等式的个数等于该列的列号。对这种具有明显行列规律的问题，通常采用For…Next双重循环解决。设外循环的循环变量为行号，内循环的循环变量为列号，在内循环中输出一行中的各列，退出内循环后行号加1，输出下一行。以下是程序变量定义以及Caption属性为“全部”的按钮单击事件过程的代码： Option Explicit Dim strS As String, i As Integer, j As Integer Private Sub Command1_Click() 全部 Picture1.Cls Picture1.Print vbCr; Tab(41); 九九乘法表 Picture1.Print String$(89, -) For i = 1 To 9 外循环变量为乘法表的“行” For j = 1 To 9 内循环变量为乘法表的“列” strS = i × j = i * j 行列相乘 Picture1.Print Tab((j - 1) * 10 + 3); strS; 显示 Next j Picture1.Print