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

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

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

3, 抽奖是屏幕上可以滚动数字的软件叫什么啊？可以输入人名来滚动人名...

public class GuessNumber {
public static void main(String[] args) {
System.out.println（"给你一个0至100之间的整数，请猜测这个数"）；
//随机生成一个0至100之间的随机整数
int realNumber=(int)Math.round(Math.random()*100);
//从键盘上读入你的猜测；
System.out.print（"请输入你的猜测："）；
int yourGuess=System.in.read();
//是否猜对的标识
boolean isRight=false;
//循环校验，直到猜对了为止
while(!isRight){
if(yourGuess > realNumber){
System.out.print（"猜大了，再输入你的猜测："）；
yourGuess= System.in.read();
}
else if(yourGuess < realNumber){
System.out.print（"猜小了，再输入你的猜测："）；
yourGuess=System.in.read();
}
else{
isRight=true;
System.out.print（"恭喜你，猜对了"）；
}
}
}
}

名词解释

安装包

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

Replace

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

Pioneer

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

• 上一篇 随机数字摇号器 用VB做一个随机摇号器
• 下一篇 随机数表怎么看行和列 随机数表法怎么找行列？