抽奖小程序 一抽奖小程序,需十位学生信息,抽出一等奖1名,二等奖2名,三等奖...

2020-05-16 10:23:02 来源：朵拉利品网

1, 一抽奖小程序,需十位学生信息,抽出一等奖1名,二等奖2名,三等奖...

public static void main(String[] args) {
int input = 10;
Scanner s = null;
Listls = new ArrayList();
ls.add(new Student（"张3"， "男"））；
ls.add(new Student（"张4"， "女"））；
ls.add(new Student（"张5"， "男"））；
ls.add(new Student（"张6"， "男"））；
ls.add(new Student（"张7"， "女"））；
ls.add(new Student（"张8"， "男"））；
Listlscopy = new ArrayList();
// 由于不能重复中奖，所以抽一次就要把中奖的学生移除，所以不能在原list中操作。
lscopy.addAll(ls);
while (input != 0) {
System.out.println（"选择："）；
System.out.println("1：一等奖")；
System.out.println("2：二等奖")；
System.out.println("3：三等奖")；
System.out.println("0：结束")；
s = new Scanner(System.in);
input = s.nextInt();
switch (input) {
case 1:
// 随机出0-9 十个数字
int first = (int) (Math.random() * (lscopy.size() - 1));
System.out.println（"一等奖：" + lscopy.get(first));
// 已经中奖的移除
lscopy.remove(first);
break;
case 2:
for (int i = 0; i

2, VB编写一个抽奖小程序,要求每次抽奖的数字不重复

Dim n As Integer
Dim a()
Private Sub Command1_Click()
If n = 0 Then "第一次点击时执行
m = Val(Text1)
ReDim a(1 To m)
For i = 1 To m "生成数组a，元素为1至m这m个数
a(i) = i
Next
For i = 1 To m - 1 "随机打乱数组a中元素
r = Int(Rnd * m + 1)
tmp = a(i)
a(i) = a(r)
a(r) = tmp
Next
End If
n = n + 1 "计数点击次数
If n > Val(Text1) Then "次数超过指定次数，抽奖结束
MsgBox "抽奖结束！"
Exit Sub
End If
Text2 = a(n) "从数组中抽出第n个数，由于数组中是随机排列，所以相当于生成一个随机数，并且不会重复
End Sub

名词解释

new

翁沙功·波拉玛塔功(Wongsakorn Poramathakorn) ，泰文名：วงศกร ปรมัตถากร，小名New。泰国CH7签约男演员，参演作品有《命定之爱》、《心影》、《无国界爱情乐曲》、《破晓之爱》、《白莲花》、《别动我的牛》等。

ls

ls 指令是Linux下最常用的指令之一。ls 命令将每个由Directory参数指定的目录或者每个由 File 参数指定的名称写到标准输出，以及您所要求的和标志一起的其它信息。如果不指定 File 或 Directory 参数， ls 命令显示当前目录的内容。

System

system是一个C语言和C++下的函数。windows操作系统下system () 函数详解主要是在C语言中的应用，system函数需加头文件后方可调用。

• 上一篇 抽数字小程序 随机求抽数字的软件
• 下一篇 微信群抽签功能 微群组功能有哪些？