实验三 基本控制结构
一、实验目的
1．掌握赋值语句的使用。
2．掌握数据的基本输入与输出方法。 3．掌握顺序结构程序的编写与运行。
4．掌握选择结构程序的编写与运行。熟练使用If语句实现单分支、双分支选择结构，用If语句或Select Case语句实现多分支选择结构。
5．掌握循环结构程序的编写与运行。熟练使用For计数型循环语句实现循环次数已知的循环结构；熟练使用Do…Loop条件型循环语句实现循环次数事先无法确定的循环结构。
二、实验内容
实验3.1 求圆的面积及其圆柱体的体积。 【实验要求】
1. 运行界面如图3-1所示。运行开始时，在文本框1中输入圆的半径，在文本框2中输入圆柱体的高。圆柱体以所输入的圆为底面。
2. 单击“求圆面积”命令按钮后，在文本框3中显示圆的面积；单击“求圆柱体积”命令按钮后，在文本框4中显示圆柱的体积。
图3-1 实验3.1运行界面
【实验步骤】 1．界面设计
（1）在窗体Form1中添加四个文本框控件Text1~Text4，并分别把它们的Text属性设置为空白。
（2）在窗体Form1中添加四个标签Label1~Label4，并分别把它们的Caption属性设置为“圆的半径”、“圆柱的高”、“圆的面积”与“圆柱的体积”。
（3）在窗体Form1中添加二个命令按钮Command1、Command2，并分别把它们的
- 6 -
Caption属性设置为“求圆面积”与“求圆柱体积”。
2．编写代码
（1）双击窗体Form1的空白处，进入代码窗口。
（2）在“求圆面积”命令事件过程中编写计算圆面积的程序。 （3）在“求圆柱体积”命令事件过程中编写计算圆柱体积的程序。 3．运行程序。
提示：从文本框中返回的数据是字符型的，使用前要通过Val函数将其转换为数值型数据。
实验3.2 判断任意三条边能否构成一个三角形。 【实验要求】
1. 分别使用三条InputBox()函数输入三条边，格式如图3-2(c)所示。
2. 如果输入的三条边能构成一个三角形，则在窗体上显示所输入的三条边，如图3-2(a)所示。
3. 如果输入的三条边能构成一个三角形，则用MsgBox()函数按图3-2(b)的形式给出出错信息，此时，用户如果点击“重试”按钮，则返回主界面；点击“取消”按钮，则结束程序。
图3-2(a) 运行界面 图3-2(b) 出错提示
图3-2(c) 输入界面
【实验步骤】
1．在窗体上创建一个命令按钮，将其Caption修改为“输入三条边”，如图3.2(a)所示。 2．在命令按钮的Click事件过程中编写三条边的输入与判断程序。 3．运行程序。 提示：
（1）在MsgBox()函数中，显示按钮“重试”与“取消”的按钮值为5，显示警告图标“!” 按钮值为48。
- 7 -
（2）结束程序可使用命令End。 实验3.3 编写一个网吧收费程序。 【实验要求】
1. 运行界面如图3-3所示。 2. 网吧基本收费为2元/小时。
3. 根据不同的上机时数x，上机费用y可以按以下公式计算收费：
?2*x?2*0.9x?y = ??2*0.8x??2*0.75x x<3 3?x<5 5?x<1010?x
图3-3 实验3.3运行界面
【实验步骤】 1．界面设计。
（1）在窗体Form1中添加两个文本框Text1与Text2 ，并分别把它们的Text属性设置为空白。
（2）在窗体Form1中添加两个标签Label1与Label2 ，并分别把它们的Caption属性设置为“上机时数”与“上机费用”。
（3）在窗体Form1中添加命令按钮Command1，将其Caption属性设置为“计费”。 2．在“计费”按钮的Click事件过程中编写代码。 3．运行程序。
实验3.4 输入某学生的某科目考试成绩（100分制），输出该生的成绩等级。90分以上为“优秀”，80~89分为“良好”，70~79分为中等，60~69分为“及格”，60分以下为“不及格”。
【实验要求】
1. 运行界面如图3-4所示。
2. 运行开始时，在文本框1中输入某学生的某科目成绩，单击“输出成绩等级”命令按钮后，在文本框2中输出相应的成绩等级。
图3-4 实验3.4运行界面 - 8 -
【实验步骤】 1．界面设计。
（1）在窗体Form1中添加两个文本框控件Text1与Text2，并分别把它们的Text属性设置为空白。
（2）在窗体Form1中添加两个标签Label1与Label2，并分别把它们的Caption属性设置为“请输入成绩”与“成绩等级为”。
（3）在窗体Form1中添加命令按钮Command1，将其Caption属性设置为“输出成绩等级”。
2．在“成绩等级”按钮的Click事件过程中编写代码。 3．运行程序。 提示：
该计算是一个多分支选择结构，可用If语句或Select Case语句实现。用Select Case语句实现的代码格式为：
Private Sub Command1_Click() Select Case Val(Text1) Case Is >= 90
Text2 = \优秀\
Case Is >=80
… End Select End Sub
实验3.5 设计一个四则运算的自我练习应用程序，如图3-5所示。 Text2 Text1 Text4 Picture1 Text3
图3-5 实验3.5运行界面
Picture2 【实验要求】
1．程序执行时，当用户在文本框Text1中输入一种运算符后，要求在图形框Picture1中立即出现该运算符号。
2．当单击“出题”命令按钮后，要求分别在文本框Text2、Text3中产生两个1~100之间的随机整数。即由Text2、Picture1 与Text3组成一个表达式。
3．用户根据题目进行计算，并把计算结果填入到文本框Text4中。
- 9 -
4．单击“判断”命令按钮可判断输入的结果是否正确，并在Picture2中显示“正确”或“错误”提示提示信息。
5．单击“答案”命令按钮后，在文本框Text4中显示题目的正确答案。 6．用户欲停止自我练习，单击“退出”命令按钮，程序便结束运行。 【实验步骤】
1．按图3-5设计界面，具体步骤略。
2．在各命令按钮的Click事件过程中编写相应的功能代码。 3．运行程序。 提示：
（1）每次在Text1中输入“+”、“-”、“*”、“/”等运算符号时，在Picture1中立即出现相应的运算符号，可以在Text1的Change事件过程中实现，先使用Cls方法对Picture1清屏，再在Picture1中显示Text1中相应的符号。
（2）产生两个1~100之间的随机整数，可以使用公式：
Int(Rnd*(数值上限-数值下限+1)+数值下限)
（3）编写“答案”或“判断”程序时，要使用多分支选择结构语句（If语句或Select语句）来实现，即根据Text1中所输入的运算符号执行相应的运算，例如：
Select c Case Text1
Case \ …
Case \-\ … End Select
4. 在计算程序中要注意数据类型的转换，即必须通过Val函数把文本框中的数字文本转换成数值型数据后，才能进行四则运算。
5．当运算为除法时，要避免除数为0的现象出现，并且除法结果有可能是一个实数，这时，要求用户输入的结果和计算机计算的结果必须有着相同的小数位数，否则会出现“判断”错误。
实验3.6 求Sn?2?22?222?...?222...2222。
n【实验要求】
1．计算前，使用InputBox()函数让用户输入n值。 2．单击窗体后，在窗体上按图3-6的形式输出计算结果。
图3-6 实验3.6运行界面
- 10 -