vb關於引數的問題

時間 2021-09-13 06:11:34

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 先賦值...