[填空題] 以下是一個(gè)計(jì)算矩形面積的程序,調(diào)用過程計(jì)算矩形面積,請(qǐng)將程序補(bǔ)充完整?! ub RecArea(L,W) Dim S As Double
[填空題] 以下是一個(gè)計(jì)算矩形面積的程序,調(diào)用過程計(jì)算矩形面積,請(qǐng)將程序補(bǔ)充完整。
Sub RecArea(L,W)
Dim S As Double
S=L*W
MsgBox"Total Area is"& Str(S)
End Sub
Private Sub Command1_Click()
Dim M,N
M=InputBox("What is the L")
M=Val(M)
【11】
N=Val(N)
【12】
End Sub
正確答案:【11】N=InputBox("What is the W")【12】Call RecArea(M,N)
參考解析:解析:程序通過RecArea來計(jì)算并輸出矩形的面積,它有兩個(gè)形式參數(shù),分別為矩形的長(zhǎng)和寬;在Sub事件過程中,從鍵盤上輸入矩形的長(zhǎng)和寬,調(diào)用InputBox函數(shù)分別將輸入的數(shù)賦給M和B,所以【11】為N=InputBox("What is the W");將M和N作為實(shí)參調(diào)用RecArea過程,它有兩種書寫方式,一種是把過程的名字放在一個(gè)Call語(yǔ)句中,格式為Call過程名[(實(shí)際參數(shù))];另外一種是把過程名作為一個(gè)語(yǔ)句來使用,與第一種方式相比,它去掉關(guān)鍵字Call,去掉了參數(shù)列表,所以【12】為Call RecArea(M,N)或RecArea (M,N)。
詞條內(nèi)容僅供參考,如果您需要解決具體問題
(尤其在法律、醫(yī)學(xué)等領(lǐng)域),建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。