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