1樓:匿名使用者
這個概念用在程式設計師自己編寫子程式中。
vb裡子程式分為:過程和函式;
以自定義乙個可以計算兩數之和的函式為例:
說明:本函式需要兩個引數,這兩個引數就是你要它計算和的兩個加數,返回乙個值,就是和。
在窗體上新增乙個按鈕command1
**如下:
option explicit
private sub command1_click()
dim a as single
dim b as single
a = 12.5
b = 20.8
print myadd(a, b) '呼叫自定義函式
end sub
private function myadd(byval x as single, byval y as single) as single
myadd = x + y
end function
這最後三行**就是乙個自定義計算兩數之和的函式,其中;
myadd -- 函式名稱,函式具有型別,決定了返回值的型別
x,y ---- 就是2個引數,就是形式引數,可以看到引數需要定義型別
在呼叫自定義函式的語句 myadd(a, b)中,a,b就是實際引數;
在自定義函式中形式引數前用byval,說明該引數執行的數值傳遞執行呼叫,就是把實際引數的值傳遞給對應的形式引數;
而要特別注意幾點;
1,實際引數與形式引數個數相等;且一一對應,型別一致。
2,這個例子裡,a對應x,b對應y。
3,在自定義函式中形式引數前用byval,說明該引數執行的數值傳遞。(還有傳遞位址的,略)
4,對於數值傳遞的形式,實際引數可以是「表示式」。
例如;本例可以用下面的格式呼叫;
dim x as single
dim y as single
dim z as single
x = 2.3
y =3.14
z = myadd(x+y,x-y)
print z
這裡的x+y對應形式引數x,x-y對應形式引數x,
即將 2,3+3.14傳遞給x,2,3-3.14傳遞給y,結果是:4.6
2樓:
看例子function add(x,y) x,y是形參
dim sum
sum=x+y
add=sum
end function
dim a,b,sum
a=3b=4
sum=add(a,b)
這裡的x,y是形參,a,b是實參
關於vb的問題
僅供參考 private sub command1 click dim warning as string dim sql as string warning 輸入有效性判斷。if textuser then warning warning 使用者名稱 if textpassword then wa...
關於vb的問題!!!急求!!!vb的運算問題!!
if a i max and i 20 thenmax a i i i 1 end if 錯誤 了 應該增加乙個迴圈語句。vb選擇題,高手來!等,求指導,求解答。1 b 還可以以編譯程式的方式執行 2 a word excel access都可用vba 3 b exp 指數函式,返回值是小數 lef...
關於VB問題
text1.text 你好 程式執行時候先執行這個,這個時候text1.text被賦值為你好這個片語,因為程式沒結束,所以接下來根據 text1.text 謝謝 text又被賦值為 謝謝 然後是 end sub 也就是結束程式嘛,所以了 只能顯示謝謝這兩個字,也就是說你把text1.text 先賦值...