用vb做抽签软件,好不好能抽一个删一个,也就是不重复抽签

前几天帮别人做的一个抽奖程序代码你根据自己的要求改下吧Private Sub Timer2_Timer()Static i As Integer If i List1.ListCount - 1 Then i = i + 1 Else i = 0 End If Label8.Caption = List1.List(i)End SubPrivate Sub Command2_Click()On Error GoTo nqq = List2.List(i)Dim ww() As Stringww = Split(qq, ；)ww(0) = Replace(ww(0), 奖品等级：, )ww(1) = Replace(ww(1), 奖品名称：, )ww(2) = Replace(ww(2), 抽奖次数：, )Timer3.Enabled = TrueCommand2.Enabled = FalseTimer2

一个平台做三个单子才可以免费约炮 钱冲进去 做单做错了导致数据异常不能提现了 说要更多的钱恢复数据怎么办

网上卖假烟的定罪量刑标准如下：如果具有刑事责任能力的行为人主观上具有故意和非法占有的目的，客观上实施了卖假烟，扰乱市场秩序，情节严重的行为，可认定为非法经营罪；一般可处五年以下有期徒刑或者拘役，并处或者单处罚金；情节特别严重的，则处五年以上有期徒刑，并处罚金或者没收财产。法律依据：《中华人民共和国刑法》第二百二十五条 违反国家规定，有下列非法经营行为之一，扰乱市场秩序，情节严重的，处五年以下有期徒刑或者拘役，并处或者单处违法所得一倍以上五倍以下罚金；情节特别严重的，处五年以上有期徒刑，并处违法所得一倍以上五倍以下罚金或者没收财产： （一）未经许可经营法律、行政法规规定的专营、专卖物品或者其他限制买卖的物品的； （二）买卖进出口许可证、进出口原产地证明以及其他法律、行政法规规定的经营许可证或者批准文件的； （三）未经国家有关主管部门批准非法经营证券、期货、保险业务的，或者非法从事资金支付结算业务的