见你那么有耐心,我就用程序来描述一下吧(方法不唯一),其中的东西得你自己消化了,我只能帮到这了:

Dim DaRen,XiaoHai As Boolean
If Rnd*10 Mod 2 = 0 Then
DaRen=True
Else
XiaoHai=True
End If

If DaRen then
DaRen=False
XiaoHai=True
ElseIf XiaoHai Then
XiaoHai=False
DaRen=True
End If

是吧.
给个思路.

[此贴子已经被作者于2007-9-23 15:59:15编辑过]

呵呵,你又来掺和了.

哦哦?
难哇!!

没有啊.

都说不难咯

[此贴子已经被作者于2007-9-23 16:00:01编辑过]