UC知道vb 随机生成问题
来源：百度知道 编辑：UC知道 时间：2024/06/21 07:30:38
买双色球烦了，想用VB随机生成几组（红6蓝1），现有问题如下：
1.生成的数怎么不让他重复；
2.我自写的随机生成数不光重复，有的时候一组红球还生成不够6个，会少一个，这是什么原因；
3.生成的数怎样按大小顺序排列；
4.怎么一键保存并且不抹去上次的记录，保存路径为d:/双色球.txt；
新手瞎摸，请详加注释，谢谢
另顺便问一下，VB怎么连接SQL数据库啊，貌似SQL没有生成后缀.dbf或.mdb之类的文件啊
1.生成的数怎么不让他重复；
2.我自写的随机生成数不光重复，有的时候一组红球还生成不够6个，会少一个，这是什么原因；
3.生成的数怎样按大小顺序排列；
4.怎么一键保存并且不抹去上次的记录，保存路径为d:/双色球.txt；
新手瞎摸，请详加注释，谢谢
另顺便问一下，VB怎么连接SQL数据库啊，貌似SQL没有生成后缀.dbf或.mdb之类的文件啊
Private Sub Command1_Click()
Dim a(7) As Integer '定义7个球，最后一个为蓝球
Dim change As Integer
Randomize '初始化随机数
For i = 1 To 7
1
a(i) = Int(Rnd * 32 + 1) '生成1-33的随机数
For j = 1 To i - 1 '把a(i) 跟a(i)前的数相比
If a(i) = a(j) Then GoTo 1 '如相同则重新赋值
Next j
Next i
'按降序排列
For i = 1 To 7
For j = 1 To i
If a(i) < a(j) Then '把a(i)和后面的数比
change = a(i) '发现有大的则交换
a(i) = a(j)
a(j) = change
End If
Next j
Next i
Label1.Caption = ""
For i = 1 To 6
Label1.Caption = Label1.Caption & a(i) & ","
Next i
Label1.Caption = "红球" & Label1.Caption & " 篮球:" & a(7)
End Sub
'保存
Private Sub Command2_Click()
Open "d:\双色球.txt" For Append As #1
Write #1, Label1.Caption
Close 1
End Sub
没有研究 双色球，不过，程序应该不难！
有时间研究后再编程！
VB连接数据库 一般 和你 选择的 控件有关系
所以请看