急求VB随机抽号程序编写详细过程，给高分！！！！！

来源：百度知道 编辑：UC知道 时间：2024/05/23 18:04:02
班级要用，急求VB随机抽号程序编写详细过程，我们班45个人，活动用，高分啊，越详细越好
就是学号的随机抽取，从1-45号，随机抽选，我的邮箱zhaochunyang999@hotmail.com,给我了，就给分，要VB程序

把你的邮箱留下
我这里有一个随机点名的程序和源码
直接发给你，你就可以用

不知道你是想直接要代码,还是想学习这种程序的代码写法..
我写过一个的:
http://hi.baidu.com/%C4%DD%BF%C9%B1%A6%B1%B4/blog/item/185ed343883cc0129213c65c.html

如果你是想直接要代码,那你就再把要求写详细些吧.. 45个人? 抽号?

RANDOMIZE

A=INT（RND（）*

RANDOMIZE

A=INT（RND（）*50+1）

PRINT A

先做3个Label
Private Sub Command1_Click()
Randomize
Label2.Caption = Fix(Rnd * 45)
Label3.Caption = Fix(Rnd * 45)
Label4.Caption = Fix(Rnd * 45)
If Label2.Caption = 6 Or Label3.Caption = 6 Or Label4.Caption = 6 Then
Image1.Visible = True
Else
Image1.Visible = False
End If

End Sub

Private Sub Command2_Click()
End
End Sub

Dim ss$(), ListNum%, n%, m%, l%, OpFilename$
Dim Newss$()Sub Savefile(xx As String)
Open xx For O