万能百科  > 计算机   > 

[填空题] 以下是一个计算矩形面积的程序,调用过程计算矩形面积,请将程序补充完整。  Sub RecArea(L,W)   Dim S As Double   

2021-07-20   

[填空题] 以下是一个计算矩形面积的程序,调用过程计算矩形面积,请将程序补充完整。

  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来计算并输出矩形的面积,它有两个形式参数,分别为矩形的长和宽;在Sub事件过程中,从键盘上输入矩形的长和宽,调用InputBox函数分别将输入的数赋给M和B,所以【11】为N=InputBox("What is the W");将M和N作为实参调用RecArea过程,它有两种书写方式,一种是把过程的名字放在一个Call语句中,格式为Call过程名[(实际参数)];另外一种是把过程名作为一个语句来使用,与第一种方式相比,它去掉关键字Call,去掉了参数列表,所以【12】为Call RecArea(M,N)或RecArea (M,N)。

词条内容仅供参考,如果您需要解决具体问题
(尤其在法律、医学等领域),建议您咨询相关领域专业人士。

标签