if 空调坏了 then 去修
if 没钱 then 挣钱
--------------------
procedure 挣钱
begin
while not 有钱 do
begin
if 愿意偷 then
偷
exit while
end if
if 愿意抢 then
抢
exit while
end if
老实遍你的程吧!
loop
end
if 没钱 then 挣钱
--------------------
procedure 挣钱
begin
while not 有钱 do
begin
if 愿意偷 then
偷
exit while
end if
if 愿意抢 then
抢
exit while
end if
老实遍你的程吧!
loop
end
If 你的空调不吹风 then
Give me your Tel.
else
msgbox"拎着它去找卖空调的。"
neusoftlan.see (上面大哥的过程!)
End if
[email protected]
If 空调.不吹风 = True Then
Do
空调.吹风 = True
If 空调.不吹风 = False Then Exit Do
If s > 10000 Then
MsgBox "超时!空调修好后点确定。"
Exit Do
End If
Loop
MsgBox "空调吹风了。"
End If
On Error Goto OKs
空调.风力 = 空调.风力 + 1
Loop
OKs:
End