利用PPT随机抽取学号(点名)

java 假设一个班级共35人， 学号从1~35， 请编写程序进行随机学号抽取， 每个学号不 import java.util.ArrayList；import java.util.List；import java.util.Random；public class SelectNo {public static void main(String[]args){将1-35号码放入List集合List<；String>；list=new ArrayList()；for(int i=1；i；i+){list.add(\"\"+i)；}新建一个List集合用来存放抽出来的号码List<；String>；newList=new ArrayList()；随机抽取list集合中的一个元素，抽出后删除Random rd=new Random()；int count=list.size()；集合中剩余号码while(count>；0){int index=rd.nextInt(count)；抽出的号码的位置放入新的集合newList.add(list.get(index))；删除原有集合的元素list.remove(index)；count-；原有集合少了一个}输出号码for(int i=0；i()；i+){System.out.print(newList.get(i)+\"\\t\")；每五个换行if(i%5=4){System.out.println(\"\")；}}}}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如何用VB制作随机学号抽取器？ 这个需要应用以下几个步骤：写一个获取随机学号函数。将这个函数绑定在某个控件上触发抽学号的事件。在某个输出界面显示这个随机学号。首先，学号肯定是整数，所以在窗体代码区定义一个整型的变量来存放Dim StudentNum as Integer然后，新建一个模块，在模块中书写随机数函数，该函数有个整型的返回值。该函数传入2个参数，用于界定随机数的上界和下界(也就是最大最小值)Public Function GetNum(Byval L，Byval U)as IntegerRandomize '重置随机种子GetNum=Int((U-L+1)*Rnd+L)'将范围内获得一个随机整数赋值给该函数的返回值End Function写完了这个函数，记下它的表达式 接收变量=GetNum(最小值，最大值)最后，在窗体中画一个按钮(Command1)，一个文本框(名为Text1)，一个定时器(Timer1)1.双击这个窗体Form1，在它的Load事件中写下：Timer1.Interval=50’让定时器50秒运行一次Timer1.Enabel=True‘让定时器允许运作2.双击定时器Timer1，在它的事件里写下：StudentNum=GetNum(1，30)'假设学生学号从1号到30号，如果经常变动可以从外部获取，用变量表示。Text1.Text=StudentNum&\"号'把取到的随机数显示在文本框里面3.双击按钮Command1，在它的点击事件里写下IF 。

#list#文本框