我们班有53个同学，想用VB编写一个随机抽签的程序。上课随机抽人讲题用～ 求源代码。

代码就这个了

一个COMMANDBUTTON

一个TEXTBOX

Private Sub click_Click()

' R=int(（上限-下限+1）rnd+下限)

Dim r As Integer

r = Int((53 - 1 + 1) Rnd + 1)

Text1Text = r

End Sub

'新键两个&nbspCommandButton和&nbspTextBox&nbsp,其中&nbspText2&nbsp的&nbspMultiLine&nbsp属性为&nbspTure&nbsp,ScrollBars&nbsp为&nbsp2&nbsp-&nbspVertical

Dim&nbsplbNum&nbspAs&nbspInteger

Private&nbspSub&nbspCommand1_Click()

&nbsp&nbsp&nbsp&nbspIf&nbspTrim(Text1)&nbsp<>&nbsp""&nbspThen&nbsp'trim&nbsp函数是用来删除&nbsptext1&nbsp两边的空格

&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsplbNum&nbsp=&nbsplbNum&nbsp+&nbsp1

&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbspText2Text&nbsp=&nbspText2&nbsp&&nbsplbNum&nbsp&&nbsp""&nbsp&&nbspText1&nbsp&&nbspvbCrLf&nbsp&nbsp'记录,不过我建议这里用&nbsplistbox

&nbsp&nbsp&nbsp&nbspElse

&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbspMsgBox&nbsp"请输入内容"&nbsp&nbsp'当没有输入内容时

&nbsp&nbsp&nbsp&nbspEnd&nbspIf

End&nbspSub

Private&nbspSub&nbspCommand2_Click()

&nbsp&nbsp&nbsp&nbspRandomize&nbsp&nbsp'如果没有这句每次重新启动程序时&nbspRnd&nbsp函数会还是得出原来的那几个数

&nbsp&nbsp&nbsp&nbsp

&nbsp&nbsp&nbsp&nbspMsgBox&nbsp"抽到的签是&nbsp"&nbsp&&nbspInt((lbNum&nbsp-&nbsp1)&nbsp&nbspRnd&nbsp+&nbsp1)&nbsp&&nbsp"&nbsp号"

&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp'Rnd&nbsp函数的公式,这样出来的数就在&nbsp1&nbsp到&nbsplbNum&nbsp之间了

End&nbspSub

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

command1用来随机抽取，text2显示

text1用来自己输入

command2用来判断

基本思想：假设连续有a位相同，经过验证如果为真则得出结果，如果为假，则假设a=a-1位相同……直到a=0

也可以自己输入text2数据来检验程序

这段程序不局限于7位数

Private Sub Command2_Click()

Dim a$, b$, i%, j%, k%

a = CStr(Text1)

b = CStr(Text2)

For i = Len(a) To 1 Step -1

For j = 1 To Len(a) - i + 1

If Mid(a, j, i) = Mid(b, j, i) Then

k = i

Exit For

End If

Next

If k <> 0 Then Exit For

Next

Print k, Mid(a, j, i)'输出相同位数和相同数字

If len(a)+1-k>5 Then

MsgBox "对不起，无奖项"

Else

MsgBox Len(a) + 1 - k & "等奖"'判断奖项

End If

End Sub

Private Sub Command1_Click()

a = CStr(Text1)

Text2 = 10 ^ (Len(a) - 1) + Int(Rnd 09 10 ^ Len(a))

End Sub

以上就是关于我们班有53个同学，想用VB编写一个随机抽签的程序。上课随机抽人讲题用～ 求源代码。全部的内容，包括:我们班有53个同学，想用VB编写一个随机抽签的程序。上课随机抽人讲题用～ 求源代码。、求vb抽签程序代码 做得好追加高分、vb比赛分组抽签程序：编写一个比赛分组抽签程序，把八支队伍（中、美、巴西、古巴、俄罗斯、荷兰、德国、日等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！