求用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 抽奖小程序

完化楼上的，，可以摇人名，，不会出现重复，，不会出现空白加一个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抽数软件,可以选定范围和抽取数字数量。

Private Sub Command1_Click()Dim m%, n%m = Val(InputBox（＂请输入数据下限M＂）)n = Val(InputBox（＂请输入数据上限N＂）)k = Val(InputBox（＂请输入抽取数据的个数K＂）)For i = 1 To kPrint Int(Rnd * (n - m + 1) + m）；"输出M到N之间随机的K个数据Next iPrintEnd Sub

VB做的题库软件,带源码

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

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

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

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

现在最好的VB软件是什么呀,

就是微软出的Micosoft Visual Basic⪚ .NET 是 Visual Basic 开发系统最新和功能最强大的版本。

它被重建成 Micosoft .NET 框架之上第一流的语言，为新的和现有的 Visual Basic 的开发人员提供快速生成基于 Windows 的应用程序、下一代 XML 的 We 服务，瘦客户端 We 应用程序和移动装置软件的最简单、最有效的途径。

java抽奖程序

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...