vb编写彩票选号器的问题，请高手进来

Private Sub Command1_Click()

Dim i, a(34), b(7)

Randomize: Cls

For i = 1 To 7

b(i) = Int(Rnd * 34 + 1)

If a(b(i)) Then i = i - 1 Else a(b(i)) = 1

Next

Print "34 选 7组 福利彩票系统,中奖号码:"

For i = 1 To 7

Print b(i)

Next

End Sub

请不要发违规广告，是违法行为

新建一个单窗体的工程，在上面画出七个TEXTBOX，最好是一个控件数组，这样编程时容易控制，再建一个COMMOND BUTTON，将CAPTION改为“随机产生”。在程序运行后，每点击一下COMMAND1，将随机产生一组数字并按从小到大的顺序显示在文本框中。下面就是程序部分：Dim NumArray(1 To 7) As Integer′通用中定义

Private Sub Command1_Click()

Dim i, j, N As Integer

For i = 1 To 7

NumArray(i) = 0

Next i

Randomize

NumArray(1) = Fix(1 ＋ 32 ＊ (Rnd()))

j = 1

Do

N = Fix(1 ＋ 32 ＊ (Rnd()))

For i = 1 To j

If N = NumArray(i) Then

Exit For ′重复时

ElseIf i = j Then ′未重复时

NumArray(i ＋ 1) = N

j = j ＋ 1

Exit For

End If

Next i

Loop While j <7

PopSort ′升序排列

For i = 1 To 7

Text1(i － 1).Text = NumArray(i)

Next i

End Sub

Private Sub PopSort() ′气泡排序法

Dim i, j, Temp As Integer

For i = 7 To 2 Step －1

For j = 7 － 1 To 1 Step －1

If i >= 7 － j ＋ 1 Then

If NumArray(j ＋ 1) <NumArray(j) Then

Temp = NumArray(j)

NumArray(j) = NumArray(j ＋ 1)

NumArray(j ＋ 1) = Temp

End If

End If

Next j

Next i

End Sub

如果你需要研究彩票，可以尝试使用以下几个应用程序：

1. Lottery.com：这个应用提供了全球50多个国家和地区的彩票信息和结果，包括Powerball和Mega Millions等美国当地的大奖彩票。它还提供了预测和分析工具，以及一些赢得彩票后的管理功能。

2. 彩票之家：这个应用是中国最大的彩票信息应用，提供了各种彩票的开奖结果、历史数据、分析工具等功能。它也可以通过通知、短信等方式提醒用户开奖结果。

3. Lotto Pro：这是一个电脑软件，支持分析历史数据并预测下一次开奖结果。它可以自动识别彩票组合，并根据历史走势进行分析。该软件需要付费购买。

4. 香港马会官方应用程序：这个应用提供香港马会的最新信息和开奖结果，包括六合彩和Mark Six等彩票。它还有预测和分析工具，以及一些赛马管理和讨论功能。

虽然这些应用程序都提供了较为全面的彩票信息和分析工具，但请注意：彩票是一种赌博方式，参与者应该理性对待，不要痴迷于其中，以免影响生活和财务健康。

---