if 空调坏了 then 去修
if 没钱 then 挣钱
--------------------
procedure 挣钱
begin
while not 有钱 do
   begin
   if 愿意偷 then
      偷
      exit while
   end if
   if 愿意抢 then
      抢
      exit while
   end if
   老实遍你的程吧!
loop
end

解决方案 »

  1.   

    Like me !
    If 你的空调不吹风 then 
        Give me your Tel.
    else
        msgbox"拎着它去找卖空调的。"
        neusoftlan.see  (上面大哥的过程!)
    End if 
      

  2.   

    tg123(T.G.) 我要代码
    [email protected]
      

  3.   

    s = Timer
    If 空调.不吹风 = True Then
    Do
    空调.吹风 = True
    If 空调.不吹风 = False Then Exit Do
    If s > 10000 Then
    MsgBox "超时!空调修好后点确定。"
    Exit Do
    End If
    Loop
    MsgBox "空调吹风了。"
    End If
      

  4.   

    Do
    On Error Goto OKs
    空调.风力 = 空调.风力 + 1
    Loop
    OKs:
    End