参数化选座位

旧日如昨 · 发表于 2010-5-12 21:06:14

本帖最后由旧日如昨于 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中的程序