VB设计实训报告.docx
《VB设计实训报告.docx》由会员分享，可在线阅读，更多相关《VB设计实训报告.docx（13页珍藏版）》请在冰豆网上搜索。
VB设计实训报告
VB设计实训报告
一、应用训练的教学目的
应用训练是组织学生进行集中实践教的学环节之一。
其目的是培养学生综合运用所学专业的基础知识、基本方法、基本技能、理论联系实际、独立的分析、解决问题的能力。
利用课堂所学的VB的基础知识，熟练掌握程序设计的方法和技巧，在规定的时间内设计出完整的实用的应用程序。
二、实训过程
实训一：
井字游戏设计
设置如下图的界面，窗体名称为“井字游戏”，九个井字格为Command1的控件数组，谁先是OptionButton1的控件数组，图片所在位置是picture1，显示文字的地方时Lable1,重置按钮为Command2。
以下为设计代码：
DimselAsInteger
DimsumAsInteger
Dima（9）AsCommandButton
PrivateSubCommand2_Click（）
CallForm_Activate
EndSub
PrivateSubForm_Activate（）
sum=0
Picture1.Enabled=True
Fori=1To9
a（i）.Caption=""
a（i）.Tag=0
Next
Label1.Caption=""
IfOption1（0）.Value=TrueThen
Callxuan
EndIf
EndSub
PrivateSubForm_Load（）
Fori=1To9
Seta（i）=Command1（i-1）
Next
EndSub
PrivateSubCommand1_Click（IndexAsInteger）
'○●
n=Index+1
Ifa（n）.Tag=0Then
a（n）.Caption="●"
a（n）.Tag=-1
sum=sum+1
Callyixian
IfLabel1.Caption=""Then
Callxuan
EndIf
EndIf
EndSub
PrivateSubxuan（）
sum=sum+1
Ifsum<=2Then
sel=IIf（a（5）.Tag=0,5,1）
Else
Fori=1To9
Ifa（i）.Tag=0Then
sel=i:
ExitFor
EndIf
Next
Fori=1To9Step2
Ifa（i）.Tag=0Then
sel=i:
ExitFor
EndIf
Next
Fori=1To9
Ifi=5Then
i=i+1
EndIf
Ifa（i）.Tag=0Then
Ifa（10-i）.Tag<>0Anda（10-i）.Tag=a（5）.TagThen
sel=i:
ExitFor
EndIf
SelectCasei
Case1
If（a
（2）.Tag<>0Anda
（2）.Tag=a（3）.Tag）Or_
（a（4）.Tag<>0Anda（4）.Tag=a（7）.Tag）Then
sel=i:
ExitFor
EndIf
Case2
Ifa
（1）.Tag<>0Anda
（1）.Tag=a（3）.TagThen
sel=i:
ExitFor
EndIf
Case3
If（a
（1）.Tag<>0Anda
（2）.Tag=a
（1）.Tag）Or（a（6）.Tag<>0Anda（6）.Tag=a（9）.Tag）Then
sel=i:
ExitFor
EndIf
Case4
Ifa
（1）.Tag<>0Anda
（1）.Tag=a（7）.TagThen
sel=i:
ExitFor
EndIf
Case6
Ifa（3）.Tag<>0Anda（3）.Tag=a（9）.TagThen
sel=i:
ExitFor
EndIf
Case7
If（a
（1）.Tag<>0Anda
（1）.Tag=a（4）.Tag）Or（a（8）.Tag<>0Anda（8）.Tag=a（9）.Tag）Then
sel=i:
ExitFor
EndIf
Case8
Ifa（7）.Tag<>0Anda（7）.Tag=a（9）.TagThen
sel=i:
ExitFor
EndIf
Case9
If（a（7）.Tag<>0Anda（7）.Tag=a（8）.Tag）Or（a（3）.Tag<>0Anda（3）.Tag=a（6）.Tag）Then
sel=i:
ExitFor
EndIf
EndSelect
EndIf
Next
EndIf
a（sel）.Caption="○"
a（sel）.Tag=1
Callyixian
EndSub
PrivateSubyixian（）
Ifa
（1）.Tag<>0Then
Callshuying（1,2,3）
Callshuying（1,4,7）
Callshuying（1,5,9）
EndIf
Ifa（5）.Tag<>0Then
Callshuying（5,2,8）
Callshuying（5,3,7）
Callshuying（5,4,6）
EndIf
Ifa（9）.Tag<>0Then
Callshuying（9,1,5）
Callshuying（9,3,6）
Callshuying（9,7,8）
EndIf
Ifsum=9Then
Label1.Caption="和棋"
EndIf
EndSub
PrivateSubshuying（x,y,z）
Ifa（x）.Tag=a（y）.TagAnda（y）.Tag=a（z）.TagThen
Label1.Caption="您"+IIf（a（x）.Tag=1,"输了！
","赢了！
"）
Picture1.Enabled=False
EndIf
EndSub
PrivateSubOption1_Click（IndexAsInteger）
CallForm_Activate
EndSub
经运行，调试，最终得到完整的程序。
下图是运行结果
实训一到此完毕
实训二：
简单数据库查询设计
首先，建立两个excel表，jbqk表和teacher表，如下图
在SQL中电脑公司7600服务器中建立两个表jbqk表和teacher表，并将excel表导入数据库中。
SQL语句为：
Createtablejbqk
（学号char（8）notnullunique,
姓名char（8）,
性别char
（2）,
班级char（8）,
英语char（5）,
计算机char（5）,
照片char（50））;
createtableteacher
（班级char（20）,
姓名char（20）,
性别char
（2）,
学历char（5）,
出生日期char（10）,
电话char（24））;
结果如图：
设置如下图所示的窗体，图中文本框都为text1的组合控件。
在部件中添加ADO控件和DataGrid控件。
然后再窗体中添加控件，结果如图
选中ADO控件，右单击选中其属性，在弹出的属性页对话框中单击【生成】，弹出数据链接属性，进行如图所示的设置。
完成后，单击【测试连接】，连接成功后，单击【确定】。
将生成的链接字符串，复制下来，在代码中粘贴到适当位置。
选中ADO控件，在其属性面板中设置RectordSoure，弹出属性页对话框，进行如下图设置，完成后单击【完成】。
选中DataGrid1控件，在其属性面板设置属性DataSource的值为Adodc1。
运行程序并调试，结果如下
具体代码如下：
DimcnAsNewADODB.Connection
PrivateSubCmbClass_Click（）
Dimrs_teacherAsNewADODB.Recordset
Dimrs_studentAsNewADODB.Recordset
DimsAsString
s="班级='"&CmbClass.Text&"'"
rs_teacher.Open"select*fromteacherwhere"&s,cn
Ifrs_teacher.RecordCount>0Then
Text1（0）.Text=rs_teacher.Fields（"姓名"）.Value
Text1
（1）.Text=rs_teacher.Fields（"性别"）.Value
Text1
（2）.Text=rs_teacher.Fields（"学历"）.Value
Text1（3）.Text=rs_teacher.Fields（"电话"）.Value
Text1（4）.Text=rs_teacher.Fields（"出生日期"）.Value
EndIf
rs_student.Open"select*fromjbqkwhere"&s,cn,adOpenForwardOnly
SetDataGrid1.DataSource=rs_student
EndSub
PrivateSubForm_Load（）
DimrstAsNewADODB.Recordset
cn.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=master;DataSource=电脑公司7600"
cn.CursorLocation=adUseClient
cn.Open
rst.Open"selectdistinct班级fromjbqk",cn,adOpenStatic
DoWhileNotrst.EOF
CmbClass.AddItemrst.Fields（"班级"）.Value'初始化下拉组合框
rst.MoveNext
Loop
EndSub
PrivateSub退出_Click（）'退出
cn.Close
End
EndSub
三、实训心得
经过此次实训我能在老师的指导下，独立完成应用训练的全过程。
大大提高了编程能力和实践能力，重视应用训练，综合运用所学的知识，提高动手编程的能力。
并且提高了发现问题解决问题和创新的能力。
升级会员 