对于???你的选择是什么？TRUE OR FALSE

realline

Function 相遇后的大家(ByVal 是否团结 As Boolean, ByRef A君 As Long, ByRef B君 As Long, ByRef C君 As Long) As Long
   
    If 是否团结 = True Then
        'A向B学习
        A君 = A君 * B君
        'B向C学习
        B君 = B君 * C君
        'C向A学习
        C君 = C君 * A君
    Else
        'A认为B不行,要搞B
        B君 = B君 / A君
        'B认为C不行,要搞C
        C君 = C君 / B君
        'C认为A不行,要搞A
        A君 = A君 / C君
    End If
   
    相遇后的大家 = A君 + B君 + C君
   
End Function

Private Sub Command1_Click()
    Dim A君 As Long
    Dim B君 As Long
    Dim C君 As Long
    Dim 是否团结    As Boolean

    A君 = 100
    B君 = 100
    C君 = 100
   
    是否团结 = ???
   
    MsgBox ("相遇后的成果：" & CStr(相遇后的大家(是否团结, A君, B君, C君)))

End Sub

wxhwhmanshan

FLASE

Cipher

这个...想到柏杨对三个中国人的精辟描述....

惩罚者

整个VB区就你游戏之家大S在那里瞎扯。
C++怎么和VB不兼容了？很多人都用C++搞核心，VB做辅助工具，就连你那个什么“开发包”底层都是用C++做的。你这么说不就等于是给自己一耳光了？
哈哈。自己水平低还不承认。

esxgx

本人会VB/Delphi/C/C++/ASM,难道就只能在C++版块么?