另类编程：)
公共变量：次数 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
果然另类。什么时候高级语言已经支持中文变量了 VB6就支持中文变量和函数 给个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里排序，可以自动将同总分的名次变成并列名次，然后下位自动退一位？ 即是点啊？讲具体点 一个班上的成绩总分排名
比如有两个人的总分是相同的，所以他们的名次应该是并列的
但EXCEL里的自动排序不能并列，只能一直排下去 犀利啊！1 哦，不过EXCEL我都吾识啵
以下是引用渣王在2003-3-16 15:59:12的发言：
一个班上的成绩总分排名
比如有两个人的总分是相同的，所以他们的名次应该是并列的
但EXCEL里的自动排序不能并列，只能一直排下去
EXCEl的表和我们用的数据库里的表原理是一样的，标头就是字段名称，理论上两个字段是不能并列的，在EXCE里恐怕做不到。
页:
[1]
2