VB 如何在兩個程式之間傳輸資料

有返回和結果處理引數。 你不知道嗎？

有兩種方法可以從子例程傳遞值。

1）使用模組級或全域性變數。例如。

option explicit

r 是模組級變數。

dim r as integer

sub add(byval x as integer, byval y as integer)

將計算結果儲存到 r

r = x + y

end sub

private sub form_click()'呼叫子例程 add

call add(10, 20)

獲取計算結果並列印出來。

print r

end sub

2）使用byref引數實現計算結果的返回。例如，選項顯式

add 子例程使用 byref r 作為整數來返回值 sub add（byref r 作為整數，byval x 作為整數，byval y 作為整數）。

r = x + y

end sub

private sub form_click()dim r as integer

呼叫子例程 add，並將結果傳遞回變數 rcall add（r， 10， 20）。

列印結果。 print r

end sub

function aaaa() as integer

aaa=2 '這是返回值，即左邊是函式名稱，右邊是要返回的值。

end function

VB中函式的引數預設是定址的，這意味著子程式中主程式中引數的變化會反映在主程式中，函式的返回值也可以用來使主程式獲得子程式中生成的值。

VB 的子例程有兩種型別的引數：

關鍵字 byval 宣告為 pass 引數。

address 引數使用關鍵字 byref 宣告。

例如，子例程 aaaa：

sub aaaa(vyval a as integer,byref b as integer)

a=99b=100

end sub

現在去呼叫它，如下所示：

dim x as integer,y as integerx=1y=2

print x,y

aaaa x,y

print x,y

是的，我們可以看到 x 的輸出是相同的，而 y 的輸出是不同的。

y 將子例程的結果傳遞給另乙個子例程。

當然，編寫乙個函式可以傳遞結果，但函式名只能傳遞乙個結果，而使用 byref 可以傳遞多個結果。

如果你編寫的子程式是乙個函式，你就沒問題了。

例如：function say（byval s as string）msgbox s

say="ok"

end function