1.选择题- (共24题)
3.
执行下列程序后,变量X的值是( ）
PRIVATE SUB FORM__CLICK( ）
S=0
FOR A = 1 TO 5
FOR B= 1 TO 3
S=S+1
NEXT B
NEXT A
PRINT S
END SUB
PRIVATE SUB FORM__CLICK( ）
S=0
FOR A = 1 TO 5
FOR B= 1 TO 3
S=S+1
NEXT B
NEXT A
PRINT S
END SUB
| A．70 |
| B．8 |
| C．25 |
| D．15 |
4.
在窗体上画一个命令按钮，其Name属性为Command1，然后编写如下代码：
Option Base 1
Private Sub Command1Click
Dim a(4,4)
For i = 1 To 3
For j = 1 To 3
a(i,j)=(i-1)*3+j
Next j
Next i
PRINT A（3，1）
End Sub
程序运行后，单击命令按钮，其输出结果为.
Option Base 1
Private Sub Command1Click
Dim a(4,4)
For i = 1 To 3
For j = 1 To 3
a(i,j)=(i-1)*3+j
Next j
Next i
PRINT A（3，1）
End Sub
程序运行后，单击命令按钮，其输出结果为.
| A．6 |
| B．7 |
| C．8 |
| D．9 |
6.
设有如下通用过程：
Public Sub Fun(a(), x As Integer)
For i = 1 To 5
x = x + a(i)
Next
End Sub
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程：
Private Sub Command1_Click()
Dim arr(5) As Variant
For i = 1 To 5
arr(i) = i
Next
n = 10
Call Fun(arr(), n)
Text1.Text = n
End Sub
程序运行后，单击命令按钮，则在文本框中显示的内容是（ ）
Public Sub Fun(a(), x As Integer)
For i = 1 To 5
x = x + a(i)
Next
End Sub
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程：
Private Sub Command1_Click()
Dim arr(5) As Variant
For i = 1 To 5
arr(i) = i
Next
n = 10
Call Fun(arr(), n)
Text1.Text = n
End Sub
程序运行后，单击命令按钮，则在文本框中显示的内容是（ ）
| A．10 | B．15 | C．25 | D．24 |
11.
设用复制、粘贴的方法建立一个命令按钮数组Command1，以下对该数组的说法错误的是: （ ）
| A．命令按钮的所有Caption属性都是Command1 |
| B．在代码中访问任意一个命令按钮只需要使用名称Command1 |
| C．命令按钮的大小都相同 |
| D．命令按钮共享相同的事件过程 |
12.
有如下通用过程和事件过程，运行程序后，单击窗体，程序的运行结果是（ ）
public function ss(x as integer,y as integer) as integer
if x>y then ss=x-y else ss=y-x
END FUNCTION
PRIVATE SUB FORM CLICK( )
DIM A AS INTEGER ,B AS INTEGER
A=8: B=6
PRINT SS(A,B)
END SUB
public function ss(x as integer,y as integer) as integer
if x>y then ss=x-y else ss=y-x
END FUNCTION
PRIVATE SUB FORM CLICK( )
DIM A AS INTEGER ,B AS INTEGER
A=8: B=6
PRINT SS(A,B)
END SUB
| A．2 | B．-2 | C．8 8 | D．6 6 |
13.
function abc( n as integer) as integer
Abc=n*5+10
End function
Private sub form_click()
Dim x as integer
X=abc(2)+100* abc(1)
Print x
End sub
Abc=n*5+10
End function
Private sub form_click()
Dim x as integer
X=abc(2)+100* abc(1)
Print x
End sub
| A．2 | B．1520 | C．1500 | D．700 |
14.
要想在过程调用后返回两个结果，下面的过程定义语句合法的是[ ]。
| A．Sub p(Byval n,Byval m) | B．Sub p(n,byval m) |
| C．Sub p(n,m) | D．Sub p(Byval n,m) |
15.
Sub过程与Function过程最根本的区别是（ ）。
| A．Sub过程可以使用Call 语句或直接使用过程名调用，而Function过程不可以 |
| B．Function过程可以有参数，Sub过程不可以 |
| C．两种过程参数的传递方式不同 |
| D．Sub过程的过程名不能返回值，而Function过程能通过过程名返回值 |
16.
S=0: M=0:N=0
FOR I=1 TO 20
IF I MOD 2=0 THEN
S=S+1
ELSEIF I MOD 3 =0 THEN
M=M+1
ELSEIF I MOD 5 =0 THEN
N=N+1
END IF
NEXT I
PRINT S,M,N
这段程序的执行结果是( )
FOR I=1 TO 20
IF I MOD 2=0 THEN
S=S+1
ELSEIF I MOD 3 =0 THEN
M=M+1
ELSEIF I MOD 5 =0 THEN
N=N+1
END IF
NEXT I
PRINT S,M,N
这段程序的执行结果是( )
| A．10 4 1 | B．10 3 1 | C．10 5 2 | D．10 3 3 |
17.
下列程序运行后的输出结果是[ ]
DIM A（6） AS INTEGER
FOR I= 1 TO 5
A（I）= I
NEXT I
PRINT A（I）
DIM A（6） AS INTEGER
FOR I= 1 TO 5
A（I）= I
NEXT I
PRINT A（I）
| A．0 | B．1 | C．5 | D．显示出错信息 |
20.
下列程序的功能是( )
PRIVATE SUB FORM—CLICK（ ）
S=0 : M=0
FOR A=1 TO 100
IF A MOD 2 = 0 THEN
S=S+A
ELSE
M=M+1
END IF
NEXT A
PRINT S , M
END SUB
PRIVATE SUB FORM—CLICK（ ）
S=0 : M=0
FOR A=1 TO 100
IF A MOD 2 = 0 THEN
S=S+A
ELSE
M=M+1
END IF
NEXT A
PRINT S , M
END SUB
| A．统计1---100间的偶数和 |
| B．统计1---100间的偶数个数 |
| C．统计1---100间的偶数和,奇数个数。 |
| D．统计1---100间的偶数个数,奇数和. |
21.
设有如下通用过程：
Public Function f(x As Integer)
Dim y As Integer
x = 20
y = 2
f = x * y
End Function
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
DIM x As Integer
x = 10
y=5
Z = f(x)
Print x;Z
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）
Public Function f(x As Integer)
Dim y As Integer
x = 20
y = 2
f = x * y
End Function
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
DIM x As Integer
x = 10
y=5
Z = f(x)
Print x;Z
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）
| A．10 5 | B．20 5 | C．20 40 | D．10 40 |
23.
下列程序的运行结果是（ ）
PRIVATE SUB FORM CLICK( )
STATIC B AS INTEGER
DIM A AS INTEGER
A=A+1
B=B+1
PRINT A,B
END SUB
要求运行程序时单击窗体三次，给出第三次单击的结果
PRIVATE SUB FORM CLICK( )
STATIC B AS INTEGER
DIM A AS INTEGER
A=A+1
B=B+1
PRINT A,B
END SUB
要求运行程序时单击窗体三次，给出第三次单击的结果
| A．3 3 | B．1 3 | C．3 1 | D．1 1 |
2.填空题- (共15题)
27.
打印矩阵 0 1 1 1
1 0 1 1
1 1 0 1
1 1 1 0
PRIVATE SUB FORM_CLICK
DIM A（4，4） AS INTEGER
FOR I = 1 TO 4
FOR J= 1 TO 4
IF ________[1]
A（I，J）=1
________[2]
A（I，J）=0
END IF
PRINT A（I，j）;
________[3]
PRINT
________[4]
END SUB
1 0 1 1
1 1 0 1
1 1 1 0
PRIVATE SUB FORM_CLICK
DIM A（4，4） AS INTEGER
FOR I = 1 TO 4
FOR J= 1 TO 4
IF ________[1]
A（I，J）=1
________[2]
A（I，J）=0
END IF
PRINT A（I，j）;
________[3]
________[4]
END SUB
32.
求2+4+6+8+10+12+14+……100。
PRIVATE SUB FORM-----CLICK（ ）
DIM I AS INTEGER，S AS INTEGER
FOR I= 2 TO 100 __________
S=S+___________
NEXT I
PRINT S
END SUB
PRIVATE SUB FORM-----CLICK（ ）
DIM I AS INTEGER，S AS INTEGER
FOR I= 2 TO 100 __________
S=S+___________
NEXT I
PRINT S
END SUB
33.
输入20个数，按从大到小的顺序打印。
PRIVATE SUB FORM----CLICK（ ）
DIM I AS INTEGER ，A（20） AS SINGLE
Dim J AS INTEGER
FOR I= 1 TO 20
A（I）= VAL（INPUTBOX（“请输入数”））
NEXT I
FOR I= 1 TO 19
FOR J= _______________ TO 20
IF _____________________
_____________________
A（I）=A（J）
A（J）=T
END IF
NEXT J
PRINT A（I）；
____________________________
PRINT A（I）
END SUB
PRIVATE SUB FORM----CLICK（ ）
DIM I AS INTEGER ，A（20） AS SINGLE
Dim J AS INTEGER
FOR I= 1 TO 20
A（I）= VAL（INPUTBOX（“请输入数”））
NEXT I
FOR I= 1 TO 19
FOR J= _______________ TO 20
IF _____________________
_____________________
A（I）=A（J）
A（J）=T
END IF
NEXT J
PRINT A（I）；
____________________________
PRINT A（I）
END SUB
35.
编写子程序对两个整数进行对调。
DIM A AS INTEGER，B AS INTEGER
A=5：B=7
PRINT A，B
CALL SS（A，B）
_______________________
END
SUB SS（X AS INTEGER，Y AS INTEGER）
T=X
__________________
__________________
__________________
DIM A AS INTEGER，B AS INTEGER
A=5：B=7
PRINT A，B
CALL SS（A，B）
_______________________
END
SUB SS（X AS INTEGER，Y AS INTEGER）
T=X
__________________
__________________
__________________
36.
键盘输入两个数，然后输出大数。
DIM A AS INTEGER，B AS INTEGER
A=5：B=7
MAX=___________
PRINT MAX
END
FUNCTION AA（X AS INTEGER，Y AS INTEGER）
IF X>Y THEN
_______________________
ELSE
_______________________
END FUNCTION
DIM A AS INTEGER，B AS INTEGER
A=5：B=7
MAX=___________
PRINT MAX
END
FUNCTION AA（X AS INTEGER，Y AS INTEGER）
IF X>Y THEN
_______________________
ELSE
_______________________
END FUNCTION
试卷分析
-
【1】题量占比
选择题:(24道)
填空题:(15道)
-
【2】：难度分析
1星难题：0
2星难题：0
3星难题：0
4星难题：0
5星难题：0
6星难题：0
7星难题：0
8星难题：0
9星难题：39