1樓：資訊科技及論證評審
（為了方便講解，上下程式段換了下位置，不影響實際功能）
首先，不顯示的原因是在fun函式中沒有返回值，所以不顯示，
因為在「fun」函式中，最後是將值賦給f，沒有任何意義，所以應該是
f = a * b * c，變為「fun = a * b * c」，講解如下：
private sub command1_click() //點選命令按鈕事件
dim a as integer //定義a為整型
a = 2 //a賦值2
for i = 1 to 2 //i從1迴圈到了，迴圈兩次
print fun(a); //視窗顯示呼叫函式後的值
next //下一次迴圈
end sub
function fun(a as integer)
static c
//靜態變數c，即呼叫函式後，c的值保留，如第一次呼叫後c為6，則下次進入函式是c就是6開始
b = 0: b = b + 2: c = c + 2
//b賦值0，b+2後賦值給b，c+2後賦值給c，最後b=2,c=2
fun = a * b * c
//a*b*c賦值給fun，即fun=2*2*2=8，
//（下次呼叫時，c初始=2，所以上句時c=4了，最後是fun=2*2*4=16）
end function
2樓：玉面飛龍
你的c好像沒有給賦初始值啊。這樣的話你的functions函式是得不出什麼數來的。再說，你的fun只是乙個計算過程函式，根本就不是得出乙個值來。還有就是你的print fun(a);
。後面還跟了哥分號。怎麼會編譯通過呢。
用vb編寫一段分段函式的程式，用vb編寫一段計算分段函式
建text1,text2,command1.如下。private sub command1 click dim x as single,y as singlex csng text1.text select case x case is 2 y 3 x 1 1 xcase is 1 y sin x ...
求一段matlab程式，求解一段簡單的MATLAB程式
a rand 10，10 這裡需要自己改哦a max a 3,n a for j 1 10 for i 4 10 if a i,j a n 1,j a i,j break endif i 10 n 1,j a 10,j endend endm max a x m n x sum sum x clcc...
用vb編寫一段程式，計算1 50所有奇數的乘積
的,忽略了乙個溢位問題,1 3 5 49 結果肯定不是乙個整數能存放得了的.我用了乙個函式 大數乘法 可以計算,只要結果的位數在陣列下標上限允許的範圍內都行 private sub command1 click dim s as string s 1 for i 1 to 50 step 2 s c...
求一段C 小程式，急求編寫一段簡單的C 小程式！！！
以前做過類似的題，不過當時是簡單處理，忽略 中間的內容 bust 破產的 一文不名的 be clean dead bust 窮得 一文不名you are bust you are bust你破產了 sorry to trouble you 抱歉麻煩你 正學著html語言呢，急求編寫一段簡單的c 小程...
求解釋一段C程式
呃，因為閏年的條件是 能被4整除 但不能被100整除，或者能直接被400整除的年份。你這個這個是對的，但是也可以改為 if y 4 0 y 100 0 y 400 0 是取餘，因為要判斷能不能被4整除，也就是看看除以4後有沒有餘數啊，如果y 4 0成立說明就是4的倍數，能被4整除。其實這一句 if ...