欢迎来到朵拉利品网
知识中心
资讯
  • 资讯
  • 产品
  • 供应商
您的位置: 朵拉利品网 >  知识中心 > 数字抽奖小程序 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、等离子显示器等。