填空题

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

填空题
有下面一个程序段，从文本框中输入数据，如果该数据满足条件，除以4余1，除以5余2则输出，否则，将焦点定位在文本框中，并清除文本框的内容。Private Sub Command1_Click( )x=Val(Text1．Text)If【 】 ThenPrint xElseText1．Text= 【 】 End IfEnd Sub
填空题
要使标签的背景样式为不透明，应将BackStyle属性设置为【 】。
相关试题