贵州大学数据库原理及应用的实验报告试题及答案.docx
《贵州大学数据库原理及应用的实验报告试题及答案.docx》由会员分享，可在线阅读，更多相关《贵州大学数据库原理及应用的实验报告试题及答案.docx（11页珍藏版）》请在冰豆网上搜索。
贵州大学数据库原理及应用的实验报告试题及答案
贵州大学实验报告
学院：
职业技术学院专业：
电子信息科学与技术班级：
电科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.简历
Dimxl,zy,xz1,xz2,xz3,xz4AsString
PrivateSubCheck1_Click（）
IfCheck1.Value=1Then
xz1=Check1.Caption
EndIf
EndSub
PrivateSubCheck2_Click（）
IfCheck2.Value=1Then
xz2=Check2.Caption
EndIf
EndSub
PrivateSubCheck3_Click（）
IfCheck3.Value=1Then
xz3=Check3.Caption
EndIf
EndSub
PrivateSubCheck4_Click（）
IfCheck4.Value=1Then
xz4=Check4.Caption
EndIf
EndSub
PrivateSubCommand1_Click（）
Picture1.Print"姓名：
";Text1.Text;Tab
（1）;"年龄：
";Text2.Text;Tab
（1）;
IfOption1.Value=TrueThen
xb=Option1.Caption
EndIf
IfOption2.Value=TrueThen
xb=Option2.Caption
EndIf
Picture1.Print"性别：
";xb
Picture1.Print"学历：
";xl
Picture1.Print"职业：
";zy
Picture1.Print"爱好：
";xz1;"、";xz2;"、";xz3;"、";xz4
EndSub
PrivateSubCommand2_Click（）
Text1.Text=""
Text2.Text=""
Option1.Value=False
Option2.Value=False
Option3（Index）.Value=False
Option4（Index）.Value=False
Check1.Value=0
Check2.Value=0
Check3.Value=0
Check4.Value=0
EndSub
PrivateSubOption3_Click（IndexAsInteger）
IfOption3（Index）.Value=TrueThen
xl=Option3（Index）.Caption
EndIf
EndSub
PrivateSubOption4_Click（IndexAsInteger）
IfOption4（Index）.Value=TrueThen
zy=Option4（Index）.Caption
EndIf
EndSub
PrivateSubPicture1_Click（）
EndSub
PrivateSubText1_Change（）
EndSub
实验总结
2.乘法表
PrivateSubCommand1_Click（）
DimaAsInteger
DimbAsInteger
DimcAsInteger
Picture1.PrintTab;Tab;"乘法表"
Fora=1To9
Forb=1Toa
c=a*b
Picture1.PrintCStr（b）;"*";CStr（a）;"=";CStr（c）;"";
If（b>=a）ThenPicture1.Print
Nextb
Nexta
EndSub
PrivateSubCommand2_Click（）
End
EndSub
PrivateSubCommand3_Click（）
Picture1.Cls
EndSub
3.列表框
PrivateSubCommand1_Click（）
Fori=0To9
List1.List（i）=Int（Rnd*（91）+10）
Nexti
EndSub
PrivateSubCommand2_Click（）
List2.Clear
Fori=0To9
IfList1.List（i）Mod2=0Then
List2.AddItemList1.List（i）
j=j+1
EndIf
Nexti
Text1.Text=j
EndSub
4.组合框
DimiAsInteger
PrivateSubCommand1_Click（）
i=i+1
Ifi=4Then
i=MsgBox（"最多只能选择三门",,"提示"）
Command1.Enabled=False
Else:
List2.AddItem（List1.Text）
EndIf
EndSub
PrivateSubCommand2_Click（）
List2.Clear
i=0
Command1.Enabled=True
EndSub
PrivateSubCommand3_Click（）
Forj=0ToList2.ListCount-1
IfList2.Selected（j）Then
List2.RemoveItem（j）
ExitSub
EndIf
Nextj
EndSub
PrivateSubList1_DblClick（）
i=i+1
Ifi=4Then
i=MsgBox（"最多只能选择三门",,"提示"）
Command1.Enabled=False
Else:
List2.AddItem（List1.Text）
EndIf
EndSub
指导教师意见
签名：
年月日
注：
各学院可根据教学需要对以上栏木进行增减。
表格内容可根据内容扩充。
升级会员 