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

1、贵州大学数据库原理及应用的实验报告试题及答案贵州大学实验报告学院： 职业技术学院 专业：电子信息科学与技术 班级：电科091姓名学号实验组实验时间指导教师邬培成绩实验项目名称vb 基本控制结构和选择控件实验目的1、掌握选择结构和应用2、掌握循环结构和应用3、掌握单选框、复选框、列表框、组合框、框架的使用4、了解控件数组的应用使用实验要求1、熟悉 if语句、for语句的使用2、熟悉各控件的属性、方法和事件。3、掌握列表框、组合框的添加、删除的方法4、按要求完成实验内容。实验仪器1、安装有VB6.0的计算机。实验内容1、单选框、复选框、选择结构的使用根据如图所提示的界面，设计一个个人简历表。用户在

2、文本框中输入姓名和年龄，选择性别、职业、学历和个人兴趣等个人信息。单击“提交”按钮运行后在右边的图片框中显示具体的个人信息；单击“重置”按钮，清除输入的信息和所做的选择。 提示：可以利用框架进行分组，利用单选框的控件数组实现单选框的选择。利用选择语句实现单选框和复选框的选取判断。2、循环结构的应用利用循环嵌套完成九九乘法表。界面如图所示。单击打印在图片框中打印出乘法表，单击退出，退出程序。提示：用for循环的双重嵌套来实现。使用picture1.print方法实现图片框的打印。3、列表框的使用、循环结构的使用新建一个工程，完成“偶数迁移”程序的设计。界面如下图：有两个列表框List1和列表框L

3、ist2，单击“产生”按钮（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完成数据的赋值。4、组合框和列表框的使用完成一个选课系统的设置，

4、界面如图所示。 有两个界面，第一个界面如图，两个组合框分别可以选择年级和专业，当选择了09级，电子信息科学与技术专业，单击确定按钮，弹出第二个界面。第二个界面为选课界面。界面有两个列表框，list1显示可以选择的课程，选中课程后，单击选择按钮，或者双击该课程，课程就复制到list2列表框中。（限定最多只能选择3门课程，超过则弹出提示框）。单击重选则清除list2中的内容。单击删除按钮则删除list2中已经选中的内容。提示：窗体的加载利用form2.show实现。列表框的添加利用list2.additem实现，删除利用list2.remove 实现。实验步骤1.简历Dim xl, zy, xz1

5、, xz2, xz3, xz4 As StringPrivate Sub Check1_Click()If Check1.Value = 1 Thenxz1 = Check1.CaptionEnd IfEnd SubPrivate Sub Check2_Click()If Check2.Value = 1 Thenxz2 = Check2.CaptionEnd IfEnd SubPrivate Sub Check3_Click()If Check3.Value = 1 Thenxz3 = Check3.CaptionEnd IfEnd SubPrivate Sub Check4_Click()

6、If Check4.Value = 1 Thenxz4 = Check4.CaptionEnd IfEnd SubPrivate Sub Command1_Click()Picture1.Print 姓名：; Text1.Text; Tab(1); 年龄：; Text2.Text; Tab(1);If Option1.Value = True Thenxb = Option1.CaptionEnd IfIf Option2.Value = True Thenxb = Option2.CaptionEnd IfPicture1.Print 性别：; xbPicture1.Print 学历：; x

7、lPicture1.Print 职业：; zyPicture1.Print 爱好：; xz1; 、; xz2; 、; xz3; 、; xz4End SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Option1.Value = FalseOption2.Value = FalseOption3(Index).Value = FalseOption4(Index).Value = FalseCheck1.Value = 0Check2.Value = 0Check3.Value = 0Check4.Value = 0End Sub

8、Private Sub Option3_Click(Index As Integer)If Option3(Index).Value = True Thenxl = Option3(Index).CaptionEnd IfEnd SubPrivate Sub Option4_Click(Index As Integer)If Option4(Index).Value = True Thenzy = Option4(Index).CaptionEnd IfEnd SubPrivate Sub Picture1_Click()End SubPrivate Sub Text1_Change()End

9、 Sub实验总结2.乘法表Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim c As IntegerPicture1.Print Tab; Tab; 乘法表For a = 1 To 9 For b = 1 To a c = a * b Picture1.Print CStr(b); *; CStr(a); =; CStr(c); ; If (b = a) Then Picture1.Print Next bNext aEnd SubPrivate Sub Command2_Click()EndEnd SubPriva

10、te Sub Command3_Click()Picture1.ClsEnd Sub3.列表框Private Sub Command1_Click()For i = 0 To 9List1.List(i) = Int(Rnd * (91) + 10)Next iEnd SubPrivate Sub Command2_Click()List2.ClearFor i = 0 To 9 If List1.List(i) Mod 2 = 0 Then List2.AddItem List1.List(i) j = j + 1 End If Next i Text1.Text = jEnd Sub4.组

11、合框Dim i As IntegerPrivate Sub Command1_Click()i = i + 1If i = 4 Theni = MsgBox(最多只能选择三门, , 提示)Command1.Enabled = FalseElse: List2.AddItem (List1.Text)End IfEnd SubPrivate Sub Command2_Click()List2.Cleari = 0Command1.Enabled = TrueEnd SubPrivate Sub Command3_Click()For j = 0 To List2.ListCount - 1If List2.Selected(j) Then List2.RemoveItem (j) Exit Sub End If Next jEnd SubPrivate Sub List1_DblClick()i = i + 1If i = 4 Theni = MsgBox(最多只能选择三门, , 提示)Command1.Enabled = FalseElse: List2.AddItem (List1.Text)End IfEnd Sub指导教师意见签名： 年 月 日注：各学院可根据教学需要对以上栏木进行增减。表格内容可根据内容扩充。