填空题

以下是一个计算矩形面积的程序，调用过程计算矩形面积，请将程序补充完整。 　　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) 　　　【 】　 　　　N=Val(N) 　　　【 】　 　　End Sub

【参考答案】

N=InputBox("What is the W")
<上一题 目录 下一题>
热门 试题

单项选择题
有如下事件过程：Private Sub Commaild1_Click( )Dim i As IntegerFor i =1 To 2DCNext iEnd SubSub DC( )Dim x As Integer，m As StringStatic y，nx=x + 1y=y + 1m=m& * ：n=n & # Print x，y，m，nEnd Sub程序运行后，输出的结果是( )。
A． 1 1 * # 　　 1 1 * #
B． 1 1 * #　　 1 2 * #
C．1 1 * #　　1 1 * ##
D． 1 1 * #　　 1 2 * ##
单项选择题
有如下程序：Private Sub Command1_Click()Dim k As Integer，m As IntegerDim p As Integerk=4：m=1p=PC(k，m)：Print p；p=PC(k，m)：Print pEnd SubPrivate Function PC(a As Integer，b As Integer)Static m As Integer，i As Integerm=0：i=2i=i + m + 1m=i + a + bPC=mEnd Function程序运行后，输出的结果为（ ）。
A． 4 6
B． 6 6
C．8 8
D．10 12
相关试题