FB語言允許宏帶有參數(shù)。在宏定義中的參數(shù)稱為形式參數(shù),在宏調(diào)用中的參數(shù)稱為實(shí)際參數(shù),這點(diǎn)和函數(shù)有些類似。
'冬瓜湯改編自c語言中文網(wǎng)c語言基礎(chǔ)入門
對(duì)帶參數(shù)的宏,在調(diào)用中,不僅要宏展開,而且要用實(shí)參去代換形參。
帶參宏定義的一般形式為:
#define 宏名(形參列表) 字符串
在字符串中含有各個(gè)形參。
帶參宏調(diào)用的一般形式為:
宏名(實(shí)參列表);
例如: #define M(y) y*y+3*y '宏定義
'// Code
k=M(5); //宏調(diào)用
在宏調(diào)用時(shí),用實(shí)參5去代替形參y,經(jīng)預(yù)處理宏展開后的語句為k=5*5+3*5。
【示例】輸出兩個(gè)數(shù)中較大的數(shù)。
#define MAX(a,b) iif(a>b, a , b)
Dim As long x,y,myMax
input "請(qǐng)輸入一個(gè)數(shù)字: " ,x
Input "請(qǐng)輸入另一個(gè)數(shù)字:" ,y
myMax = MAX(x, y)
print myMax
sleep
運(yùn)行結(jié)果:
輸入兩個(gè)數(shù)字: 10 20
max=20
程序第2行進(jìn)行了帶參宏定義,用宏名MAX表示條件表達(dá)式iif(a>b, a , b),形參a、b均出現(xiàn)在條件表達(dá)式中。程序第7行myMax=MAX(x, y)為宏調(diào)用,實(shí)參 x、y 將代換形參a、b。宏展開后該語句為: max=iif(x>y, x , y)
對(duì)帶參宏定義的說明
1) 帶參宏定義中,形參之間可以出現(xiàn)空格,但是宏名和形參列表之間不能有空格出現(xiàn)。例如把: #define MAX(a,b) iif(a>b, a , b)
寫為: #define MAX (a,b) iif(a>b, a , b)
將被認(rèn)為是無參宏定義,宏名MAX代表字符串(a,b) iif(a>b, a , b)。宏展開時(shí),宏調(diào)用語句: max=MAX(x,y);
將變?yōu)椋?max=(a,b)iif(a>b, a , b)(x,y)
這顯然是錯(cuò)誤的。
2) 在帶參宏定義中,不會(huì)為形式參數(shù)分配內(nèi)存,因此不必指明數(shù)據(jù)類型。而在宏調(diào)用中,實(shí)參包含了具體的數(shù)據(jù),要用它們?nèi)ゴ鷵Q形參,因此必須指明數(shù)據(jù)類型。
這一點(diǎn)和函數(shù)是不同的:在函數(shù)中,形參和實(shí)參是兩個(gè)不同的變量,都有自己的作用域,調(diào)用時(shí)要把實(shí)參的值傳遞給形參;而在帶參數(shù)的宏中,只是符號(hào)的替換,不存在值傳遞的問題。
【示例】輸入 n,輸出 (n+1)^2 的值。
#define SQ(y) (y)*(y)
Dim As Long a, sq;
input "input a number: ",a
sq = SQ(a+1);
print "sq=" + sq
運(yùn)行結(jié)果:
input a number: 9
sq=100
第2行為宏定義,形參為 y。第7行宏調(diào)用中實(shí)參為 a+1,是一個(gè)表達(dá)式,在宏展開時(shí),用 a+1 代換 y,再用 (y)*(y) 代換 SQ,得到如下語句: sq=(a+1)*(a+1);
這與函數(shù)的調(diào)用是不同的,函數(shù)調(diào)用時(shí)要把實(shí)參表達(dá)式的值求出來再傳遞給形參,而宏展開中對(duì)實(shí)參表達(dá)式不作計(jì)算,直接按照原樣替換。
3) 在宏定義中,字符串內(nèi)的形參通常要用括號(hào)括起來以避免出錯(cuò)。例如上面的宏定義中 (y)*(y) 表達(dá)式的 y 都用括號(hào)括起來,因此結(jié)果是正確的。如果去掉括號(hào),把程序改為以下形式:
#define SQ(y) y*y
Dim As Long a, sq;
input "input a number: ",a
sq = SQ(a+1);
print "sq=" + sq
運(yùn)行結(jié)果為:
input a number: 9
sq=19
同樣輸入9,但結(jié)果卻是不一樣的。問題在哪里呢?這是由于替換只作符號(hào)替換而不作其它處理而造成的。宏替換后將得到以下語句: sq=a+1*a+1;
由于a為9故sq的值為19。這顯然與題意相違,因此參數(shù)兩邊的括號(hào)是不能少的。即使在參數(shù)兩邊加括號(hào)還是不夠的,請(qǐng)看下面程序:
#define SQ(y) (y)*(y)
Dim As Long a, sq;
input "input a number: ",a
sq = 200/SQ(a+1);
print "sq=" + sq
與前面的代碼相比,只是把宏調(diào)用語句改為: sq=200/SQ(a+1);
運(yùn)行程序后,如果仍然輸入 9,那么我們希望的結(jié)果為 2。但實(shí)際情況并非如此:
input a number: 9
sq=200
為什么會(huì)得這樣的結(jié)果呢?分析宏調(diào)用語句,在宏展開之后變?yōu)椋?sq=200/(a+1)*(a+1);
a 為 9 時(shí),由于“/”和“*”運(yùn)算符優(yōu)先級(jí)和結(jié)合性相同,所以先計(jì)算 200/(9+1),結(jié)果為 20,再計(jì)算 20*(9+1),最后得到 200。
為了得到正確答案,應(yīng)該在宏定義中的整個(gè)字符串外加括號(hào):
#define SQ(y) ((y)*(y))
Dim As Long a, sq;
input "input a number: ",a
sq = 200/SQ(a+1);
print "sq=" + sq
由此可見,對(duì)于帶參宏定義不僅要在參數(shù)兩側(cè)加括號(hào),還應(yīng)該在整個(gè)字符串外加括號(hào)。
帶參數(shù)的宏和函數(shù)很相似,但有本質(zhì)上的區(qū)別:宏展開僅僅是字符串的替換,不會(huì)對(duì)表達(dá)式進(jìn)行計(jì)算;宏在編譯之前就被處理掉了,它沒有機(jī)會(huì)參與編譯,也不會(huì)占用內(nèi)存。而函數(shù)是一段可以重復(fù)使用的代碼,會(huì)被編譯,會(huì)給它分配內(nèi)存,每次調(diào)用函數(shù),就是執(zhí)行這塊內(nèi)存中的代碼。