填空题

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

填空题
下面的程序的作用是利用随机函数产生10个100-300(不包含300)之间的随机整数，打印其中7的倍数的数，井求它们的总和，请填空。Sub TOF( )RandomizeDim s As DoubleDim a(10) As lntegerFor i=0 To 9【 】NextFor i=0 To 9If【 】ThenPrint a(i)s=s+a(i)【 】 Next iPrintPrint S= ; sEnd Sub
填空题
如果存在如下过程：Private Function FMax(a( )As Integer)Dim First As Integer，Last As Integer，i As IntegerFirst=LBound(A) Last=UBound(A) Max=a(First)For i=First To LastIf a(i) ＞ Max Then Max=a(i)Next iFMax=MaxEnd Function在窗体上添加一个命令按钮，然后编写如下事件过程：Private Sub Command1 Click( )ReDim m(1 To 4) As Integerm(1)=20：m(2)=30：m(3)=50：m(4)=100c=FMax(m)Print cEnd Sub单击命令按钮，其输出结果为【 】。
相关试题