填空题

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

填空题
在窗体上画两个文本框，其名称分别为Namel和PassWordl，然后编写如下事件过程Private Sub Form_Load()ShowNamel．Text= Passwordl．Text= Passwordl．SetFocusEnd SubPrivate Sub Passwordl_KeyDown(KeyCode As Integer，Shift As Integer)Namel．Text=Name1．Text+Chr(KeyCode - 3)End Sub程序运行后，如果在Passwordl中输入“hit’’’，则在Namel文本框中显示的内容是【 】。
填空题
在窗体上画 1 个命令按钮和 1 个文本框，其名称分别为 Command1 和 Text1，然后编 写如下代码：Dim SaveAll As StringPrivate Sub Command1_Click() Text1.Text = Left(UCase(SaveAll), 4) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) SaveAll = SaveAll + Chr(KeyAscii)End Sub 程序运行后，在文本框中输入abcdefg，单击命令按钮，则文本框中显示的内容是 _________。（ 10 ）在窗 体上画 1 个命令按钮 和 1 个通用对话框， 其名称分别 为 Command1 和CommonDialog1，然后编写如下事件过程：Private Sub Command1_Click()CommonDialog1. _________ = 打开文件 CommonDialog1.Filter = All Files(*.*)|*.* CommonDialog1.InitDir = C: CommonDialog1.ShowOpenEnd Sub 该程序的功能是，程序运行后，单击命令按钮，将显示 打开 文件对话框，其标题是 打开文件 ，在 文件类型 栏内显示 All Files(*.*) ，并显示C盘根目录下的所有文件， 请填空。
相关试题