[醫(yī)學(xué)]第四章函數(shù)和過程(參考版)
2024-10-19 17:57本頁面
【正文】 (1)a=S(b) (2) Call S b (3) S b C=F(a,b) p103第 3題。輸出結(jié)果為： m=7 x=8 y=1 n=7 返回主程序后，輸出 a=2 b=5 (a 、 b的值保持不變 ) 判斷下列過程定義語句的正誤并改正。b End sub (1)當(dāng)?shù)谝淮握{(diào)用函數(shù) pd時，實在參數(shù) a 取代形式 參數(shù) x,形式參數(shù) y 等于實在參數(shù) b的地址，即 x=2 、 y= y是地址傳遞，所以 m=x+y相當(dāng)于 m=x+b 、 y=y+1相當(dāng)于 b=b+1,那么語句執(zhí)行結(jié)果為： m=5 x=3 y=4 n=1 返回主程序后，輸出 a=2 b=4 由此可見，值傳遞時，參數(shù)值在子程序中的變化不影 響；而地址傳遞時，參數(shù)值在子程序中的任何變化都 會返回給調(diào)用該子程序的實在參數(shù)。b d=pd(a+b,c) print “a=“。b d=pd(a,b) print “a=“。n pd=n End Function Sub Form_click() Dim a as integer,b as integer Dim c as integer,d as integer a=2:b=3:c=0 d=pd(a,b) print “a=”。y _ 。x 。m。函數(shù)被調(diào)用多次， 請仔細(xì)分析每次調(diào)用后有關(guān)變量的變化。 Private Sub form_Click() Dim a(3) As Integer Dim k As Integer, j As Integer End Sub For j = LBound(a) To UBound(a) a (j) = j＋ 1 Next j k = tim(a( )) Print k 數(shù)組作實參 省略維數(shù) 函數(shù)返回一個值 Private Function tim(n( ) As Integer) Dim t%, i% t = 1 For i = LBound(n) To UBound(n) t = t * n(i) Next i tim = t End Function 數(shù)組作形參 省略維數(shù) 例 4－ 9 編制 sub過程，用于在數(shù)組中找出最大值、 最小值。 ?用數(shù)組作為過程的參數(shù)時，進行的不是“值”的傳遞，而是“址”的傳遞。 a數(shù)組 注意： ?過程定義時， 形參列表中的數(shù)組用數(shù)組名后的一對空的圓括號表示，維數(shù)省略?？梢杂? 下面的語句調(diào)用該過程： Call s( p (),q()) 把數(shù)組 p和 q傳送給 a b。例如： Sub s( a() ,b()) …….. End sub 該過程有兩個參數(shù)，這兩個參數(shù)都是 數(shù)組 。 B。 C End Sub 1 3 4 注意 : 如果在調(diào)用時該形參對應(yīng)的實參是常量或者表達式，則按 值傳遞 方式調(diào)用過程。 Private Sub Command1_Click() a% = 10 b% = 20 Swap1 a, b print a,b End Sub Sub Swap1(ByVal x%, ByVal y%) t% = x: x = y: y = t End
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1