实验四.docx

专业：年级：姓名：学号：实验四循环结构程序设计一、实验目的1掌握循环结构程序设计方法。2掌握 For 循环语句、Do 循环语句以及 While 循环语句的使用方法。3掌握循环多重循环的条件设置及其使用方法。4掌握如何控制循环条件，防止死循环或不循环。5掌握计时器和滚动条的常用属性、方法和事件。二、实验内容与操作1打开工程文件 Dsg0401.vbp，在标题为“整除求和”的窗体 Form1 上，添加一个标题 为“请输入整数 n”的标签 Label1；然后再添加一个标题为“求和”的命令按钮 Command1； 接着再添加一个文本内容为空的文本框 Text1；最后添加一个标题为空、有边框的标签 Label2。 程序运行时，在 Text1 中输入一个整数 n，单击“求和”按钮，求 1n 之间能被 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 整除求和的对象属性设置对象对象名称属性属性值窗体Form1Caption整数求和标签Label1Caption请输入整数n标签Label2Caption空BorderStyle1-fixed-single命令按钮Command1Caption求和文本框Text1Text空（a）控件布局（b）属性设置图 4-2 整除求和的设计界面（3）编写程序代码在“求和”按钮的 Click 事件过程中编写代码。Private Sub Command1_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)End Sub（4）保存工程 选择“文件”“保存工程”命令，或者单击工具栏的“保存工程”按钮 ，保存窗体文件和工程文件。（5）生成可执行文件- 39 -选择“文件”“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 最大公约数的对象属性设置对象对象名称属性属性值窗体Form1Caption最大公约数标签Label1Caption整数m标签Label2Caption整数n文本框Text1Text空文本框Text2Text空文本框Text3Text空命令按钮Command1Caption求解（a）控件布局（b）属性设置图 4-4 最大公约数的设计界面（3）编写程序代码在“求解”按钮的 Click 事件过程中编写代码。Private Sub Command1_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)End Sub（4）保存工程 选择“文件”“保存工程”命令，或者单击工具栏的“保存工程”按钮 ，保存窗体文件和工程文件。（5）生成可执行文件 选择“文件”“Dsg0402.exe”命令，生成可执行程序文件。3打开工程文件 Dsg0403.vbp，在标题为“素数累加”的窗体 Form1 上添加两个标题分 别为“整数 m”和“整数 n”的标签 Label1 和 Label2；然后再添加 3 个文本内容为空的文本 框 Text1、Text2 和 Text3；最后添加一个标题为“求和”的命令按钮 Command1。程序运行时， 在 Text1 和 Text2 中分别输入正整数 m 和 n（其中 nm2），单击“求和”按钮，求 mn 之间全部素数之和，并将求和结果显示在 Text3 中，运行界面如图 4-5 所示。完成上述功能后， 以原文件名保存窗体（Dsg0403.frm）和工程（Dsg0403.vbp）。图 4-5 素数累加的运行界面【操作步骤】（1）创建用户界面选择“文件”“打开工程”命令，在“打开工程”的对话框中选择“Dsg0403.vbp” 工程文件。接着在窗体 Form1 上添加两个标签、3 个文本框和一个命令按钮，然后用鼠标调 整各个控件的大小和位置，调整后的控件布局如图 4-6（a）所示。（2）设置对象属性根据设计要求，按表 4-3 所示的值设置各个控件对象的属性，设置后的界面如图 4-6（b） 所示。表 4-3 素数累加的对象属性设置对象对象名称属性属性值窗体Form1Caption素数累加标签Label1Caption整数m标签Label2Caption整数n文本框Text1Text空文本框Text2Text空文本框Text3Text空命令按钮Command1Caption求和（a）控件布局（b）属性设置图 4-6 素数累加的设计界面（3）编写程序代码在“求和”按钮的 Click 事件过程中编写代码。Private Sub Command1_Click()m = Val(Text1.Text)n = Val(Text2.Text)s = 0For i = m To nflag = TrueFor j = 2 To i - 1 If i Mod j = 0 Then flag = False Exit For End IfNext jIf flag Then s = s + i End IfNext iText3.Text = Str(s) End Sub（4）保存工程 选择“文件”“保存工程”命令，或者单击工具栏的“保存工程”按钮 ，保存窗体文件和工程文件。（5）生成可执行文件 选择“文件”“Dsg0403.exe”命令，生成可执行程序文件。4打开工程文件 Dsg0404.vbp，在标题为“动画设置”的窗体 Form1 上，添加一个标 题为空、带有边框的标签 Label1，其高度为 400、宽度为 400、左边距为 100；然后再添加 两个标题分别为“移动”和“停止”的命令按钮 Command1 和 Command2；最后添加一个计 时器控件 Timer1，其事件间隔时间为 1 秒，计时器处于非激活状态。程序运行时，单击“移 动”按钮，Label1 每隔 1 秒向右移动 100；单击“停止”按钮，Label1 停止移动并退回到左 边距为 100 的位置，运行界面如图 4-7 所示。完成上述功能后，以原文件名保存窗体（Dsg0404.frm）和工程（Dsg0404.vbp）。（a）移动（b）停止图 4-7 动画设置的运行界面【操作步骤】（1）创建用户界面 选择“文件”“打开工程”命令，在“打开工程”的对话框中选择“Dsg0404.vbp”工程文件。接着在窗体 Form1 上添加一个标签、两个命令按钮和一个计时器，然后用鼠标调 整各个控件的大小和位置，调整后的控件布局如图 4-8（a）所示。（2）设置对象属性根据设计要求，按表 4-4 所示的值设置各个控件对象的属性，设置后的界面如图 4-8（b） 所示。表 4-4 动画设置的对象属性设置对象对象名称属性属性值窗体Form1Caption动画设置标签Label1Caption空Height405Width405Left100命令按钮Command1Caption移动命令按钮Command2Caption停止续表对象对象名称属性属性值计时器Timer1Interval1000EnabledFalse（a）控件布局（b）属性设置图 4-8 动画设置的设计界面（3）编写程序代码 在“移动”按钮的 Click 事件过程中编写代码。Private Sub Command1_Click()Timer1.Enabled = TrueEnd Sub 在“停止”按钮的 Click 事件过程中编写代码。Private Sub Command2_Click()Timer1.Enabled = FalseLabel1.Left = 100End Sub 在计时器的 Timer 事件过程中编写代码。Private Sub Timer1_Timer() Label1.Move (Label1.Left + 100) End Sub（4）保存工程 选择“文件”“保存工程”命令，或者单击工具栏的“保存工程”按钮 ，保存窗体文件和工程文件。（5）生成可执行文件 选择“文件”“Dsg0404.exe”命令，生成可执行程序文件。5打开工程文件 Dsg0405.vbp，在标题为“求和运算”的窗体 Form1 上，添加一个标 题为“10”、带有边框的标签 Label1；接着再添加一个水平滚动条 HScroll1，其最大值为 100， 最小值为 1，当前值为 10；然后再添加一个标题为“求和”的命令按钮 Command1；最后添 加一个文本内容为空的文本框 Text1。程序运行时，当拖动 HScroll1 滑块时，滑块的当前 值显示在 Label1 中，如图 4-9（a）所示；单击“求和”按钮，以 Label1 中的值为 n，计算 表达式 1+(1+2)+(1+2+3)+(1+2+3+n)之和，并在 Text1 显示计算结果，如图 4-9（b） 所示。完成上述功能后，以原文件名保存窗体（Dsg0405.frm）和工程（Dsg0405.vbp）。（a）拖动滑块（b）求和图 4-9 求和运算的运行界面【操作步骤】（1）创建用户界面 选择“文件”“打开工程”命令，在“打开工程”的对话框中选择“Dsg0405.vbp”工程文件。接着在窗体 Form1 上添加一个标签、一个水平滚动条、一个命令按钮和一个文本 框，然后用鼠标调整各个控件的大小和位置，调整后的控件布局如图 4-10（a）所示。（2）设置对象属性根据设计要求，按表 4-5 所示的值设置各个控件对象的属性，设置后的界面如图 4-10（b） 所示。表 4-5 求和运算的对象属性设置对象对象名称属性属性值窗体Form1Caption求和运算标签Label1Caption10BorderStyle1-fixed4321-single水平滚动条HScroll1Min1Max100Value10命令按钮Command1Caption求和文本框Text1Text空（a）控件布局（b）属性设置图 4-10 求和运算的设计界面（3）编写程序代码 在水平滚动条的 Scroll 事件过程中编写代码。Private Sub HScroll1_Scroll()Label1.caption=hscroll1.valueEnd Sub 在“求和”按钮的 Click 事件过程中编写代码。Private Sub Command1_Click()Dim sum As Double, fac As Double, n A