如何用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 ...

如何在VB6.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

大家正在搜

如何制作摇号器如何摇号北京摇号多久摇一次网上摇号怎么摇号摇号怎么摇汽车摇号怎么摇房子摇号怎么摇摇号是什么意思网上摇车牌号怎么摇