随机抽奖软件 vb vb随机数字抽奖源代码

我想用vb做一个随机抽人的程序,希望懂的人能帮忙解答！

List(i)不好意思啊，由于没有注意，一个开始，一个结束，所以先前的答案有两个小错误；\电话号码；一个时钟控件一个列表框.AddItem awendclose #1按开始：timer1.txt＂ For Input As #1while eof(1)=falseLine Input #1,aList1.Interval=0timer的事件：i=i+1if i=List1.ListCount then i=0Label1，现在已修正了所需控件：两个按钮.Interval=50按结束：timer1.Caption = List1dim i窗口启动：i=0Open App.Path & &quot

怎么用vb做一个抽奖小程序 在1

完化楼上的，，可以摇人名，，不会出现重复，，不会出现空白加一个LIST 和一个TIMER ,COMMANDDim a(30) As StringPrivate Sub Command1_Click()If Command1.Caption = ＂开始＂ Thena(1) = ＂姓名1＂a(2) = ＂姓名2＂a(3) = ＂姓名3＂a(4) = ＂姓名4＂a(5) = ＂姓名5＂a(6) = ＂姓名6＂a(7) = ＂姓名7＂a(8) = ＂姓名8＂a(9) = ＂姓名9＂a(10) = ＂姓名10＂a(11) = ＂姓名11＂a(12) = ＂姓名12＂a(13) = ＂姓名13＂a(14) = ＂姓名14＂a(15) = ＂姓名15＂a(16) = ＂姓名16＂a(17) = ＂姓名17＂a(18) = ＂姓名18＂a(19) = ＂姓名19＂a(20) = ＂姓名20＂a(21) = ＂姓名21＂a(22) = ＂姓名22＂a(23) = ＂姓名23＂a(24) = ＂姓名24＂a(25) = ＂姓名25＂a(26) = ＂姓名26＂a(27) = ＂姓名27＂a(28) = ＂姓名28＂a(29) = ＂姓名29＂a(30) = ＂姓名30＂Command1.Caption = ＂停止＂Timer1.Enabled = TrueTimer1.Interval = 50ElseTimer1.Enabled = FalseTimer1.Interval = 0Command1.Caption = ＂开始＂End IfEnd SubPrivate Sub Form_Load()Command1.Caption = ＂开始＂End SubPrivate Sub Timer1_Timer()List1.ClearDim b(7) As DoubleFor i = 1 To 7Randomize1b(i) = Int(29 * Rnd + 1)For j = 1 To i - 1If b(i) = b(j) Then GoTo 1Next jList1.AddItem a(b(i))Next iEnd Sub

怎么用vb编个随机抽取人名的小程序,做到不重复并能直接打印显示已...

im n As IntegerDim a()Private Sub Command1_Click() If n = 0 Then '第点击执行 m = Val(Text1) ReDim a(1 To m) For i = 1 To m '数组a元素1至mm数 a(i) = i Next For i = 1 To m - 1 '随机打乱数组a元素 r = Int(Rnd * m + 1) tmp = a(i) a(i) = a(r) a(r) = tmp Next End If n = n + 1 ' Val(Text1) Then '数超指定数抽奖结束 MsgBox ＂抽奖结束＂ Exit Sub End If Text2 = a(n) '计数点击数 If n &gt...

用vb编写了这个随机抽取人名的抽奖系统,但会出现重复,怎么样做到...

我给你个简单的例子、你看下Option ExplicitDim jm(35) As StringDim i, cs As IntegerPrivate Sub Command1_Click()Timer1.Enabled = Truecs = cs + 1Label1.Visible = TrueCommand1.Enabled = FalseCommand2.Enabled = TrueEnd SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Command2_Click()Timer1.Enabled = Falsejm(i) = jm(32 - cs)Command1.Enabled = TrueCommand2.Enabled = FalseStatusBar1.Panels.Item(3) = 32 - csEnd SubPrivate Sub Form_Load()jm(0) = ＂李珊珊等《西游记》＂jm(1) = ＂刘泽玉 小王佳《知足》＂jm(2) = ＂小王佳 王敏《一个像夏天，一个像秋天》＂jm(3) = ＂李铭 李兵《你是我心内的一首歌》＂jm(4) = ＂刘泽玉 孙皓晨《因为爱情》＂jm(5) = ＂赵京城 《寻找》＂jm(6) = ＂王振远 高磊《寂寞沙洲冷》＂jm(7) = ＂李宗瑶《小星星》＂jm(8) = ＂逯鹏 张志远《最美的太阳》＂jm(9) = ＂李彤彤 葛文芮《BABY DON'T CRY》＂jm(10) = ＂王敏 杨雪《夜夜夜夜》＂jm(11) = ＂张月明 李晓雨 大王佳《过火》＂jm(12) = ＂葛文芮 孙皓晨《Timeless》＂jm(13) = ＂叶小雨 郭津铭《未完成的歌》＂jm(14) = ＂逯鹏 孙杰《父亲》＂jm(15) = ＂王昭政《那些年》＂jm(16) = ＂叶小雨 高磊《奔跑》＂jm(17) = ＂顾庆杰 韩曦《我们都一样》＂jm(18) = ＂张遵策 郭津铭《心跳》＂jm(19) = ＂张遵策《空城》＂jm(20) = ＂逯鹏 李宗瑶《江南》＂jm(21) = ＂郅睿 王敏《会呼吸的痛》＂jm(22) = ＂韩绍飞 吕典杰《水手》＂jm(23) = ＂郅睿 张东剑《后会无期》＂jm(24) = ＂大王佳 韩曦《小酒窝》＂jm(25) = ＂赵文青 时静璐《遗失的美好》＂jm(26) = ＂甄岳《没有什么不同》＂jm(27) = ＂吴巧 李晓慧《我的歌声里》＂jm(28) = ＂李瑶 李姗姗《最炫民族风》＂jm(29) = ＂大王佳 侯家慧《星空》＂jm(30) = ＂三组全体《大笑江湖》＂jm(31) = ＂大王佳 张锋《肩上蝶》＂End SubPrivate Sub Timer1_Timer()Randomizei = Int(Rnd * (32 - cs))Label1.Caption = jm(i)If 32 - cs Timer1.Enabled = FalseCommand1.Enabled = FalseCommand2.Enabled = FalseMsgBox ＂节目已完成，感谢你使用本程序！＂Command3.Value = TrueEnd IfEnd Sub

vb编程随机抽取学号,抽出来有重复怎么解决

选题方法是采用的sql语句，不是用的VB，这是功能所需，效率所求sql语句，查询数据题库，随机选择10题和每次都不同，等哈写出来select top 10 * from 题库 where id in(select top 10 id from 题库 order by right(cstr(rnd(-int(rnd(-timer())*100+id)))*1000*Now(),2))这句sql语句，就是随机调出题库10道题，每次都不同VB打开数据库，每次执行以上语句，再显示出来，就是你要的结果VB我就不用讲了吧，VB数据库操作就太多了strSQL = ＂select top 10 * from 题库 where id in(select top 10 id from 题库 order by right(cstr(rnd(-int(rnd(-timer())*100+id)))*1000*Now(),2))＂Set rs = conn.OpenRecordset(strSQL)有什么不会的，还是你M我吧，SQL是VB的一个功能而已

如何用java写一个抽奖程序 web类型的

因为你这么做不方便控制作弊，同时更安全。

我之前做过的一个抽奖项目是这样的：抽奖程序（抽奖界面）用flash来写，发送到java后台，这样既方便作弊也能控制中奖概率，和中奖概率，然后由用户点击flash抽奖界面抽奖，中奖后，同样使用base64加密中奖信息，后面只需要在页面上用JS来控制随机显示思路是对的，按照你前面的思路，同时后台程序发送中奖信息给用户，和抽取了。

但是一般不这么做，JAVA后台提供抽奖名单，中奖概率等数据，抽奖程序调用java的API获得抽奖数据，然后保存在DB，这里需要在后台对抽奖信息进行加密，我们使用的是base64加密（方便反向解密）。

还有JS控制抽奖很容易就能作弊...

转载请注明出处51数据库 » 随机抽奖软件 vb