[VB6 ] 傳值ByVal、傳址ByRef呼叫

看板Visual_Basic作者minimatsumi (sugar)時間14年前 (2011/04/17 11:34)推噓4(4推 0噓 13→)

留言17則, 4人參與討論串1/1

請問下面兩題該如何解，不知道為什麼呼叫第二次我就會算錯！請辦上各位先進幫忙。 1.VB答案16 Private Sub Form_Activate( ) DIM X as Integer X=3 Call F1(X) Debug.Print(X) End Sub Sub F1( ByRef X As Integer ) Call T2( X=X+X , X , X ) End Sub Sub T2(ByRef A As Integer ,ByVal B As Integer , ByRef C As Integer ) A = A + 1 : B = B + 2 : C = A + B * C End Sub. 請問最後印出？ 2.VB 答案15 Private Sub Form_Activate() Dim X As Integer Call S1(2) End Sub Sub S1(ByVal X As Integer) Call S2(X, X, X) Print X End Sub Sub S2(ByRef A As Integer, ByVal B As Integer, ByRef C As Integer) A = A + 1 B = B + 2 C = A + B * C End Sub -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 123.195.48.142

→

pinkykk

04/17 13:31, , 1^F

04/17 13:31, 1^F

→

pinkykk

04/17 13:44, , 2^F

04/17 13:44, 2^F

→

pinkykk

04/17 13:44, , 3^F

04/17 13:44, 3^F