VB 抽奖小程序

2025年04月07日 06:23

有4个网友回答

网友（1）：

完化楼上的，，可以摇人名，，不会出现重复，，不会出现空白
加一个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) = "姓名28"
a(29) = "姓名29"
a(30) = "姓名30"
Command1.Caption = "停止"
Timer1.Enabled = True
Timer1.Interval = 50

Else
Timer1.Enabled = False
Timer1.Interval = 0
Command1.Caption = "开始"
End If
End Sub

Private Sub Form_Load()
Command1.Caption = "开始"
End Sub

Private Sub Timer1_Timer()
List1.Clear
Dim b(7) As Double
For i = 1 To 7
Randomize
1
b(i) = Int(29 * Rnd + 1)
For j = 1 To i - 1
If b(i) = b(j) Then GoTo 1
Next j
List1.AddItem a(b(i))
Next i
End Sub

网友（2）：

太简单了吧。。

将30个人名存储到数组a(i)里，然后。
for j=0 to 6
Randomize
print a(Int(30 * Rnd))
next

网友（3）：

Private Sub Command1_Click()

Dim i As Integer
Dim a(30) As String
List1.Clear
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) = "姓名28"
a(29) = "姓名29"
a(30) = "姓名30"

For i = 0 To 6
Randomize
List1.AddItem a(Int(30 * Rnd)), 0
Next
End Sub

网友（4）：

参加人26个字母，呵呵，自己也凑热闹
Option Explicit
Option Base 1

Dim Rec() As String * 1
Dim FirPrize(3) As String * 1
Dim SecPrize(5) As String * 1
Dim ThiPrize(10) As String * 1
Dim RecNum As Integer

Private Sub Cd1()
Dim Num As Integer
Dim I As Integer
Dim J As Integer
Dim Temp As String * 1
Print "获得一等奖的是："

For J = 1 To 3
Randomize
Begin1: Temp = Chr(65 + Int(26 * Rnd))
For I = 1 To Num
If FirPrize(I) = Temp Then GoTo Begin1
Next I
Num = Num + 1: FirPrize(Num) = Temp
RecNum = RecNum + 1: ReDim Preserve Rec(RecNum): Rec(RecNum) = Temp
Print FirPrize(Num); Spc(3);
Next J
End Sub

Private Sub Cd2()
Dim Num As Integer
Dim I As Integer
Dim J As Integer
Dim Temp As String * 1
Print
Print "获得二等奖的是："
For I = 1 To 5
Randomize
Begin2: Temp = Chr(Int(26 * Rnd) + 65)
For J = 1 To UBound(Rec)
If Temp = Rec(J) Then GoTo Begin2
Next J
Num = Num + 1: SecPrize(Num) = Temp
RecNum = RecNum + 1: ReDim Preserve Rec(RecNum): Rec(RecNum) = Temp
Print SecPrize(Num); Spc(3);
Next I
End Sub

Private Sub Cd3()
Dim Num As Integer
Dim I As Integer
Dim J As Integer
Dim Temp As String * 1
Print
Print "获得三等奖的是："
For I = 1 To 10
Randomize
Begin2: Temp = Chr(Int(26 * Rnd) + 65)
For J = 1 To UBound(Rec)
If Temp = Rec(J) Then GoTo Begin2
Next J
Num = Num + 1: ThiPrize(Num) = Temp
RecNum = RecNum + 1: ReDim Preserve Rec(RecNum): Rec(RecNum) = Temp
Print ThiPrize(Num); Spc(3);
Next I
End Sub

Private Sub Command1_Click()
Cd1
Cd2
Cd3
End Sub

Private Sub Form_Load()
Command1.Caption = "抽奖"
End Sub

怎么查看iphone7plus是否是二手机

光伏发电组件板十五点九千瓦，装几千瓦的逆变器?是不是大点好?

如何鉴别手机真假，主要看哪些数据

我用QQ号登陆的百度，再创建了一个百度贴吧的账号名字，但没设置密码，现在百度账号登陆要密码，可我

新文化运动产生的基本条件包括俄国社会主义革命的影响吗