贵州大学数据库理及应用的实验报告试题及答案1.doc

贵州大学实验报告 学院： 职业技术学院 专业：电子信息科学与技术 班级：电科091 姓名 学号 实验组 实验时间 指导教师 邬培 成绩 实验项目名称 vb 基本控制结构和选择控件 实验目的 掌握选择结构和应用 掌握循环结构和应用 掌握单选框、复选框、列表框、组合框、框架的使用 了解控件数组的应用使用 实验要求 熟悉 if语句、for语句的使用 熟悉各控件的属性、方法和事件。 掌握列表框、组合框的添加、删除的方法 按要求完成实验内容。 实验仪器 1、安装有VB6.0的计算机。 实验内容 单选框、复选框、选择结构的使用 根据如图所提示的界面，设计一个个人简历表。用户在文本框中输入姓名和年龄，选择性别、职业、学历和个人兴趣等个人信息。单击“提交”按钮运行后在右边的图片框中显示具体的个人信息；单击“重置”按钮，清除输入的信息和所做的选择。 提示：可以利用框架进行分组，利用单选框的控件数组实现单选框的选择。利用选择语句实现单选框和复选框的选取判断。 循环结构的应用 利用循环嵌套完成九九乘法表。界面如图所示。单击打印在图片框中打印出乘法表，单击退出，退出程序。 提示：用for循环的双重嵌套来实现。使用picture1.print方法实现图片框的打印。 列表框的使用、循环结构的使用 新建一个工程，完成“偶数迁移”程序的设计。界面如下图： 有两个列表框List1和列表框List2，单击“产生”按钮（Command1），计算机产生10个两位正整数放入列表框List1中。同时清空列表框List2中的内容。单击“选择”按钮（Command2），将列表框List1中所有偶数迁移到列表框List2中，并按数字大小排列，最后，将统计的个数显示在文本框中。 界面设计图 运行效果图 提示：1、利用循环语句完成list1的赋值，使用Rnd函数随机产生10个两位数,产生产生一个[N,M]范围内的整数 int（rnd*（m-n+1）+n）2、使用if语句和循环语句来控制复制到list2中的数据。2、使用list2.additem完成数据的赋值。 组合框和列表框的使用 完成一个选课系统的设置，界面如图所示。 有两个界面，第一个界面如图，两个组合框分别可以选择年级和专业，当选择了09级，电子信息科学与技术专业，单击确定按钮，弹出第二个界面。 第二个界面为选课界面。界面有两个列表框，list1显示可以选择的课程，选中课程后，单击选择按钮，或者双击该课程，课程就复制到list2列表框中。（限定最多只能选择3门课程，超过则弹出提示框）。单击重选则清除list2中的内容。单击删除按钮则删除list2中已经选中的内容。 提示：窗体的加载利用form2.show实现。列表框的添加利用list2.additem实现，删除利用list2.remove 实现。 实验步骤 简历 Dim xl, zy, xz1, xz2, xz3, xz4 As String Private Sub Check1_Click() If Check1.Value = 1 Then xz1 = Check1.Caption End If End Sub Private Sub Check2_Click() If Check2.Value = 1 Then xz2 = Check2.Caption End If End Sub Private Sub Check3_Click() If Check3.Value = 1 Then xz3 = Check3.Caption End If End Sub Private Sub Check4_Click() If Check4.Value = 1 Then xz4 = Check4.Caption End If End Sub Private Sub Command1_Click() Picture1.Print 姓名：; Text1.Text; Tab(1); 年龄：; Text2.Text; Tab(1); If Option1.Value = True Then xb = Option1.Caption End If If Option2.Value = True Then xb = Option2.Caption End If Picture1.Print 性别：; xb Picture1.Print 学历：; xl Picture1.Print 职业：; zy Picture1.Print 爱好：; xz1; 、; xz2; 、; xz3; 、; xz4 End Sub Private Sub Comm