有如下语句：A:Option Base 10

结构化程序设计的三种基本结构不包括（ ）。

A:顺序结构
B:倒序结构
C:选择结构
D:循环结构
答案: 倒序结构

下面四个语句中，能打印显示20*30字样的是（  ）。

A:Print“20*30”
B:Print 20*30
C:Print Chr(20)+“*”+Chr(30)
D:Print val(“20”)*val(“30”)
答案: Print“20*30”

关于MsgBox函数，以下说法不正确的是（  ）。

A:“提示”参数用于在MsgBox函数产生的对话框内显示提示信息
B:“按钮”参数是数值表达式，是表示指定显示按钮的数目和类型使用的图标样式，默认按钮的标识以及消息框样式的数值的总和
C:MsgBox函数的返回值是一个字符串，这个字符串与所选择的命令按钮有关
D:“标题”参数可选，显示在对话框标题栏中的字符串表达式
答案: MsgBox函数的返回值是一个字符串，这个字符串与所选择的命令按钮有关

语句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为关系表达式

答案: x=1为关系表达式,y=1为赋值语句

下面程序段执行结果为(  )。                x = 5 : y = -6If not x > 0 Then      x = y – 3 Else      y = x + 3End IfPrint  x – y; y – x

A:-3  3
B:5  -9
C:3  -3
D:-6  5
答案: -3  3

编写如下事件过程:   Private Sub Form_Click()    score=Int(Rnd*10)+80     Select Case score          Case Is

A: A
B: B
C: C
D: D
答案:  B

循环结构For I%= -1 to –17  Step –2 共执行( )次。

A: 5
B: 6
C: 8
D: 9
答案:  9

下列程序段的执行结果为( )。 a=0:b=1 Do    a=a+b     b=b+1 Loop While a

A: 10  5
B: a  b
C: 0  1
D: 10  30
答案:  10  5

有如下程序,运行后输出的结果是( )。j=0:n=0 Do While  n

A: 0  1
B: 182  3
C: 30  4
D: 3  3
答案:  182  3

下列的程序段执行后,x的值为( )。x=0 For i=1 To 10    For j=i To 10         x=x+1     Next j Next i

A: 50
B: 55
C: 5
D: 105
答案:  55

以下关于静态数组的描述正确的是（   ）。

A:

静态数组的大小是固定的，可以有不同类型的数组元素

B:

静态数组的大小是可变的，但所有数组元素的类型必须相同

C:

静态数组的大小是固定的，所有数组元素的类型必须相同

D:

静态数组的大小是可变的，可以有不同类型的数组元素

答案:

静态数组的大小是固定的，可以有不同类型的数组元素

执行下面程序段后，输出的结果为（  ）。    Dim m(5) As Integer    s = 0    For i = 0 To 5        m(i) = 5    Next i    For j = 0 To 5        s = s + m(j)    Next j

 Print s

A:

20

B:

25

C:

30

D:

35

答案:

30

下面程序：Private Sub Form_Click()    Dim a(100) As Integer    For i = 1 To 10        j = i * i        a(j) = j    Next i    Print a(25)End Sub运行后，单击窗体，则输出的结果是（   ）。

A:

25

B:

36

C:

49

D:

81

答案:

25

有如下语句：

Option Base 1

Private Sub Command1_Click()

    Dim A(2, -1 To 1) As Integer

    ……

End Sub 以上语句所定义的数组A为（   ）维数组，共有（   ）个元素，第一维下标从（   ）到（   ），第二维下标从（   ）到（   ）。

A:

1,2,6,2,-1,1

B:

6,2,1,2,-1,1

C:

2,6,1,2,-1,1

D:

2,1,6,-1,1,2

答案:

2,6,1,2,-1,1

有如下程序：    Const n = -5    Const m = 6    Dim a(n To m) As Integer    For i = LBound(a, 1) To UBound(a, 1)        a(i) = i    Next i    Print a(LBound(a, 1)); a(UBound(a, 1))运行后输出的结果为（   ）。

A:

 0  0  

B:

-5  0  

C:

-5  6   

D:

 0  6

答案:

-5  6   

下面关于控件数组与一般控件的叙述中正确的是（   ）。 

A:

控件数组一定有1个以上同类型的控件组成，而一般控件只有一个控件

B:

控件数组的索引属性值Index值为0，而一般控件的Index值为空 

C:

控件数组的Index值为1，而一般控件的Index值为0 

D:

控件数组的建立通过Dim语句声明，而一般控件不需要声明

答案:

控件数组一定有1个以上同类型的控件组成，而一般控件只有一个控件

如果要对已经声明的数组重新定义大小，并保留原有数据，可以使用语句（  ）。

A:

Dim

B:

ReDim

C:

Dim Preserve

D:

ReDim Preserve

答案:

ReDim Preserve

下列程序的输出结果为（   ）。 

Private Sub Command1_Click()  

Dim a   

ReDim a(6)  

For j=1 To 5   

a(j)=j*j  

Next j  

Print a(a(2)*a(3)-a(4)*2)+a(5) 

End Sub 

A:

 36

B:

 25

C:

 16

D:

 41

答案:

 41

 执行下面程序段后，输出的结果为（  ）。    Dim a(10, 10) As Integer    For i = 2 To 4        For j = 4 To 5            a(i, j) = i * j        Next j    Next i    Print a(2, 5) + a(3, 4) + a(4, 5)

A:

 22

B:

 42

C:

 32

D:

 52

答案:

 42

要分配存放如下方阵的数据，正确的且最节约存储空间的数组声明语句是（  ）。   

1.1  2.2   3.3 

4.4  5.5   6.6 

7.7  8.8   9.9  

A:

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

答案:

Dim a(-1 To 1, -5 To -3) As Single 

假定有如下的Sub过程：Sub fun(x As Single, y As Single)    t = x    x = t / y    y = t Mod yEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()    Dim a As Single    Dim b As Single    a = 6    b = 4    fun a, b    Print a, bEnd Sub程序运行后，单击命令按钮，输出结果为（   ）。

A:

5  4

B:

1  1

C:

1.25  4

D:

1.5  2

答案:

1.5  2

假定有以下函数过程：Function Fun(s As String) As String    Dim s1 As String    For i = 1 To Len(s)        s1 = UCase(Mid(s, i, 1)) + s1    Next i    Fun = s1End Function在窗体上添加一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()    Dim Str1 As String    Dim Str2 As String    Str1 = InputBox(“请输入一个字符串”)    Str2 = Fun(Str1)    Print Str2End Sub程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后再窗体上输出的结果为（   ）。

A:

Abcdefg

B:

ABCDEFG

C:

gfedcba

D:

GFEDCBA

答案:

GFEDCBA

有如下函数过程：Function secproc(x As Integer, y As Integer, z As Integer)    secproc = 3 * y + z + 2 * xEnd Function Private Sub Command1_Click()    Dim a As Integer, b As Integer, c As Integer    a = 2: b = 3: c = 4    Print secproc(c, b, a)End Sub该程序的运行结果是（   ）。

A:

17

B:

18

C:

19

D:

20

答案:

19

有如下函数过程：Function Cys(ByVal x As Integer, ByVal y As Integer) As Integer    Dim quotients    Do While y 0        quotients = x / y        x = y        y = quotients    Loop    Cys = xEnd Function以下是调用该函数的事件过程，该程序的运行结果是（   ）。Private Sub Command1_Click()    Dim a As Integer    Dim b As Integer    a = 10    b = 2    x = Cys(a, b)    Print xEnd Sub

A:

0

B:

25

C:

5

D:

100

答案:

5

以下是一个能返回数组a中最大数的函数过程代码： 

Function maxval(a() As Integer) As Integer   

Dim max%   

max = 1 

For i = 2 To 10 

If a(i) > a(max) Then max = i   

Next i 

     maxval = max 

End Function 

Private Sub Command1_Click()

    Dim x(1 To 10) As Integer

    For i = 1 To 10

        x(i) = Int(Rnd() * 100)

        Print x(i);

    Next i

    Print

    Print maxval(x())

End Sub程序运行时，发现函数过程的返回值是错的需要修改，下面的修改方案中正确的是（  ）。 

A:

语句“max = 1”应改为“max = a(1)” 

B:

语句“For i = 2 To 10”应改为“For i = 1 To 10”

C:

If语句“max = i”应改为“max = a(i)”

D:

语句“maxval = max ”应改为“maxval  = a(max)”

答案:

语句“maxval = max ”应改为“maxval  = a(max)”

 在窗体上画一个命令按钮(名称为Command1)，并编写如下代码：Function Fun1(ByVal a As Integer, b As Integer) As Integer    Dim t As Integer    t = a – b    b = t + a    Fun1 = t + bEnd Function Private Sub Command1_Click()    Dim x As Integer    x = 10    Print Fun1(Fun1(x, (Fun1(x, x – 1))), x – 1)End Sub程序运行后，单击命令按钮，输出结果是(　　)。

A:

 10

B:

 0

C:

 11

D:

 21

答案:

 0

下面程序的运行结果为（   ）。Dim a%, b%, c%Sub p1(x%, y%)    Dim c As Integer    x = 2 * x: y = y + 2: c = x + yEnd SubSub p2(x%, ByVal y%)    Dim c As Integer    x = 2 * x: y = y + 2: c = x + yEnd SubPrivate Sub Command1_Click()    a = 2: b = 4: c = 6    Call p1(a, b)    Call p2(a, b)    Print a; b; cEnd Sub

A:

 4  6  6

B:

 8  6  6

C:

 4  6  10

D:

 8  8  6

答案:

 8  6  6

下面程序：Function a(x)    Static b As Integer    b = b + x ^ 2    Print bEnd Function Private Sub Command1_Click()    Dim c%    c = a(2)End Sub单击两次命令按钮，第二次显示的结果是（   ）。

A:

 2

B:

 4

C:

 6

D:

 8

答案:

 8

下列叙述中正确的是（   ）。

A:

在窗体的Form_Load事件中定义的变量是全局变量

B:

局部变量的作用域可以超出所定义的过程

C:

在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程

D:

在调用过程时，所有局部变量被系统初始化为0或空字符串

答案:

在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程

若已编写了一个Sort子过程，在该工程中有多个窗体，为了方便地调用Sort子过程，应将该过程放在  （   ）中。

A:

窗体模块

B:

标准模块

C:

类模块

D:

工程

答案:

标准模块