求帮忙修改一个vb抽签程序源码，要求能随机产生三个不重复姓名且可以手动设定3个不参加抽签的编号

我没有看到它Label2的，LABEL3你的代码。

的代码如下，已测试，在控制的情况下，可以运行。

显式的选项

私人Command1_Click（）昏暗的RSTR（0至29）作为字符串

昏暗的I，J，K，L，M，P，Q，R

P = Text4Text

Q = Text5Text

R = Text6Text的

RSTR（0）=“张三”

RSTR（1）=;李四

RSTR（2）=“安迪”

RSTR（3）=“亚伦

RSTR（4）=”黎明“

RSTR（5）=”无良“

RSTR（6）=“蕾妮”

RSTR（7）=“张学友”

RSTR（8）=“王和” RSTR（9）=“老干妈”的 BR /> RSTR（10）=“张三1，

RSTR（11）=”李4:1

RSTR =“刘德华1

RSTR（13）（12）=”郭富城1

RSTR（14）=“曙光1”

RSTR（15）=“无良”

RSTR（16）=“蕾妮1

RSTR（17）= “张学友”

RSTR（18）=;的王

RSTR（19）的的“老干妈”

RSTR（20）=“2”陈先生

RSTR（ 21）=“李四”;

RSTR（22）=“2”刘德华

RSTR（23）=“阿龙”

RSTR（24）=“曙光2 /> RSTR（25）=“肆无忌惮”的

RSTR（26）=“蕾妮2

RSTR（27）=”张学友

RSTR（28）=“汪痴

RSTR（29）=“老干妈2

如果Command1Caption =”开始“，然后

Text4Text = VAL（Text4Text）

Text5Text =缬氨酸（ Text5Text）

Text6Text瓦尔（Text6Text）

Command1Caption =“结束”

虽然1

如果Command1Caption =“开始”，然后 BR /> Label1Caption =“获奖者：”＆vbCrLf＆Text1Text＆vbCrLf＆Text2Text＆vbCrLf＆Text3Text

退出

最后

调用DoEvents 随机

K = INT（RND 29）+ 1

L = INT（RND 29）+ 1

M = INT（RND 29）+ 1

如果k > Text4Text和K > Text5Text和K > Text5Text Text1Text = RSTR（K）“忽略第一个数字

如果l > Text4Text和L >文本5。文本和L > Text5Text然后Text2Text = RSTR（L）的屏蔽数字

如果m > Text4Text和M > Text5Text和M > Text5Text然后Text3Text = RSTR（M）的屏蔽数字

对于i = 1到3000

如果Command1Caption =“开始”，然后退出

调用DoEvents

接下来，我

>环

其他

命令。标题=“开始”

如果

END SUB

私人小组Form_Load（）Command1Caption =“开始的结束“

Label1Caption =;迫不及待地开始”

Text1Text =“-----

Text2Text =”-----“

Text3Text =“-----”

Text4Text =“请输入屏蔽1号”

Text5Text =“，请输入屏蔽2号

Text6。文本=“请输入的屏蔽的序列号3”

END SUB

Private Sub Command1_Click()

Dim team(8), teamA(4), teamB(4) As String, i%, j%

team(1) = "中国"

team(2) = "美国"

team(3) = "巴西"

team(4) = "古巴"

team(5) = "俄罗斯"

team(6) = "荷兰"

team(7) = "德国"

team(8) = "西班牙"

For i = 1 To 8

x = Int((9 - i)  Rnd + 1)    '剩余随机选择

If i > 4 Then

teamA(i - 4) = team(x)

Else

teamB(i) = team(x)

End If

For j = x To 8

If j < 8 Then team(j) = team(j + 1)

Next

Next

Text1Text = teamA(1) & Space(2) & teamA(2) & Space(2) & teamA(3) & Space(2) & teamA(4)

Text2Text = teamB(1) & Space(2) & teamB(2) & Space(2) & teamB(3) & Space(2) & teamB(4)

End Sub

这不难

随机数 仍旧按原来那样生成 最后加个判断

比如 随机数x

x = Int(Rnd()  9 + 1)

这样就生成了 1到10 十个自然数了

当 1 ≤ x ≤ 3 就是W

当 4 ≤ x ≤ 8 就是L

当 9 ≤ x ≤ 10 就是D

再加一条判断

Dim x As Integer

Dim Flag As String

x = Int(Rnd()  9 + 1)

If x > = 1 And x < = 3 Then Flag = "W"

If x > = 4 And x < = 8 Then Flag = "L"

If x > = 9 And x < = 10 Then Flag = "D"

Msgbox "幸运字母是" + Flag

纯手打 望采纳 不懂请追问

以上就是关于求帮忙修改一个vb抽签程序源码，要求能随机产生三个不重复姓名且可以手动设定3个不参加抽签的编号全部的内容，包括:求帮忙修改一个vb抽签程序源码，要求能随机产生三个不重复姓名且可以手动设定3个不参加抽签的编号、vb比赛分组抽签程序：编写一个比赛分组抽签程序，把八支队伍（中、美、巴西、古巴、俄罗斯、荷兰、德国、日、VB怎么做加权抽签啊等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！