若在PRIVATE Y后加一条PRIVATE X语句，则程序执行后的显示结果为 ______。

窗体上有一个命令桉钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是()。

Private Sub Command1_click()

Dim a

a=Array(1,2,3,4,5)

Fork=1 To 4

S=S+a(k)

Next k

Print S

End Sub

A．10

B．14

C．15

D．120

窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是()。 Private Sub Command1_Click() Dim a a=Array(1，2，3，4，5) Fork=1 To 4 S=S+a(k) Next k Print S End Sub

A．10

B．14

C．15

D．120

单击一次命令按钮，下列程序代码的执行结果为()。 Private Sub Commandl_Click() Dima As Integer,b As Integer，CASInteger a=2：b=3：c=4 PrintP2(c，b，A) End Sub PrivateFunctionPl(X As Integer,y As Intege；z As Integer) P1=2*x+y+3*Z End Function Priva

A．21

B．19

C．17

D．34

te)

在窗体中添加一个命令按钮(名称为Command1)和一个文本框(名为text1)，然后编写如下事件过程： Private Sub Command_Click() Dim x As Integer, y As Integer,z As Integer x=5: y=7: z=0 Me!Text1="" Call p1(x, y, z) Me!Textl=z End Sub Sub p1 (a As Integer, b As Integer, Byval c As Integer) c=a+b End Sub 打开窗体运行后，单击命令按钮，文本框中显示的内容是()。

A．12

B．0

C．5

D．7

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim array1(10，10)As Integer Dim i,j As Integer For i；1 TO 3 For i=2 To 4 array1(i,j)=i+j Next j Next i TextText=array1(2，3)+array1(3，4) End Sub 程序运行后，单击命令按钮，则文本框中显示的值是 ______。

A．12

B．13

C．14

D．15

在窗体上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程：

Private Sub Commandl_Click()

Dim i As Integer，n As Integer

For i=0 T0 50

i=i+3

n=n+1

If i＞10 Then Exit For

Next

Textl．Text=Str(n)

End Sub

程序运行后，单击命令按钮，在文本框中显示的值是

A．2

B．3

C．4

D．5

在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写如下事件过程： Private Sub Command1_Click() CommonDialog1.Filter="All Files(*.*)|*.*|Text Files"&_ "(*.txt)|*.txt|Executable Files(*.exe)|*.exe" CommonDialog1.FilterIndex=3 CommonDialog1.ShowOpen MsgBox CommonDialog1.FileName End Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是______。

A．AllFiles(*.*)

B．Text Files(*.txt)

C．Executable Files(*.exe)

D．不确定

在窗体上画一个列表框和一个命令按钮,其名称分别为List1和Command1,然后编写如下事件过程。

Private Sub Form_load()

List1.AddItem "Itern 1"

List1.AddItem "Itern 2"

List1.AddItem "Itern 3"

End Sub

Private Sub Command1_Click()

List1.List(List1.Listcount)="AAAA"

End Sub

程序运行后,单击命令按钮,其结果为

A．把字符串"AAAA"添加到列表框中,但位置不能确定

B．把字符串"AAAA"添加到列表框的最后(即"Item 3"的后面)

C．把列表框中原有的最后一项改为"AAAA"

D．把字符串"AAAA"插入到列表框的最前面(即"Item 1"的前面)

在窗体上画一个通用对话框，其名称为CommonDialogl，然后画一个命令按钮，并编写如下事件过程。 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．*.txt

D．All Files(*.*)|Text Files(*.*)