VB程序设计的项目报告

《VB程序设计》
项目报告
班级60935
学号090818
姓名尹永康
成绩
成都航空职业技术学院计算机工程系
彩票选号系统的设计报告
一、功能的描述
当打开vb彩票选号的程序时，按F5使其运行，点击命令按钮“选择查询”就会出现一个提示框，提示语是“请输入要查询的期数”然后按照提示输入数字就可以在文本框中显示十七组彩票号，每组都有十二位数且相邻的两个是一小组，这就是随机产生的一系列的随机数即也是系统设计的功能的描述。

二、概要设计
在命令按钮下输入代码，定义(dim)i%、j%、m%、min%、max%、t%、Q%等一些字母
使Q使用强制转换V AL赋予请输入对话框（inputbox））Randomize是初始化随机数种子使rnd函数有不同的序列，一般一个程序使用一次就可以了
随机函数red(i+1)输出的是i/33的余数，输出的格式字符串。

下一步就是定义I为1到17
Select case是分情况语句，分情况语句是多分支结构的另一种形式，该语句执行时根据某变量或表达式的不同值来决定执行不同的处理。

首先选择变量i定定义为1到6得到的最大值是33，定义变量i7到11时产生的最大值是66，定义变量i为12到17时产生的最大值是99，最后end select Print 第几期&转换为数字i格式是字符串@@，输出的最
小值是min=i*6—6，令变量j为1到6，则根据循环得到的最小值加一即min=min+1，给m赋予的值为上面的最大值和最小值建立的关系即m=int[rnd*(max-min+1)min]，结果输出的是red(m)函数为字符串，此时得到red(m)函数为t，red(m)=red(min)，red(min)=t。

如果i=6且j=3则输出的最小值为33最大值为66；如果i=17且j=3输出的最小值为66最大值为96,下一步输出下一步结束。

Private Sub Command1_Click()
Dim i%, Red$(1 To 99), j%, m%, Min%, Max%, t%, Q%
Q = Val(InputBox("请输入期数!"))
Randomize (Q)
For i = 0 To 98
Red(i + 1) = Format(i Mod 33 + 1, "00")
Next
For i = 1 To 17
Select Case i
Case 1 To 6
Max = 33
Case 7 To 11
Max = 66
Case 12 To 17
Max = 99
End Select
Print "第" & Format(i, "@@") & "组号码为: "; Min = i * 6 - 6
For j = 1 To 6
Min = Min + 1
m = Int(Rnd * (Max - Min + 1) + Min)
Print Red(m) & " ";
t = Red(m): Red(m) = Red(Min): Red(Min) = t If i = 6 And j = 3 Then Min = 33: Max = 66
If i = 17 And j = 3 Then Min = 66: Max = 96 Next
Print
Next
End Sub
Dim A(1 To 7) As Integer
Dim N As Integer, I As Integer, T As Integer Dim StrT As String, J As Integer, Flg As Boolean Randomize
For I = 1 To 5
N = 0
Do While N < 7
T = Int(31 * Rnd) + 1
Flg = False
For J = 1 To N
If A(J) = T Then Flg = True: Exit For
Next
If Not Flg Then N = N + 1: A(N) = T
Loop
StrT = ""
For J = 1 To 7
StrT = StrT & A(J) & " "
Next
List1.AddItem StrT
Next
三、详细的设计
首先，定义一些字母为变量，使赋值号得到两边的数据类型要一致，就要进行强制的转换。

该程序中多处使用到for……next语句来定义变量的范围得到结果，再者就是应用了Select Case分情况语句进行多种情况来设置进行分析，得到最大值和最小值，还有就是运用了red函数进行函数的运算，使用条件语句if……then 结构来得到最大值和最小值，和上面通过red函数建立联
系。

四、效果及存在的问题
当F5运行时就会出现一个提示的对话框“请输入要选择的期数”提示窗口输入了期数就会产生多组的随机数，这种使用起来清楚明了，功能简单一般都可以使用，不过当输入字母是系统也会运行产生多组的随机数，还有就是程序的功能也过于少。

五、心得及体会
根据这学期的学习，利用课本上的知识，同时通过网上浏览代码，综合起来就能够写一些简单的程序，我觉得这些就可以了，毕竟我们不是专业的学习，系统的学习。

能够在有限的时间里做出自己的程序其实自己也欣感高兴，毕竟是自己动手，自己独立完成的。