B．共享问题 C．安全问题 D．保护问题 (10)对下列二叉树：
进行中序遍历的结果是 （ ） 。 A．ACBDFEG B．ACBDFGE C．ABDCGEF D．FCADBEG
(11)以下叙述中正确的是 （ ） 。
A．窗体的 Name 属性指定窗体的名称，用来标识一个窗体 B．窗体的 Name 属性值是显示在窗体标题栏中文本 C．可以在运行期间改变窗体的 Name 属性的值 D．窗体的 Name 属性值可以为空 (12)以下叙述中错误的是 （ ） 。
A．打开一个工程文件时，系统自动装入与该工程有关的窗体文件 B．保存 Visual Basic 程序时，应分别保存窗体文件及工程文件 C．Visual Basic 应用程序只能以解释方式执行 D．窗体文件包含该窗体及其控件的属性
(13)设 a=2,b=3,c=4, 下列表达式的值是 （ ） 。 Not a <= c Or 4*c = b^2 And b <> a+c A．-1 B．1 C．True D．False
(14)没有如下的用户定义类型： Type Student number As String name As String A) ge AS Integer End Type
则以下正确引用该类型成员的代码是 （ ） 。 A．Student. name= “李明” B．Dim s As Student
C．Dim s As Type Student D．Dim s As Type
S.name= “李明” s.name= “李明”
15)设 a=5,b=6,c=7,d=8 ，执行下列语句后， X 的值为 （ ） 。 X=IIf((a>b)And(c>d),10,20) A．10 B．20 C．True D．False
(16)执行以下程序段后，变量 c$ 的值为 （ ） 。
A）$= “ Visual Bassic Programming ”
B）$= “ Quick ” e$=b$&U Case(Mid$(a$,7,6))&Right$(a$,12) A．Visual Basic Programming B．Quick Basic programming C．Quick Basic Programming D．Quick Basic Programming
(17) 在窗体上画一个文本框（其名称为 Textl)和一个标签（其名称为 Labell)，程序运行后，如果在文本框中输入指定的信息，则立即在标签中显示相同的内容，以下可以实现上述操作的事件过程是 （ ） 。 A．Private Sub Textl_Click() B．Private Sub Text1_Change()
Labell.Caption=Textl.Text Labell.Caption=Textl.Text End Sub End Sub C．Private Sub Labell_Ctrange() D．Private Sub Labell_Click()
Labell. Caption=Textl.Text Labell.Caption=Textl.Text End Sub End Sub
(18)在窗体上面画一个命令按钮和一个标签，其名称分别为 Commandl 和 Labell ，然后编写如下事件过程： Private Sub Commandl_Click() Counter=0 For i=1 To 4
For j=6 To 1 Step -2 Counter=Counter+1 Nextj Nexti
Labell.Caption=Str(Counter) End Sub
程序运行后，单击命令按钮，标签中显示的内容是 A．11 B．12 C．16 D．20
(19)在窗体上画一个名称为 Text1 的文本框和一个名称为 Commandl 的命令按钮，然后编写如下事件过程： Private Commandl_Click() Dim i As Integer, n As Integer For i=0 To 50 i = i+3 n = n+1
If i>10Then Exit For Next
Textl.Text=Str(n) End Sub
程序运行后，单击命命令按钮，在文本框中显示的值是 （ ） 。 A．5 B．4 C．3
D．2
(20)在窗体上画一个命令按钮和两个标签，真名和分别为 Commandl 、 Labell 和 Labe12 ，然后编写如下事件过程： Private Sub Commandl_Chick. A) =0
For i=1 To 10 a=a+1 b=0
Forj=1 To 10 a=a+1 b=b+2 Nextj Next i
Labell. Caption=Str(a) Labe12.Caption=Str( B． End Sub
程序运行后，单击命令按钮，在标签 Labell 和 Labe12 中显示的内容分别为 （ ） 。 A．10 和 20 B．20 和 110 C．200 和 110 D．110 和 20
(21)在窗体上画一个名称为 Listl 的列表框，一个名称为 Labell 的标签，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市名从列表框中消失，并在标签中显示出来。下列能正确实现上述操作的程序是 （ ） 。 A．Privale Sub Listl_Click() B．Private Sub Listl_Click()
Labell. Caption=Listl. ListIndex Labell.Name=Listl. ListIndex Listl. Removeltem Listl.Text Listl.RemoveItem Listl.Text End Sub End Sub
C．Private Sub Listl_Click() D．Private Sub Listl_Click()
Labell. Caption=Listl.Text Labell. Name=Listl. Text
Listl. RemovItem Listl. ListIndex Listl. RemoveItem Listl. ListIndex End Sub End Sub
(22) 在窗体上画一个名称为 Commandl 的命令按钮，然后编写如下程序： Private Sub Commandl Click() Dim i As Integer, j As Integer Dim a (10,10)As Integer For i=1 To 3 For j= i To 3 a(i,j)=(i-1)*3+j Print a (i,j); Next j Print Next i
End Sub
程序运行后，单击命令按钮，窗体上显示的是 （ ） 。
A． 1 2 3 B． 1 2 3
C． 1 2 3
D． 1 2 3 & 2 4 6 3 4 5 2 5 8 4 5 6 3 6 9 4 5 6 3 6 9
7 8 9
(23) 在窗体上画一个命令按钮，名称为 Command1, 然后编写如下代码： Option Base 0
Private Sub Command1_Click()
D）im A (4)As Integer,B(4) As Integer For k=0 To 2
A(k+1)=InputBox(“ 请输入一个整数 ”) B(3-k)=A(k+1) Next k Print B(k) End Sub
程序运行后，单击命令按钮，在输入对话框中分别输入 2 、 A．0 B．2 C．3 D．4
(24)有以下程序： Option Base 1
D）im arr() As Integer Private Sub Form_Click()
D）im i As Integer,j As Integer ReDim arr(3,2) For i=1 To 3 For j=1 To 2 arr (i,j)=i*2+j Next j Next i
ReDim Preserve arr(1,4) For j=3 To 4 A) rr(3,j)=j+9 Next j
Print arr(3,2);arr(3,4) End Sub
程序运行后，单击窗体，输出结果为 （ ） 。 A．8 13 B．0 13 C．7 12 D．0 0
[1][2] [3] [4] [5][下一页]
4 、 6 ，输入结果为 ） 。 （
2017年全国计算机二级考试试卷 历年考试真题演练
