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

知识中心

您的位置：朵拉利品网 > 知识中心 > 数字抽奖小程序 VB编写一个抽奖小程序,要求每次抽奖的数字不重复

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

1, 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

2, 求一个数字抽奖软件,可以设置最大最小数字的,谢啦！！！

数字抽奖软件 3.2
数字抽奖软件是一个适合商场、单位娱乐晚会等使用的趣味抽奖软件，内置音效、动画效果。奖项包括一至五等奖、幸运奖、未中奖，用户可以设置各奖项出现的百分比以及出现时间。本软件已经成功应用于多个大型商场。
功能特点：
* 支持每个奖项对应不同的数字。
* 支持背景音乐和出奖音效。
* 奖项设置：一等奖，二等奖，三等奖，四等奖，五等奖，幸运奖和未中奖。
* 支持设置各奖项出现概率。
* 支持设置一二三等奖出现的时间。
* 支持数据统计，统计时间段内总抽奖次数以及每个奖项的出现次数。
系统要求：
* 操作系统：简体中文版Windows 2000/XP/2003 Server/Vista。
* 屏幕分辨率1024*768以上，32位真彩色。
* 256M以上内存。
* 声音设备：声卡，音箱。

3, 一抽奖小程序,需十位学生信息,抽出一等奖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

名词解释

安装包

安装包(Install pack)，即软件安装包，是可自行解压缩文件的集合，其中包括软件安装的所有文件。运行这个安装包（可执行文件），可以将此软件的所有文件释放到硬盘上，完成修改注册表、修改系统设置、创建快捷方式等工作。安装包文件多为exe格式。

Replace

Replace是Python、VB、ASP、Windows、SQL和Excel中的函数，功能都是执行替换操作.另外，replace在英语中的意思为take ones position.

Pioneer

Pioneer（先锋电子公司）是一家精于数位娱乐产品的电子设备供应商，由松元望于1947年5月8日创立，总部位于日本神奈川县。Pioneer是第一个开发出镭射激光视盘（LD）的公司，是影音娱乐及光盘技术的世界先驱，旗下产品有DVD、等离子显示器等。