单选题在窗体上绘制一个名称为Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Commandl_Click() Dim c As Integer，d As Integer d=0 c=6 x=Array(2，4，6，8，10，12) For i=1 To 6 If x(i)＞c Then d=d+x(i) c=x(i) Else d=d-c End If Next i Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为
单选题在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() y = 8 Print fun1(1 + fun1(fun1(fun1(y)))*10) End Sub Private FLinctiOn fUnl(a) funl(a) = 1 + a End Function 程序运行后，单击命令按钮，则窗体上显示的内容是
单选题有如下程序，运行后输出的结果是______。 j=0:n=0 Do While n＜3 j=(j+1)*(j+2) n=n+1 Loop Print j; n
单选题以下变量名中合法的是( )。 A) x2-1 B) print C) sfr_n D) 2x
单选题在窗体上画一个通用对话框，其名称为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 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是______。
单选题有如下自定义过程： Sub test(x As Integer)
x =X *2+1 If x＜6 Then
Call test(x) End
If x=x* 2 + 1
Print x； End Sub调用该过程的事件过程如下：Private Sub
Command1_Click() test 2End
Sub则该段程序的执行结果是______ 。
A. 12
B. 23 47
C. 23
D. 5 10
单选题设有如下Commandl的单击事件过程及fun过程： Private Sub
Commandl_Click() Dim x As
Integer x=Val(InputBox(“请输入一个整数”)) fun(x) End
Sub Private Sub fun(x As Integer) If x Mod 2=0 Then fun(x
/ 2) Print x； End Sub
执行上述程序，输入6，结果是______。
A.3 6
B.6 3
C.6
D.程序死循环
单选题在设计Visual Basic应用程序界面时，改变窗体的属性看不到效果的是
单选题假定有以下程序：
Private Sub Form_Click()
a=1:b=a
Do Until a＞=5
x=a*b
Print b;x
a=a+b
b=b+a
Loop
End Sub
程序运行后，单击窗体，输出结果是______。
单选题以下叙述中错误的是( )。
单选题数据结构中，通常采用两种方法衡量算法的时间复杂性，即______。
单选题窗体上有一个图片控件和一个按钮控件，下列程序执行的结果是( )。 Pfivate Sub Command1_click() Picture1.Picture=LoadPicture("C:/picture.ipg") Picture1.Cis Picture1.Print"picture" End Sub
单选题以下程序段的输出结果是( ) x=1 y=4 Do Until y＞4 x＝x*y y＝y+1 Loop Print x A．1 B．4 C．8 D．20
单选题在对下拉菜单(假设菜单名为mnuH)快捷键设置中以下不正确的是______。
单选题在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程： Private Sub Form Load() List1.AddItem "Item 1" List1.Addltem "Item 2" Listl.Addltem "Item 3" End Sub Private Sub Command1 Click() Listl.List(Listl.ListCount)="AAAA" End Sub 程序运行后，单击命令按钮，其结果为
单选题在Visual Basic中，组合框是文本框和( )特性的组合。
单选题在窗体上画一个通用对话框，程序运行后，通过ShowOpen方法显示”打开”对话框，要求在该对话框的“文件类型”栏中只显示扩展名为.DOC的文件，则对通用对话框的
Filter属性的正确设置是： ______。
A. "(*.DOC) *.DOC"
B. "(*.DOC) |(.DOC) "
C. "(*.DOC) ||*.DOC"
D. "(*.DOC) |".DOC"
单选题窗体上有一个名称为CD1的通用对话框控件和由四个命令按钮组成的控件数组Command1，其下标从左到右分别为0、1、2、3，窗体外观如图所示。命令按钮的事件过程如下：PrivmeSubCommand1_Click(IndexAsInteger)SelectCaseIndexCase0CD1．Action=1Case1CD1．showSaveCase2CD1．Action=5Case3EndEndSelectEndSub对上述程序，下列叙述中错误的是()。
单选题以下关于文件的叙述中，错误的是( )。 A) 顺序文件中的记录是一个接一个地顺序存放 B) 随机文件中记录的长度是随机的 C) 文件被打开后，自动生成一个文件指针 D) EOF函数用来测试是否到达文件尾
单选题在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a s=0 a=Array(1,2,3,4) j=1 For i=4 To 1 Step-1 s=s+a(i)*J j=j*10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是( )。