标题: 另类编程：) [打印本页] 作者: AK48 时间: 2003-3-16 07:47 标题: 另类编程：)
公共变量：次数 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
作者: 渣王 时间: 2003-3-16 12:03
果然另类。什么时候高级语言已经支持中文变量了作者: Nev 时间: 2003-3-16 12:51
VB6就支持中文变量和函数作者: Nev 时间: 2003-3-16 12:54
给个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
这是一个排序函数