填空题

以下是一个计算矩形面积的程序，调用过程计算矩形面积，请将程序补充完整。　　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")

<上一题目录下一题>

热门试题

填空题

执行下面的程序段，x的值为【】。 Private Sub Command1_Click()For i=1 To 9a=a + iNext ix=Val(i)MsgBox xEnd Sub

填空题

执行下面的程序段，x的值为【】。 Private Sub Command1_Click()For i=1 To 9a=a + iNext ix=Val(i)MsgBox xEnd Sub

以下是一个计算矩形面积的程序，调用过程计算矩形面积，请将程序补充完整。 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