题目内容
（请给出正确答案）
若在某窗体模块中有如下事件过程： Privam Sub Command1_Click(Index As Integer) ...... End Sub 则以下叙述中正确的是______。
A．此事件过程与不带参数的事件过程没有区别
B．有—个名称为Command1的窗体，单击此窗体则执行此事件过程
C．有一个名称为Command1的控件数组，数组中有多个不同类型控件
D．有—今名称为Command1的控件数组，数组中有多个相同类型控件
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“若在某窗体模块中有如下事件过程：Privam Sub Command1_Click（Index As Integer)......End Sub则”相关的问题
若在某窗体模块中有如下事件过程
Private Sub Command1_Click（Index AS Integer）
……
End Sub
则以下叙述中正确的是（）。
A． 此事件过程与不带参数的事件过程没有区别
B． 有1个名称为Command1的窗体,单击此窗体则执行此事件过程
C． 有1个名称为Command1的空件数组,数组中有多个不同类型控件
D． 有1个名称为Command1的空件数组,数组中有多个相同类型控件
在窗体上添加一个命令按纽，名为command1，其事件过程如下，程序运行后，其输出的结果为______ 。 Private sub_command1_ click () Dim a a=array(1，2，3，4，5) For k=1 to 4 S=s+ a(k) Next k Print s End sub
A．10
B．14
C．15
D．120
在窗体上添加一个文本框，名为text1，然后编写如下的load事件过程，则程序的运行结果是______ 。 private sub form_ load text1.text=“” text1.setfocus for k=1 to 5 t=t*k next k text1.text=t end sub
A． 在文本框中显示120
B．文本框中仍为空
C．在文本框中显示1
D．出错
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写．如下事件过程： Private Sub Command1_Click() Dim array1(10，10)As Integer Dim i As Integer, j As Integer For i=1 To 3 For j=2 To 4 array1(i,j)=i+j Next j Next i Text1.Text=array1(2，3)+arrayl(3，4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是______。
A．12
B．13
C．14
D．15
在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程。
Private Sub Command1_Click()
CommonDialog1.Flags=vbOFNHideReadOnly
CommonDialog1.Filter= "All Files(*.*) |*.*|Text Files(*.txt)|*.txt
CommonDialog1.FilterIndex=1
CommonDialog1.ShowOpen
MsgBox CommonDialog1.FileName
End Sub
程序运行后,单击命令按钮,将显示一个"打开"对话框,此时在"文件类型"框中显示的是
A．All Files(*.*)
B．Text Files(*.txt)
C．Batch Files(*.bat)
D．All Files(*.*) |Text Files(*.txt)
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写 如下事件过程： Private Sub Command1_Click() Dim arrayl(10，10)As Integer Dim i， j As Integer For i=1 To 3 For j=2 To 4 arrayl(i，j)=i + j Next j Next i Text1.Text=arrayl(2， 3)+arrayl(3， 4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是
A．12
B．13
C．14
D．15
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim arr(10,10)As Integer,i,j As Integer
For i=1 To 3
For j=2 To 4
arr(i,j)=i+j
Next
Next
Text1.Text=arr(2,3)+arr(3,4)
End Sub
程序运行后,单击命令按钮,在文本框中显示的值是
A．12
B．13
C．14
D．15
标准模块中有如下程序代码：
Public x As Integer，Y As Integer
Sub vat_pub()
x=10：Y=20
End Sub
在窗体上有1个命令按钮，并有如下事件过程：
Private Sub Commandl—Click()
Dim X As Integer
Call vat_pub
x=x 4-loo
Y=Y+100
Print x；Y
End Sub
运行程序后单击命令按钮，窗体上显示的是
A．100 100
B．100 120
C．110 100
D．110 120
标准模块中有如下程序代码：
Public x As Integer，y As Integer
Sub var pub（）
x=10：y=20
End Sub
在窗体上有1个命令按钮，并有如事件过程：
Private Sub Command1 Click（）
Dim x As Integer
Call var pub
x=x+100
y=y+100
Print x；y
End Sub
运行程序后单击命令按钮，窗体上显示的是（）。
A.100 100
B.100 120
C.110 100
D.110 120
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
