信息学院 软件工程教研室
试 验 报 告（6）
院（系）： 课程名称： 日期： 班级 专业 实验 名称 所用 软件 实 验 目 的 或 要 求 实 验 步 骤 、 心 得 体 会 学号 姓名 实验室 计算机号 成绩评定 教师签名 VB控制结构（顺序结构和选择结构） VB6.0 1.掌握数据的动态输入InputBox和信息提示MsgBox； 2.掌握逻辑表达式及关系表达式的正确书写形式。 3.掌握IF语句写格式及其正确使用。 4.掌握情况控制语句的使用及与多分支条件语句的区别。 1、在窗体中添加一个名称为Command1的命令按钮，然后编写如下代码： Private Sub Command1_Click() a = InputBox(\请输入A的值\a = Val(a) b = InputBox(\请输入B的值\b = Val(b) x = InputBox(\请输入X的值\x = Val(x) a = a + b + x Print a End Sub 程序运行后，单击命令按钮，依次在输入对话框中输入 1
信息学院 软件工程教研室
Select Case x Case 1, 3 Print \分支1\Case Is > 4 Print \分支2\Case Else Print \分支'\End Sub 程序运行后，如果在输入对话框中输入2，则窗体上显示的是_____________。 3、下列语句正确的是( ) A.If A ≠B Then Print″A不等于B″ B.If A < >B Then Printf″A不等于B″ C.If A < >B Then Print″A不等于B″ D.If A ≠B Print″A不等于B″ 4、计算z的值，当x大于y时，z=x；否则z=y。下列语句错误的是( ) A.If x>=y Then z=x:z=y B.If x>=y Then z=x Else z=y C.z=y:If x>=y Then z=x D.If x<=y Then z=y Else z=x 5、有下面一个程序段，从文本框中输入数据，如果该数据满足条件，除以4余1，除以5余2，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。? Private Sub Command1_Click()? x=Val(Text1.Text)? If__________Then? Print x? Else? Text1.Text=″″? __________? End If? End Sub 6、下列程序的功能是：当x<50时，y=0.8?x；当50≤x≤100时，y=0.7×x；当x＞100时，没有意义。请填空。? Private Sub Command1_Click()? Dim x As Single? 第 2 页 共 6 页
信息学院 软件工程教研室
x=InputBox(″请输入x的值！″)?? _________? Case Is<50? y=0.8 * x? Case __________? y=0.7 * x? __________? Print″输入的数据出界！″? End Select? Print x,y? End Sub 7、输入矩形的长和宽，计算面积，要求对输入的长和宽进行合法性检查，调用Isnumeric函数。（如果非法输入则将对应文本框的内容清除，可以重新输入。） 注：在检测到是非法输入时，可尝试用msgbox过程给用户一个提示：msgbox“输入非法”，，“实验6” 1)界面设计 2）代码编辑 第 3 页 共 6 页
信息学院 软件工程教研室
8、已知学号由9个数码组成，如032343001，其中从左算起前2位表示年级，第5个数码表示学生类型，学生类型规定：2----博士生，3----硕士生，4----本科生，5----专科生；设计程序，从文本框(text1)中输入一个学号，单击按钮(command1)后在另外两个文本框中显示该生的年级(text2)及学生类型(text3)。 提示： 要用到字符串操作函数对学号（032343001），进行取字串，然后判断。 例如： X=text1.text ‘ x中是学号字符串 第5个数码表示学生类型，则mid(x,5,1),将字符串中第五个字符取出，如果取出的字符是4----本科生，进行判断后在text3中显示 If mid(x,5,1)=4 then text3.text=”本科生” 1）界面设计 2）代码编辑 第 4 页 共 6 页
信息学院 软件工程教研室
9、输入三个数（x,y,z），通过编程，使得x>y>z,然后将排序好的数列输出。（用两种方法） 1）界面设计 2）代码编辑 方法一 方法二 10、编写一个程序，输入上网时间并且计算上网费用，计算方法 基数30元 上网时间<10小时 费用= 每小时2.5元 上网时间10~50小时 每小时2元 上网时间>=50小时 同时为了鼓励多上网，每月收费做多不超过150元。 1）界面设计 第 5 页 共 6 页
信息学院 软件工程教研室
2）代码编辑 心得体会：（可以从以下几个方面来总结：你在上机过程中遇到了哪些难题？你是怎么克服的？你对你的程序的评价？你的收获有哪些？你有什么没有解决的问题？等） 第 6 页 共 6 页