另类编程：)

AK48

公共变量：次数 as int private sub 钱_还钱() if 人民币="还清" then 次数=0 请客（"酒楼五星级"） '调用 请客（）事件 else 修理("满清十大酷刑") '调用 修理（）事件 end if end sub private sub 请客（参数） if 参数="酒楼五星级" then if 请客吃饭=酒足饭饱 then 次数=0 '请客次数清零 迪厅() 桑拿() 按摩() else 次数=次数+1 if 次数>5 then 修理("满清十大酷刑") '***连续吃了五次还没有吃够？调用 调用 修理（）事件 修理***饭桶！ else 请客("酒楼五星级") ‘直到 条件：请客吃饭=酒足饭饱 满足 end if end if else 其它事件处理() end if end sub private sub 修理（参数） dim 结果 as string if 参数="满清十大酷刑" then 结果=上刑() case 结果： "毫发无伤":结交（）'此乃神人也 "轻微皮伤":结纳（）'可做保镖 "重伤":转交医院（）'住院治疗，花费 "死亡":自己进板房（）'故意杀人罪 else 其它事件处理() end if end sub

渣王

果然另类。什么时候高级语言已经支持中文变量了

Nev

VB6就支持中文变量和函数

Nev

给个VB代码大家看看： Private Sub 排序(个数 As Integer) Dim i, II Dim P Dim TempTime As Integer, TempString As String For i = 0 To 个数 - 1 P = i For II = i + 1 To 个数 - 1 If LineTime(P) > LineTime(II) Then P = II End If Next II If P <> i Then TempTime = LineTime(i) '以下三句交换时间 LineTime(i) = LineTime(P) LineTime(P) = TempTime TempString = Lyric(i) '以下三句交换相应的歌词 Lyric(i) = Lyric(P) Lyric(P) = TempString End If Next i End Sub 这是一个排序函数

[此贴子已经被作者于2003-3-16 13:25:21编辑过]

渣王

想问一下，如何在EXCEL里排序，可以自动将同总分的名次变成并列名次，然后下位自动退一位？

Nev

即是点啊？讲具体点

渣王

一个班上的成绩总分排名 比如有两个人的总分是相同的，所以他们的名次应该是并列的 但EXCEL里的自动排序不能并列，只能一直排下去

学友

犀利啊！1

Nev

哦，不过EXCEL我都吾识啵

AK48

以下是引用渣王在2003-3-16 15:59:12的发言： 一个班上的成绩总分排名 比如有两个人的总分是相同的，所以他们的名次应该是并列的 但EXCEL里的自动排序不能并列，只能一直排下去

EXCEl的表和我们用的数据库里的表原理是一样的，标头就是字段名称，理论上两个字段是不能并列的，在EXCE里恐怕做不到。