标题: 参数化选座位 [打印本页] 作者: 旧日如昨 时间: 2010-5-12 21:06 标题: 参数化选座位 本帖最后由 旧日如昨 于 2010-5-13 14:46 编辑
建筑系面临着很严峻的问题——选专业老师，上次的情况是，规定在20点准时开始报名，结果20：00：00的就有几个组，搞的很难抉择，只好看飞信弹出的时间了~
那为了解决这一个问题，想了用参数化RANDOM的方法来选，想想这学期不用选老师了，也一直没有着手做这件事。
今天，我们搬专教，迎来了类似的问题便是选座位。然后激发了我做这件事的动力。
首先是将今天参加劳动的同学分为一组，从向阳一面按顺序排好，其次为没参加劳动的同学（必须批评，专业评估这么大的事情，你当在你家吃饭呢，想来就来，不想来拉到啊），依次排到阴面。
程序很简单，给一个数列，然后Jitter,然后在将每一个数字，按照学号排序对应即可。
这是来的同学
没来的同学
然后排出的座位分布图。
（有人名出现，请大家勿八卦，不过还好没有个人信息O(∩_∩)O哈哈~）
Private Sub RunScript(ByVal x As Integer, ByVal y As Object, ByRef A As Object)
'your code goes here…
If x = 0 Then
print("钱汪琦")
Else If x = 1Then
print("韦苗")
Else If x = 2Then
print("向莹")
Else If x = 3Then
print("叶荔")
Else If x = 4Then
print("袁颖")
Else If x = 5Then
print("张琳")
Else If x = 6Then
print("周艳")
Else If x = 7Then
print("陈开宇")
Else If x = 8Then
print("陈思雨")
Else If x = 9Then
print("陈潇")
Else If x = 10Then
print("刁嘉辉")
Else If x = 11Then
print("胡强")
Else If x = 12Then
print("金波")
Else If x = 13Then
print("时伯源")
Else If x = 14Then
print("文纪元")
Else If x = 15Then
print("吴晨昊")
Else If x = 16Then
print("俞思民")
Else If x = 17Then
print("曾勇")
Else If x = 18Then
print("张峰")
Else If x = 19Then
print("林新凯")
Else If x = 20Then
print("张陆阳")
Else If x = 21Then
print("李灏")
End If
End Sub
End Class
这是VB中的程序
作者: panhao1 时间: 2010-5-12 23:40
{:3_62:}图片是XX 麻烦楼主解决下作者: jasonbb88 时间: 2010-5-13 02:27
图片有问题 处理下作者: stratagem 时间: 2010-5-13 12:24
gh除了建模还有这等好处啊{:3_46:}作者: 旧日如昨 时间: 2010-5-13 14:48
好吧 我承认我不知道为什么 上传40K的JPG都说无效图片。。。反正很简单的程序啦 大家娱乐一下就好 呵呵~作者: 旧日如昨 时间: 2010-5-13 14:48
话说 真的不知道QQ竟然还有这样的“版权”制度？作者: ping88 时间: 2011-4-16 00:07
哈 太有趣味了作者: ping88 时间: 2011-4-16 17:56
在那处理这些信息呢 谢谢哈作者: 丞丞 时间: 2012-2-18 17:14
求照度，顶一个