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

贵州大学实验报告学院： 职业技术学院 专业：电子信息科学与技术 班级：电科091姓名学号实验组实验时间指导教师邬培成绩实验项目名称vb 基本控制结构和选择控件实验目的1、 掌握选择结构和应用2、 掌握循环结构和应用3、 掌握单选框、复选框、列表框、组合框、框架的使用4、 了解控件数组的应用使用实验要求1、 熟悉 if语句、for语句的使用2、 熟悉各控件的属性、方法和事件。3、 掌握列表框、组合框的添加、删除的方法4、 按要求完成实验内容。实验仪器1、安装有VB6.0的计算机。实验内容1、 单选框、复选框、选择结构的使用根据如图所提示的界面，设计一个个人简历表。用户在文本框中输入姓名和年龄，选择性别、职业、学历和个人兴趣等个人信息。单击“提交”按钮运行后在右边的图片框中显示具体的个人信息；单击“重置”按钮，清除输入的信息和所做的选择。 提示：可以利用框架进行分组，利用单选框的控件数组实现单选框的选择。利用选择语句实现单选框和复选框的选取判断。2、 循环结构的应用利用循环嵌套完成九九乘法表。界面如图所示。单击打印在图片框中打印出乘法表，单击退出，退出程序。提示：用for循环的双重嵌套来实现。使用picture1.print方法实现图片框的打印。3、 列表框的使用、循环结构的使用新建一个工程，完成“偶数迁移”程序的设计。界面如下图：有两个列表框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完成数据的赋值。4、 组合框和列表框的使用完成一个选课系统的设置，界面如图所示。 有两个界面，第一个界面如图，两个组合框分别可以选择年级和专业，当选择了09级，电子信息科学与技术专业，单击确定按钮，弹出第二个界面。第二个界面为选课界面。界面有两个列表框，list1显示可以选择的课程，选中课程后，单击选择按钮，或者双击该课程，课程就复制到list2列表框中。（限定最多只能选择3门课程，超过则弹出提示框）。单击重选则清除list2中的内容。单击删除按钮则删除list2中已经选中的内容。提示：窗体的加载利用form2.show实现。列表框的添加利用list2.additem实现，删除利用list2.remove 实现。实验步骤1. 简历Dim xl, zy, xz1, 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()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 学历：; xlPicture1.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 SubPrivate 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 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 SubPrivate 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. 组合框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_