您的位置：程序门 -> vb -> 网络编程

随机排考场号和坐位号

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

随机排考场号和坐位号

发表于：2007-12-21 11:06:25 楼主

如何随机排考场号和坐位号 ! 请给代码,先谢谢了!!

发表于：2007-12-21 17:36:391楼得分:0

这样发题很少会有人回答的! 除非是手上刚好写有的!! 呵呵~

我们只能提供思路!和例题! 这样有利于大家一起学习

例: 考试号码为s001-s500 10个考场每个考场50个坐位（比如1号考场的座位分为 1#1 - 1#50

材料:3个list控件 1个command控件

步骤:
1.加入材料名字默认不用改
2.复制代码:

private sub command1_click（)
for i = 1 to 10
for k = 1 to 50
list2.additem k
next k
for j = 0 to list2.listcount - 1
a = rnd * （list1.listcount - 1)
b = rnd * （list2.listcount - 1)
list3.additem i & "#考场：" & list1.list（a) & "到" & i & "#" & list2.list（b) & "号座位"
list1.removeitem a
list1.refresh
list2.removeitem b
list2.refresh
next j
next i
end sub

private sub form_load（)

for i = 1 to 500 '这个循环添把考号添加到程序中这里假设考号为 “s001-s500”

if i < 100 then

a = right（"000" & i, 3)

else

a = i

end if

list1.additem "s" & a

next i

end sub

仔细理解command下的代码,你就会明白这个程序的思路了!
修改一下就可以得到你需要的了^_^

发表于：2007-12-21 17:54:322楼得分:0

提问记得把问题描述清楚!

发表于：2007-12-21 17:55:153楼得分:0

提问记得把问题描述清楚!

发表于：2007-12-21 19:22:494楼得分:0

vbscript code


private sub command1_click（)
dim r as integer, s as integer, i as integer, m as integer, n as integer
 
list1.visible = false
r = val（txtnumberofroom)
s = val（txtnumberofseat)
for i = 1 to r * s        '这个循环把索引号添加到程序中
   list1.additem i
next i

list2.clear
randomize
for i = 1 to r * s        '这个循环选号
   m = int（rnd（) * list1.listcount)
   n = val（list1.list（m))
   list1.removeitem （m)
   list2.additem right（"：00000" & cstr（i), 5) & "号: " & right（"0" & cstr（n \ s + 1), 2) & " 号考场 " & right（"0" & cstr（（n mod s) + 1), 2) & " 号座位"
next i
end sub

发表于：2007-12-21 20:43:575楼得分:0

我就是做这个的，有几个问题，你根本就没确认，因此无法做

1、有几个考场，每个考场有多少座位
2、考号是全部随机，还是考生随机，考号顺排？
3、如果考生少于，所有考场*每考场考生数量，则考生是均匀分配还是，紧凑分配
4.。。。。。。。。。。。。。。。。。。

总之，很多问题，你根本就不清楚，所以无法做。

发表于：2007-12-22 00:47:416楼得分:0

2 楼的计算结果为什么 01号位置在02 号考场？

其他资讯