1樓：軟萌小奶貓
dim x as integer '1.定義變數x
dim y as integer '2.定義變數y
private sub command4_click() 3.當單擊控制項command4時執行下面的語句。
dim x as integer
x = 1 '4.賦予變數x的值為1
y = 1 '5.賦予變數y的值為1
call aa(y + 1) '6.呼叫巨集aa，並設定aa的引數z為y+1，因為y=1，所以結果z=1+1=2，然後會跳到第9
z = bb(x) '7.賦予z的值為自定義函式bb(x)，然後跳到第12，即在x的基礎上加1，因為。
x=1，所以z=2，與此同時x經過函式的作用（第12）也變為了2
msgbox "x=" x & y=" y & z=" z '8.對話方塊顯示x,y,z的最終值。
end sub
private sub aa(byval z as integer)
y = z + x '9.賦予y為z+x，在這個巨集裡x和y沒有被賦值，因此預設為原始值0，而z是aa的參。
數，上面呼叫aa時已設定了z為2，所以結果y=2+0=2
z = x + y '10.賦予y為z+x，同樣x為0，上一句得到y=2，所以結果z=0+2=2，然後返回第7
end sub
private function bb(byref y as integer) '11.自定義函式bb(數值)，這個函式的作用是在原數值。
上加1y = y + 1 '12.原數值變為原數值+1
bb = x + y
end function
2樓：匿名使用者
實際在考你函式呼叫的時候，傳參跟函式返回值在程式執行過程中的邏輯。可以等效為下述**。
dim x as integer
dim y as integer
private sub command4_click()dim x as integer
x = 1y = 1
y = y+1 + x
z =y + y
msgbox "x=" x & y=" y & z=" zend sub
vba程式幫忙解釋一下，vba問題求解
dataarea refetstor1c1 在職人員！r2c2 r num c4 這條語句是將活動工作簿中的名稱 dataarea 的值設定為乙個引用。dataarea 可以寫成workbooks dataarea 這名不能這樣寫，前者是引用活動工作簿中的乙個name，後者是引用乙個工作簿。refe...
內涵段子，求解釋，求解釋乙個內涵段子，內涵在哪裡？
老實話好聽 那個老王使老李的妻子懷孕了，當然沾沾自喜，老李還在蒙在鼓裡呢！參加酒席的朋友們，都他娘的心知肚明，誰也不點破，真的不夠朋友。我可憐的老李哦！他娘的，我為什麼不姓王吶？ 老李被他媳婦綠了，那孩子是老王的！內涵段子求解釋 雩葶霄 1，可能性百分之八十 有層次的拂過秀髮，以前是用頭髮遮住臉的，...
求C語言程式的解答 乙個簡單的程式
已修改 include void main 將a b中的最小值賦給a if a c 將a c中的最小值賦給a,即a為a b c中的最小值。if b c 在比較b c將最大值賦給c,完成a b c由小到大的排序。n c 對中間變數n進行初始化。while n a 0 n b 0 用中間變數n代替cpr...