、
Private Sub Text1_Change()
Label1.Caption = Text1.Text
End Sub
、
Private Sub Label1_Change()
Label1.Caption = Text1.Text
End Sub
、
Private Sub Text1_Click()
Label1.Caption = Text1.Text
End Sub
、
Private Sub Label1_Click()
Label1.Caption = Text1.Text
End Sub
答案:
21、【
单选题
】 以下说法中错误的是( )。
[2分]
、
如果把一个命令按钮的Default属性设置为True,则按回车键与单击该命令按钮的作用相同
、
可以用多个命令按钮组成命令按钮数组
、
命令按钮只能识别单击(Click)事件
、
通过设置命令按钮的Enabled属性,可以使该命令按钮有效或禁用
答案:
22、【
单选题
】 以下关于局部变量的叙述中错误的是( )。
[2分]
、
在过程中用Dim语句或Static语句声明的变量是局部变量
、
局部变量的作用域是它所在的过程
、
在过程中用Static语句声明的变量是静态局部变量
、
过程执行完毕,该过程中用Dim或Static语句声明的变量即被释放
答案:
23、【
单选题
】 以下程序段的输出结果是( )。
x=1 : y=4
Do Until y>4
x = x * y
y = y + l
Loop
Print x
[2分]
、
l
、
4
、
8
、
20
答案:
24、【
单选题
】 如果执行一个语句后弹出如图所示的窗口,则这个语句是( )。
[2分]
、
InputBox("输入框", "请输入VB数据")
、
x=InputBox("输入框", "请输入VB数据")
、
InputBox("请输入VB数据", "输入框")
、
x=InputBox("请输入VB数据", "输入框")
答案:
25、【
单选题
】 有如下事件过程:
Private Sub Form_Click()
Dim n As Integer
x = 0
n = InputBox("请输入一个整数")
For i = 1 To n
For j = 1 To i
x = x + 1
Next j
Next i
Print x
End Sub
程序运行后,单击窗体,如果在输入对话框中输入5,则在窗体上显示的内容是( )。
[2分]
、
13
、
14
、
15
、
16
答案:
26、【
单选题
】 请阅读程序:
Sub subp(b() As Integer)
For i = 1 To 4
b(i) = 2 * i
Next
End Sub
Private Sub Command1_Click()
Dim a(1 To 4) As Integer
a(1) = 5: a(2) = 6: a(3) = 7: a(4) = 8
subp a()
For i = 1 To 4
Print a(i)
Next
End Sub
运行上面的程序,单击命令按钮,则输出结果是( )。
[2分]
、
2
4
6
8
、
5
6
7
8
、
10
12
14
16
、
出错
答案:
27、【
单选题
】 Fibonacci数列的规律是:前2个数为1,从第3个数开始,每个数是它前2个数之和,即:1,1,2,3,5,8,13,21,34,55,89,…。某人编写了下面的函数,判断大于1的整数x是否是Fibonacci数列中的某个数,若是,则返回True,否则返回False。
Function Isfab(x As Integer) As Boolean
Dim a As Integer, b As Integer, c As Integer, flag As Boolean
flag = False
a = 1 : b = 1
Do While x < b
c = a + b : a = b : b = c
If x = b Then flag = True
Loop
Isfab = flag
End Function
测试时发现对于所有正整数x,函数都返回False,程序需要修改。下面的修改方案中正确的是( )。
[2分]
、
把a=b与b=c的位置互换
、
把c=a+b移到b=c之后
、
把Do While x<b改为Do While x>b
、
把If x=b Then flag=True改为If x=a Then flag=True
答案:
28、【
单选题
】 在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:
Private Sub Command1_Click()
Dim a$, b$, c$, k%
a = "ABCD"
b = "123456"
c = ""
k = 1
Do While k <= Len(a) Or k <= Len(b)
If k <= Len(a) Then
c = c & Mid(a, k, 1)
End If
If k <= Len(b) Then
c = c & Mid(b, k, 1)
End If
k = k + 1
Loop
Print c
End Sub
运行程序,单击命令按钮,输出结果是( )。
[2分]
、
123456ABCD
、
ABCD123456
、
D6C584A321
、
A1B2C3D456
答案:
29、【
单选题
】 请阅读程序:
Private Sub Form_Click()
m = 1
For i = 4 To 1 Step -1
Print str(m);
m = m + 1
For j = 1 To i
Print "*";
Next j
Print
Next i
End Sub
程序运行后,单击窗体,则输出结果是( )。
[2分]
、
1****
2***
3**
4*
、
4****
3***
2*
1*
、
****
***
****
*
、
*
**
***
****
答案:
30、【
单选题
】 在窗体上画一个命令按钮(其名称为Commandl),然后编写如下代码:
Private Sub Command1_Click()
Dim a
a = Array(1, 2, 3, 4)
i = 3: j = 1
Do While i >= 0
s = s + a(i) * j
i = i – 1 : j = j * 10
Loop
Print s
End Sub
运行上面的程序,单击命令按钮,则输出结果是( )。
[2分]
、
Private Sub Command1_Click()
PopupMenu edit
End Sub
、
Private Sub Form_Click()
PopupMenu edit
End Sub
、
Private Sub Form_Click()
PopupMenu cut
PopupMenu paste
End Sub
答案:
33、【
单选题
】 请阅读程序:
Option Base 1
Private Sub Form_Click()
Dim arr(4, 4) As Integer
For i = 1 To 4
For j = 1 To 4
arr(i, j) = (i - 1) * 2 + j
Next
Next
For i = 3 To 4
For j = 3 To 4
Print arr(j, i);
Next j
Print
Next
End Sub
程序运行后,单击窗体,则输出结果是( )。
[2分]
、
5 7
6 8
、
6 8
7 9
、
7 9
8 10
、
8 10
8 11
答案:
34、【
单选题
】 下面函数的功能应该是:删除字符串str中所有与变量ch相同的字符,并返回删除后的结果。例如:若str=“ABCDABCD”,ch=“B”,则函数的返回值为:“ACDACD”
Function delchar(str As String, ch As String) As String
Dim k As Integer, temp As String, ret As String
ret = ""
For k = 1 To Len(str)
temp = Mid(str, k, 1)
If temp = ch Then
ret = ret & temp
End If
Next k
delchar = ret
End Function
但实际上函数有错误,需要修改。下面的修改方案中正确的是( )。
[2分]
、
把ret = ret & temp改为ret = temp
、
把If temp = ch Then改为If temp<> ch Then
、
把delchar = ret改为delchar = temp
、
把ret="" 改为temp=""
答案:
35、【
单选题
】 在窗体上画一个命令按钮和两个文本框,其名称分别为Commandl、Textl和Text2,在属性窗口中把窗体的KeyPreview属性设置为True,然后编写如下程序:
Dim S1 As String, S2 As String
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text1.Enabled = False
Text2.Enabled = False
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
S2 = S2 & Chr(KeyCode)
Print S2
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
S1 = S1 & Chr(KeyAscii)
Print S1
End Sub
Private Sub Command1_Click()
Text1.Text = S1
Text2.Text = S2
S1 = ""
S2 = ""
End Sub
程序运行后,先后按“a”、“b”、“c”键,然后单击命令按钮,在文本框Textl和Text2中显示的内容分别为( )。
[2分]