66问答网
所有问题
如何用Vb做一个摇号器,就是摇班级座位号的,给个方法,或者其他……
如题所述
举报该问题
推荐答案 2014-09-25
CInt(Int((上限 - 下限 + 1) * Rnd() + 下限))
即例如 20 个座位,随机数 Cint(Int(20 * rnd()),下限是 0,上限是 19。
产生一个 20 个 数值的数组,内容是 0~19,序号也是。
Do While 座位数组.Contains(随机座位)
Msgbox("您的座位是:" & 随机座位)
座位数组.Remove(随机座位)
Loop
温馨提示:答案为网友推荐,仅供参考
当前网址:
http://66.wendadaohang.com/zd/sipn9Unxn9xU9U9U2s.html
其他回答
第1个回答 2014-09-23
随机数,根据随机数生成座位号,然后显示。
追问
程序是什么样的?能发来么,我不懂啊……
第2个回答 2014-09-23
就是用产生随机数的方法啊。
追问
我不会……这么说吧,我替同学问的,他想知道那个程序是什么样的,他们班要
相似回答
用VB做一个
随机
摇号器
答:
while
座位
数组.contains(随机座位)msgbox("您的座位是:"& 随机座位)座位数组.remove(随机座位)loop
关于
VB摇号器的
问题!!急急急急急!!!
答:
'自己修改,用字典给你写 Option Explicit Dim dic Private Sub Command1_Click()Dim n Do n = Int(Rnd * 10 + 1)If dic.Count = 10 Then Exit Do If Not dic.Exists(n) Then dic.Add n, ""Print n Exit Do End If Loop End Sub Private Sub Form_Load()Set dic = CreateObject(...
vb摇号
号码滚动 我要用vs的
vb做一个摇号
程序 现在要让号码滚动起来 号 ...
答:
Dim a(100) As String * 10 Private Sub Command1_Click()Timer1.Interval = 100 - Timer1.Interval Randomize End Sub Private Sub Form_Load()Command1.Caption = "开始"For i = 0 To 100 a(i) = "ABC000" & 100 + i Next i End Sub Private Sub Timer1_Timer()i = Int(Rnd ...
如何在VB
6.0上编写
一个
可以摇滚手机号码产生幸运观众的程序?多谢~
答:
把手机号码写到d:\号码.txt ,每个占一行 Dim a()Dim j As Integer Private Sub Command1_Click()Timer1.Enabled = Not Timer1.Enabled a(j) = ""If Timer1.Enabled = False Then Print Text1 End Sub Private Sub Form_Load()Timer1.Interval = 50 Timer1.Enabled = False Open "d:\...
我要去北京CBD上班
,怎么做
才算是
一个
圈内人士呢
答:
既然要圈内,当然你要专业,而且有着肩负着未来CBD发展的责任才行,不能把自己看作一个普通公司的打工者,而是一个区域的建设者,那么你就能很快融入进去,很快地进入一个CBD的圈内,再在这地方待上个7,8年,你也能自豪地说自己是CBD圈子里的业内人士了 参考资料: CBD之窗 本回答由提问者推荐 举报| 答案纠错 |...
vb
编程
摇号
系统
在
100以内的
一个
两位数正整数代码
答:
x=int(rnd*90)+10
大家正在搜
如何制作摇号器
如何摇号
北京摇号多久摇一次
网上摇号怎么摇号
摇号怎么摇
汽车摇号怎么摇
房子摇号怎么摇
摇号是什么意思
网上摇车牌号怎么摇
相关问题
用VB做一个随机摇号器
如何用vb做一个随机摇号1-78,但是每次出现的号码不重复,...
关于VB摇号器的问题!!急急急急急!!!
vb摇号号码滚动 我要用vs的vb做一个摇号程序 现在要让号...
vb怎么制作一个36选7的摇奖机
vb彩票摇奖 编写一个简易的30选五彩票摇奖程序。
vb摇号程序
求vb摇奖小程序,非常简单,要求请看……