18. 为了使标签的大小根据其Caption属性的值自动扩大或缩小，则应设置标签的（B ）属性为True。
（A）WordWrap    （B）AutoSize（C）Stretch    （D）AutoRedraw
19. 为了使图片自动调整尺寸以适应图像框的大小，则应设置图像框的（C ）属性为True。
（A）WordWrap（B）AutoSize  （C） tretch （D）AutoRedraw
20. 如果一个变量未声明其类型，则该变量的类型为（D ）
（A） Integer  （B） Byte  （C） Boolean  （D） Variant
21. 在程序运行期间将当前文件夹下图形文件File1.jpg装入窗体的图片框Picture1中，用语句
（A） Picture1.Picture="File1.jpg"（B） Picture1.Picture=LoadPicture("File1.jpg")
（C） LoadPicture("File1.jpg")    （D） Call LoadPicture("File1.jpg")
22. 在一个较长的程序语句放在几行时，可以用续行符。续行符是（C ）
（A），    （B）；  （C）_        （D）：
23. 下列对象中，（  B ）不是容器（父）控件。
（A）Form      （B）Image      （C）PictureBox      （D）Frame
24. 在窗体上建立通用对话框需要添加的控件是（C ）。
（A）Data控件 （B）Frame控件 （C）CommonDialog控件 （D）ComboBox控件
25. 在窗体上画一个名称为Check1复选框，在程序运行的过程中，若选中复选框，则Check1.value的值是（ D）。
（A）True  （B）2    （C）0    （D）1
26.一只红的足球被踢进球门，则红、足球、踢、进球门是（  A  ）。
(A) 属性、对象、方法、事件 (B) 属性、对象、事件、方法
(C) 对象、属性、方法、事件  (D) 对象、属性、事件、方法
27. 若在某窗体模块中有如下事件过程
Private Sub Command1_Click(Index As Integer)
        ……
End Sub
则以下叙述正确的是（D ）
（A） 此事件与不带参数的事件过程没有区别
（B） 有一个名称为Command1的窗体，单击此窗体则执行此事件过程
（C） 有一个名称为Command1的控件数组，数组中有多个不同类型的控件
（D） 有一个名称为Command1的控件数组，数组中有多个相同类型的控件
28. 在控件数组中。可以惟一标识每一个控件的属性是（ C  ）。
(A) Name      (B) Caption  (C) Index  (D) Enabled
29. 在VB中，工程文件的扩展名是（  C  ）。
(A) .frm    (B) .frx  (C) .vbp    (D) .vbw
30．变量bool_flag是一个布尔型（逻辑型）的变量，则下面正确的赋值语句是（ D ）。
(A)bool_flag="False" (B) bool_flag= .False. (C)bool_flag=#False#(D) bool_flag=False
31、下列程序段的执行结果为( B    )。
Dim S(9)
For i=0 To 9
  S(i)=3*I
Next i
Print S(S(3))
(A) 12    (B) 27   (C) 0    (D) 出错
32、下列数组声明正确的是（ D  ）。
（A） n=5
Dim a(1 to n) As Integer
(B) Dim a(10) As Integer
ReDim a(1 to 12)
(C) Dim a() As Single
ReDim a(3 ,4) As Integer
(D) Dim a() As Integer
n=5
ReDim a(1 to n) As Integer
33、下列控件中，没有Caption属性的是（B ）。
(A) 框架      (B) 列表框      (C) 复选框      (D) 单选按钮
34、下面关于计时器控件（Timer）的叙述中，错误的是（B  ）。
(A) 计时器控件运行时不可见  (B) 通过Color属性可设置计时器控件的颜
(C)计时器控件只有一个事件即Timer事件(D)计时器的Interval属性值设为0时，计时器无效
35.要在文本框Text1中显示列表框List1中最后一个项目的正确语句是（  C  ）。
(A)Text1.Text=List1.List(ListCount-1) (B)Text1.Text=List1.List(0)
(C)Text1.Text=List1.List(List1.ListCount-1) (D)Text1.Text=List1.ListIndex
36．在组合框Combo1中选定某一项，单击命令按钮Command1即可删除该项，代码如下。
Private Sub Command1_Click()
  If Combo1.ListIndex <> -1 Then
    Combo1.RemoveItem __B__
End If
End Sub
(A)Combo1.ListCount (B)Combo1.ListIndex (C)Combo1.Text (D)Combo1.MultiSelect
37. 设有如下程序：
Private Sub Command1_Click()
Dim sum As Double, x As Double
sum = 0:  n = 0
For i = 1 To 5
x = n / i:  n = n + 1: sum = sum + x
Next
End Sub
该程序通过For循环计算一个表达式的值，这个表达式是（ C  ）。
(A)1+1/2+2/3+3/4+4/5 (B)1+1/2+2/3+3/4 (C)1/2+2/3+3/4+4/5 (D) 1+1/2+1/3+1/4+1/5
38. 在窗体上画一个名称为Command1的命令按钮，并编写如下程序：
Private Sub Command1_Click()
    Dim x As Integer
    Static y As Integer
    x = 10
    y = 5
    Call f1(x, y)
    Print x, y
End Sub
Private Sub f1(ByRef x1 As Integer, y1 As Integer)
    x1 = x1 + 2
    y1 = y1 + 2
End Sub
程序运行时，单击命令按钮，在窗体上显示的内容是(  D )。
(A) 10  5      (B) 12  5      (C) 10  7    (D) 12  7
39. 下列程序段的执行结果为（ D）
    a=75
    If a > 70 Then I=2
    If a < 90 Then I=4
    Print "I="; I
（A）I＝1        （B） I＝2    （C） I＝3  （D） I＝4
40. 从磁盘上读入一个名为“c:\”的顺序文件，下面程序段正确的是（D  ）。
(A)Open "c:\"For Output As # 2
(B)  Open c:\ For Input As # 1
(C) F="c:\"
Open "F" For Input As # 2
(D) F="c:\"
Open F For Input As # 1
41. 执行以下程序段,输出的结果为_B__(11)___。
a$="abbacddcba"
For i=6 To 2 Step -2
x=Mid(a,i,i):  y=Left(a,i)
z=Right(a,i):  z=UCase(X & Y & z)
Next i
Print z
(A) ABA  (B) BBABBA  (C) ABBABA    (D) AABAAB
42. 对于语句If a = b Then c = d 的语法分析，___B(17)___是正确的。
(A) a=b 和 c=d都是赋值语句    (B) a=b是关系表达式，c=d是赋值语句
(C) a=b 和 c=d都是关系表达式  (D) a=b是赋值语句，c=d是关系表达式
43. 下面的子过程定义语句中没有语法和逻辑错误的是__A___。
(A) Sub S1(ByVal n%())          (B) Sub S1(n As Integer) As Integer
(C)Function S1(ByVal n As Integer)  (D) Function S1%(ByVal S1 As Integer)
44.窗体中有一个命令按钮，编写如下程序，程序运行后，输出结果为__D_(27)___没有caption属性的控件是。
Private Sub test(p,m,n)
    p=p+1: m=m+1: n=n+1
    Print “Sub:”; p; m; n
    End Sub
Private Sub Command1_Click()
    a1=1: b1=2: c1=3
    Call test(a1,b1+3,(c1))
    Print “Main:”; a1; b1; c1
  End Sub
(A) Sub: 2  6  4  Main: 2 6 4（B）Sub: 2  6  4  Main: 1  6  4
(C) Sub: 2  6  4  Main: 1 2 3 (D) Sub: 2  6  4  Main: 2  2  3
45. 执行以下语句后，a的值为___C(16)___
Dim a As Integer
a = 1
Do Until a = 100
  a = a + 2
Loop
(A) 102    (B)100  (C)溢出  (D)101
46. 在代码中定义了一个子过程。下面____C___调用该过程的格式是正确的。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。