VB课程设计彩票选号小助手文档格式.doc
《VB课程设计彩票选号小助手文档格式.doc》由会员分享，可在线阅读，更多相关《VB课程设计彩票选号小助手文档格式.doc（26页珍藏版）》请在冰豆网上搜索。
（1）课程设计报告书一律使用由学校统一印制的封面，用A4纸张打印或采用黑色墨水工整书写，并装订成册。
（2）课程设计装订顺序为：
封面、设计任务书（含评语）、设计内容、设计小结
4）答辩与评分标准：
（1）系统功能分析：
25分；
（2）完成设计过程：
（3）完成调试：
（4）回答问题：
25分。
5）参考文献：
（1）吴昊.VisualBasic程序设计教程,中国铁道出版社，2006.12
（2）杨仓杰出.VisualBasic经典范例,清华大学出版社，2001.10
（3）
6）课程设计进度安排
内容天数 地点
构思及收集资料1 实验室
设计与调试3 实验室
撰写论文1 实验室
学生签名：
2013年6月17日
课程设计（论文）评审意见
（1）完成原理分析（25分）：
优（ ）、良（ ）、中（ ）、一般（ ）、差（ ）；
（2）设计分析 （25分）：
（3）完成调试 （25分）：
（4）回答问题 （25分）：
（5）格式规范性及考勤是否降等级：
是（ ）、否（ ）
评阅人：
职称：
2013年6月26日
目录
一功能描述 4
二概要设计....................................................................................................................7
三详细设计 8
㈠对form1的设计 8
（二）对form2的设计 11
（三）对form3的设计 17
四系统存在问题与完善 25
五设计小结 26
一功能描述
⑴程序的启动窗口如图1所示。
图1启动窗口
⑵在启动窗口中单击“体育彩票”按钮后，进入体彩传统型电脑彩票的选号窗口（如图2所示）。
在该窗口中，每一注可单独投注，也可一次产生5注号码。
单击“开始”按钮，则单选框所对应的那一注的各个号码开始滚动，当单击“停止”按钮后，左边窗口中的号码从左到右依次停止滚动，产生一注号码，其中最右边的特别号码只能是0～4中的一个（如图3所示）。
图2“体育彩票”界面
图3
如果单击“自动”按钮，则从上到下产生5注号码（如图4）
图4生成全部号码
也可以单击每个数字方格来改变此格内的数字。
单击“返回”按钮，则程序返回启动窗口。
⑶单击启动窗口上的“福利彩票”按钮，则进入图5所示窗口。
使用单选框指定注数，然后单击“开始”按钮，则在“幸运号码”区域显示随机产生的号码（见图6），要求程序中每注所产生的7个投注号码中没有重复的数，显示时从小到大排列，若一次投注超过一注，则相互之间不能重复。
图5电脑福利彩票
单击开始出现五注号码（如图6）
图6
单击“清除”按钮，则清除显示内容，以便进行下次投注，单击“返回”则返回到启动窗口。
二概要设计彩票选号系统
启动界面（form1）（form1）
“福利彩票”界面（form2）
“体育彩票”界面（form3）
退出
进行福利彩票选号
返回启动界面
进行体育彩票选号
返回启动窗口
退出系统
图7系统总体模块图
三详细设计
㈠对form1的设计
①功能介绍：
主要用于进行form1和form2界面的交换使用，并提供退出程序控件。
②过程分析：
使用unload和show即可实现以上功能。
③设计应用界面
在form1窗体上添加命令按钮command1、command2、command3和标签label1，如图8所示
如图8form1的设计
图8form1界面设计
④设置对象属性
控件名
属性名
属性值
说明
command1
caption
体育彩票
Fontsize
小五
command2
福利彩票
command3
from1
Backcolor
Caption
彩票选号小助手
Borderstyle
1-fixedsingle
禁止用户改变窗体大小
Minbutton
True
允许用户最小化程序
Starupposition
2-屏幕中心
启动时界面在屏幕中心
Label1
Forecolor
&
H000000C0&
红色
Fontname
华文行楷
初号
设置后界面如图9所示：
⑤编写程序代码。
PrivateSubCommand1_Click（）
UnloadMe
form3.Show
EndSub
PrivateSubCommand2_Click（）
form1.Hide
form2.Show
PrivateSubCommand3_Click（）
End
⑥运行结果如图10所示
图10form1运行界面
（二）对form2的设计
①功能介绍
随机产生用户需要的一到五组的福利彩票号码。
②分析
k=0
使用控件数组简化程序代码的数量，提高程序的稳定性。
使用循环结构产生各组控件需要的值。
用逐一比较法排除相同项
重要算法实现过程:
如图24
k=1+k
m<
=7
v=Int（Rnd*35+1）
a（k）=a（m
v=a
（1）Orv=a
（2）Orv=a（3）Orv=a（4）Orv=a（5）Orv=a（6）Orv=a（7）
a（k）=v
true
false
Yes
yes
k<
m=k+1
退出循环
No
图11排除重复的循环过程
③设计应用界面
在窗体上添加三个command控件command1——command3，两个frame控件frame1、frame2，向frame1中添加七个text控件数组，分别为：
text1（0）——text1（4）、text2（0）——text2（4）、text3（0）——text3（4）、text4（0）——text4（4）、text5（0）——text5（4）、text6（0）——text6（4）、text7（0）——text7（4）。
向frame2中添加一个option控件数组：
option1（0）——option1（4）如图12所示
图12form2界面控件
控件
Caption
开始
Caption
清楚
返回主界面
text1（）—text7（）
Text
清空text
Backcolor
H00FFC0C0&
浅蓝色
小四
option1（0）
投一注
option1
（1）
投二注
option1
（2）
投三注
option1（3）
投四住
option1（4）
投五注
Option1（0）-option（4）
Fontsize
form2
frame1
幸运号
frame2
请投注
⑤编写程序代码
n=-1
Fori=0To4
n=n+1
IfOption1（i）.Value=TrueThenExitFor
Nexti
Dima（1To7）AsInteger
Fori=0Ton
Forj=1To7
Randomize
a（j）=Int（Rnd*35+1）
Nextj
Fork=1To7
Form=k+1To7
Ifa（k）=a（m）Then
v=Int（Rnd*35+1）
DoWhilev=a
（1）Orv=a
（2）Orv=a（3）Orv=a（4）Orv=a（5）Orv=a（6）Orv=a（7）
v=Int（Rnd*35+1）
Loop
a（k）=v
EndIf
Nextm
Nextk
Fork=1To7
Form=k+1To7
Ifa（k）>
a（m）Then
x=a（k）
a（k）=a（m）
升级会员 