一个抽奖系统，基本完善，现在要解决重复的有关问题，请帮小弟我完善下

一个抽奖系统，基本完善，现在要解决重复的问题，请帮我完善下！

VB code

Dim m As IntegerDim B(1000) As Byte '数组用来存放每次生成的随机数Dim x As Integer '计数器Private Sub Command1_Click()Timer1.Enabled = TrueEnd SubPublic Sub Command2_Click()Timer1.Enabled = False'Label2.Caption = List1.List(B(x))End SubPrivate Sub Form_Load()x = 0RandomizeTimer1.Interval = 5Timer1.Enabled = FalseOpen App.Path & "\电话号码.txt" For Input As #1While EOF(1) = FalseLine Input #1, AList1.AddItem AWendClose #1End SubPublic Sub Timer1_Timer()Randomizei = Int(Rnd * (5 - 1 + 1) + 1)Label1.Caption = List1.List(i)'B(m) = iEnd Sub

[解决办法]
List控件可以在添加的时候判断是否有，然后决定是否添加
[解决办法]
不是
是在你的代码List1.AddItem A前面判断一下再决定是否List1.AddItem A

探讨

您的意思就是说：每次点结束按钮时，就释放 数据文件，点开始时，再导入数据文件，然后判断一下是吧？

[解决办法]
这个能实现

探讨

但是这个数据导入 只有在程序打开的时候才会导入一次呀。

还有个办法就是，结束一次，然后就把生成的这行删除掉。这个能实现吗

查看更多 下一篇