VB 抽奖小程序

来源：百度知道 编辑：UC知道 时间：2024/06/04 07:20:16
我需要一个类似于抽奖的小程序，我的编译软件是visual basic，大概就这么个意思，有30个人名，我按个开始键，开始检索，后来检索结束，出来7个随机的检索名单，请问可以给我一个源代码吗，谢谢，非常感谢，急，在线等。
是不是要在VB的可视化界面做两个按键上去，然后在代码界面里面输入代码，但是我运行总是不对，哎
我按F5运行后，点开始键，总是提示“实时错误，要求对象”。然后我点“调试“，错误代码直接指向Timer1.Enabled = True。我没用VB很多年了，一些东西实在不记得，望大家耐心提点小弟。

完化楼上的，，可以摇人名，，不会出现重复，，不会出现空白
加一个LIST 和一个TIMER ，COMMAND

Dim a(30) As String
Private Sub Command1_Click()

If Command1.Caption = "开始" Then

a(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) = "姓名