专业：
年级： 姓名： 学号：
实验四 循环结构程序设计
一、实验目的
1．掌握循环结构程序设计方法。
2．掌握For循环语句、Do循环语句以及While循环语句的使用方法。 3．掌握循环多重循环的条件设置及其使用方法。 4．掌握如何控制循环条件，防止死循环或不循环。 5．掌握计时器和滚动条的常用属性、方法和事件。
二、实验内容与操作
1．打开工程文件Dsg0401.vbp，在标题为“整除求和”的窗体Form1上，添加一个标题 为“请输入整数n”的标签Label1；然后再添加一个标题为“求和”的命令按钮Command1； 接着再添加一个文本内容为空的文本框Text1；最后添加一个标题为空、有边框的标签Label2。程序运行时，在Text1中输入一个整数n，单击“求和”按钮，求1～n之间能被3整除，但不能被7整除的所有整数之和，并将求和结果显示在Label2中，运行界面如图4-1所示。完成上述功能后，以原文件名保存窗体（Dsg0401.frm）和工程（Dsg0401.vbp）。
图 4-7 整除求和的运行界面
【操作步骤】
（1）创建用户界面 选择“文件”→“打开工程”命令，在“打开工程”的对话框中选择“Dsg0401.vbp”
工程文件。接着在窗体Form1上添加两个标签、一个命令按钮和一个文本框，然后用鼠标调
整各个控件的大小和位置，调整后的控件布局如图4-2（a）所示。
（2）设置对象属性 根据设计要求，按表 4-1 所示的值设置各个控件对象的属性，设置后的界面如图4-2（b） 所示。
表 4-1 整除求和的对象属性设置
对象 窗体 标签 对象名称 Form1 Label1 Caption Caption Caption BorderStyle 属性 属性值 标签 命令按钮 文本框 Label2 Command1 Text1 Caption Text 整数求和 请输入整数n 空 1-fixed-single 求和 空
（a）控件布局
图 4-2 整除求和的设计界面
（b）属性设置
（3）编写程序代码
在“求和”按钮的Click事件过程中编写代码。
Private SubCommand1_Click()
n = Val(Text1.Text) sum = 0
For i = 1 To n
If n >= 1 And (i Mod 3 = 0 And i Mod 7 <> 0) Then sum = sum + i Next i
Label2.Caption = Str(sum)
EndSub （4）保存工程 选择“文件”→“保存工程”命令，或者单击工具栏的“保存工程”按钮保存窗体
文件和工程文件。
（5）生成可执行文件
，
- 30 -
选择“文件”→“Dsg0401.exe”命令，生成可执行程序文件。
2．打开工程文件Dsg0402.vbp，在标题为“最大公约数”的窗体Form1上，添加两个标题分别为“整数m”和“整数n”的标签Label1和Label2；然后再添加3个文本内容为空的文本框Text1、Text2和Text3；最后添加一个标题为“求解”的命令按钮Command1。 程序运行时，在Text1和Text2中分别输入正整数m和n，单击“求解”按钮，求m和n 的最大公约数，并在 Text3 中显示求解结果，运行界面如图 4-3所示。完成上述功能后， 以原文件名保存窗体（Dsg0402.frm）和工程（Dsg0402.vbp）。
图 4-3 最大公约数的运行界面
【操作步骤】
（1）创建用户界面 选择“文件”→“打开工程”命令，在“打开工程”的对话框中选择“Dsg0402.vbp”
工程文件。接着在窗体Form1上添加两个标签、3个文本框和一个命令按钮，然后用鼠标调 整各个控件的大小和位置，调整后的控件布局如图4-4（a）所示。
（2）设置对象属性 根据设计要求，按表 4-2 所示的值设置各个控件对象的属性，设置后的界面如图4-4（b） 所示。
表 4-2 最大公约数的对象属性设置
对象 窗体 标签 标签 文本框 文本框 文本框 命令按钮 Form1 Label1 Label2 Text1 Text2 Text3 Command1 对象名称 Caption Caption Caption Text Text Text Caption 属性 属性值 最大公约数 整数m 整数n 空 空 空 求解
- 31 -
（a）控件布局
图 4-4 最大公约数的设计界面
（b）属性设置
（3）编写程序代码
在“求解”按钮的Click事件过程中编写代码。
Private SubCommand1_Click()
m = Val(Text1.Text) n = Val(Text2.Text) r = m Mod n
Do While r <> 0 m = n n = r
r = m Mod n Loop
Text3.Text = Str(n)
EndSub （4）保存工程 选择“文件”→“保存工程”命令，或者单击工具栏的“保存工程”按钮保存窗体
文件和工程文件。
（5）生成可执行文件 选择“文件”→“Dsg0402.exe”命令，生成可执行程序文件。
，
3．打开工程文件Dsg0403.vbp，在标题为“素数累加”的窗体Form1上添加两个标题分别为“整数m”和“整数n”的标签Label1和Label2；然后再添加3个文本内容为空的文本框Text1、Text2和Text3；最后添加一个标题为“求和”的命令按钮Command1。程序运行时，在Text1和Text2中分别输入正整数m和n（其中n＞m≥2），单击“求和”按钮，求m～n之间全部素数之和，并将求和结果显示在Text3中，运行界面如图4-5所示。完成上述功能后，以原文件名保存窗体（Dsg0403.frm）和工程（Dsg0403.vbp）。
图 4-5 素数累加的运行界面
【操作步骤】
（1）创建用户界面
- 32 -
选择“文件”→“打开工程”命令，在“打开工程”的对话框中选择“Dsg0403.vbp” 工程文件。接着在窗体Form1上添加两个标签、3个文本框和一个命令按钮，然后用鼠标调 整各个控件的大小和位置，调整后的控件布局如图4-6（a）所示。
（2）设置对象属性 根据设计要求，按表 4-3 所示的值设置各个控件对象的属性，设置后的界面如图4-6（b） 所示。
表 4-3 素数累加的对象属性设置
对象 窗体 标签 标签 文本框 文本框 文本框 命令按钮 Form1 Label1 Label2 Text1 Text2 Text3 Command1 对象名称 Caption Caption Caption Text Text Text Caption 属性 属性值 素数累加 整数m 整数n 空 空 空 求和
（a）控件布局
图 4-6 素数累加的设计界面
（b）属性设置
（3）编写程序代码
在“求和”按钮的Click事件过程中编写代码。
Private SubCommand1_Click()
- 33 -