vb 随机抽取学号 你只有56个数，你按了57次，不可能再找到不重复的数了，你可以用一个变量记录已产生的次数，超过了提示已经没有未重复的数了。Dim a(1 To 56)As Integer，n As IntegerPrivate Sub Command1_Click()Dim b As IntegerRandomizeIf nb=Int(Rnd*56)+1Do While b=a(b)b=Int(Rnd*56)+1Loopa(b)=bLabel1.Caption=bElseMsgBox\"已无为重复数End Ifn=n+1End Sub
想做一款随机抽取号数( 学号 )来叫学生回答问题的简易电脑程序，会很难吗？ 身为老师，想做一款随机点号数的软件。学生都有自己的学号，只要软件能随机抽取1~x之间的一个号数，就能…
java如何做一个随机抽取学号小程序 程序代码：http：//pan.baidu.com/s/1eQmrI7o 方法/步骤 1 功能：根据你输入的学号总数，点击开始，中间的结果就根据学号的总数不停变化，点击停止，结果停止变动， 2 分析。
如何用EXCEL在一列指定的学号中，随机抽取一个并显示姓名？ 很简单啊，用VLOOKUP（）粘贴函数即可。我们上课时，老师用这个函数来产生回答问题的同学，输入RAND()871+58，就在一个单元格里产生了一个随机数(我们班的学号从871开始，到928。
有没有一款软件可以随机抽出一个号码的 范围可以设定 是用来班级里抽学号提问的 可以试一下这款，是由我自己开发的，Win8界面风格，六种抽取模式，并且设置丰富多样，欢迎使用并提出反馈意见，谢谢！
如何在PowerPoint中实现随机抽取手机号，在PowerPoit中利用控件工具，实现抽取手机号，抽取幸运者手机号，中奖者手机号。下面介绍具体操作过程。
VB怎么编抽学号的 Private Sub Form_Load()Timer1.Interval=100 '设置随机数字0.1秒刷新一次Timer1.Enabled=True '开启计时器End SubPrivate Sub Timer1_Timer()RandomizeLabel1.Caption=Int(50*Rnd)+1 '随机产生1-50的数字End SubPrivate Sub Command1_Click()Timer1.Enabled=False '如果仅一次选择学号就用这句代码'Timer1.Enabled=Not Timer1.Enabled '如果要多次选择学号就用这句代码End Sub
