在窗体的单击事件中有如下程序:privatesubform_click()forj=1to15a=a+jnextjPrintaendsub程序运行后单击鼠标左键，输出的结果是()

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

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

在窗体上画一个名称为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．不确定

在窗体上画一个通用对话框，其名称为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(*.*)

在窗体上画一个列表框和一个命令按钮,其名称分别为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"的前面)

在窗体中添加一个命令按钮(名称为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

在窗体中有两个文本框分别为Textl和Text2，一个命令按钮Cmmand1，编写如下两个事件过程：

Private Sub Commandl_Click()

a=Textl．Value+Text2．Value

MsgBox a

End Sub

Private Sub Form_Load()

TextI．Value=“”

Text2．Value=””

End Sub

程序运行时，在文本框Textl中输入78，在文本框Text2中输入87，单击命令按钮，消息框中输出的结果为【 】。

在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写下列事件过程：

Private Sub Command1_Click()

CommonDialog1.Filter="All Files(*.*)|*.*|Text Files"_

&"(*.txt)|*.txt|Batch Files(*.bat)|*.bat"

CommonDialog1.FilterIndex=1

CommonDialog1.ShowOpen

MsgBox CommonDialog1.FileName

End Sub

程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是【 】；如果在对话框中选择d盘temp目录下的tel.txt文件，然后单击“确定”按钮，则在MsgBox信息框中显示的提示信息是【 】。