vb动态数组应用

来源：百度知道 编辑：UC知道 时间：2024/05/15 12:21:23
1000张彩票,100个人抽奖,5个一等奖,20个二等奖,50个三等奖,统计中奖结果,要求用函数实现,求vb大虾帮忙,要全部代码,急急急!!!
不好意思，可能我没说清楚
你们两个的程序都对，但都修改一下就好了
vlaoda修改成只点一下就最后出来统计数据就行了，不要点100次，然后把第几张彩票中的奖次以文本形式保存起来
yang的答案只需把各等奖中了多少人显示在窗体上就行了，把你显示在MsBox中的内容以文本形式保存起来就OK了
麻烦你们一定要帮帮我啊，拜托了!!!

100个人，每人抽一张彩票，公布抽奖结果，测试代码如下：

Private Sub Button1_Click()
'仅限每人抽一张
Dim cp(999) As Integer, cj(99) As Integer, a(4) As String, b(19) As String, c(49) As String, sa As String, sb As String, sc As String
Dim i As Integer, j As Integer
Randomize()
'一等奖分布（随机）
For i = 0 To 4
a(i) = Int(Rnd() * 1000) + 1
Next
'二等奖分布（随机）
For i = 0 To 19
999999:
b(i) = Int(Rnd() * 1000) + 1
For j = 0 To 4
If b(i) = a(j) Then
GoTo 999999
End If
Next
Next
'三等奖分布（随机）
For i = 0 To 49
999999999:
c(i) = Int(Rnd() * 1000) + 1
For j = 0 To 19
If c(i) = b(j) Then
GoTo 999999999
Else