一、选择题
1. 如下数组声明语句中，数组a包含元素的个数有(  ) 。
Dim a(3,-2 to 2,5)
A. 120                B. 75                C. 60                D.13
2. 下列数组声明语句中，(  ) 是正确的。
A. Dim a[3,4] as integer                    B. Dim a(3,4) as integer   
C. Dim a(n,n) as integer                    D. Dim a(3 4) as integer   
3. 要想从子过程调用后返回两个结果，下面子过程语句说明合法的是(  ) 。
A. Sub f2(Byval n%, Byval m%)            B. Sub f1(n%, Byval m%)
C. Sub f1(n%, m%)                        D. Sub f1(Byval n%, m%)
4. 下面程序段运行后，显示结果是(  )。
Dim x
If x Then Print x Else Print x+1
A. 1                B. 0                    C. -1                D. 显示出错信息
5. 对于语句If x=1 Then y=1, 下列说法正确的是(  ) 。
A. x=1和y=1 均为赋值语句
B. x=1和y=1 均为条件表达式
C. x=1为条件表达式，y=1为赋值语句
D. x=1为赋值语句，y=1为条件表达式
6. 已知a=3.5,b=5.0,c=2.5,d=true,则表达式a>=0 and a+c>b+3 or not d 的值为(  ) 。
A. false            B. true                C. b                    D. a
7. 赋值语句a=123+mid（“123456”，3，2），执行后，a变量中的值为(  ) 。
A.“12334”        B.123                C.12334                D.157
8. 表示x是5的倍数或是9的倍数的逻辑表达式为(  ) 。
A. x mod 5<>0 and x mod 9=0            B. x mod 5=0 or x mod 9<>0
C. x mod 5=0 or x mod 9=0                D. x mod 5=0 and x mod 9=0
9. 当在文本框输入“ABCD”四个字符时，窗体上显示的是(  )。
private sub text1_change()
    print text1;
end sub
A. ABCD                                B. A  B  C  D
C. AABABCABCD                        D. A  AB  ABC  ABCD
10. 有程序代码如下：=”Visual Basic” 则：和”Visual Basic”分别代表(  )。
  A.对象，值，属性                          B.对象，方法，属性
  C.对象，属性，值                      D.属性，对象，值
11. 下面正确的赋值语句是(      ) 。
A. x+y=3          B.y=∏*r*r            C.y=x+30            D.3y=x
12. 下面程序段求两个数中的大数，(    ) 不正确。
  A. Max=IIf(x>y,x,y)                      B.if x>y then Max=x else Max=y
  C. Max=x                              D.if y>=x then Max=y
If y>=x then Max=y                      Max=x
13. 要分配存放如下方阵的数据，可以使用的数组声明语句(      )来实现（不能浪费空间）。
        1.1  2.2  3.3 
      {  4.4  5.5  6.6  }
        7.7  8.8  9.9
Dim a(9) As Single                        B.Dim a(3,3) As Single
C.Dim a(-1 to 1, -5 to -3) As Single          D.Dim a(-3 to –1,5 to 7)As Integer
14. 下面过程语句说明合法的是(    ) 。
A.Sub f1(ByVal  n%())                      B. Sub f1(n%) As Integer
C. Function f1%(f1%)                    D. Function f1%(ByVal  n%)
15. 将数据“China”添加到列表框（LIST）中成为第一项应使用语句(  )。
A. List1.AddItem “China”,0                B.List1.AddItem “China”,1
C. List1.AddItem 0,”China”                D.List1.AddItem 1,”China”
16. 下列语句能正常结束循环的是(    )。
A. i=5                                B.i=1
Do                                  Do
        i=i+1                                i=i+2
        Loop Until i<0                      Loop Until i=10
C．i=10                              D. i=6
  Do                                  Do
i=i-1                                i=i-2
Loop Until i<0                          Loop Until i=1
17. 下面if与据统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是(    )。
A. If sex=”男” And age<40 And InStr(duty,”教授”)>0 Then n=n+1
B. If sex=”男” And age<40 and (duty=”教授” or duty=”副教授”) Then n=n+1
C. If sex=”男” And age<40 and Right(duty,2)=”教授”Then n=n+1
D. If sex=”男” And age<40 and duty=”教授” And duty=”副教授” Then n=n+1
 
18. 保存一个工程至少应保存两个文件，这两个文件分别是(  ) 。
A.文本文件和工程文件                    B.窗体文件和工程文件
C.窗体文件和标准模块文件                D.类模块文件和工程文件
19. 在窗体上画一个水平滚动条，名称为HScroll1；再画一个文本框，名称为Text1。要想使用滚动条滑块的变化量来调整文本框中文字的大小，则可满足的语句是(    )。
A. Text1.FontName= HScroll1.Max        B. Text1.FontSize= HScroll1.Min
C. Text1.FontSize= HScroll1.value        D. Text1.FontBold= HScroll1.value
20. 有如下程序：
Private Sub Form_Activate()
Dim a
a=Array(1 ,2 ,3, 4, 5)
For i=LBound(a) To UBound(a)
a(i)=i*a(i)
Next i
Print i,LBound(a),UBound(a),a(i-1)
End Sub
则输出结果为(  )。
A. 4 0 4 25        B.5 0 4 20            C. 不确定            D. 程序出错
21. 如果列表框（List1）中没有被选定的项目，则执行List1.RemoveItem List1.ListIndex语句的结果是(  ) 。
A. 0                B. 1                    C.2下列属于vb字符串函数是                  D.-1
22. 下列数组声明正确的是（      ）。
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
23. 假设有以下程序段：
For i=1 to 3
For j=5 to 1 Step –1
Print i*j

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