21、【
单选题
】 默认情况下,下面声明的数组的元素个数是( )。
Dim a(5, -2 To 2)
[2分]
、
20
、
24
、
25
、
30
答案:
22、【
单选题
】 设有如下程序段:
Dim a(10)
…
For Each x ln a
Print x;
Next x
在上面的程序段中,变量x必须是( )。
[2分]
、
整型变量
、
变体型变量
、
动态数组
、
静态数组
答案:
23、【
单选题
】 设有以下函数过程
Private Function Fun(a() As Integer,b As String)As Integer
…
End Function
若已有变量声明:
Dim x(5)As Integer,n As Integer,ch As String
则下面正确的过程调用语句是( )。
[2分]
、
x(0) = Fun(x, "ch")
、
n = Fun(n, ch)
、
Call Fun x,"ch"
、
n = Fun(x(5), ch)
答案:
24、【
单选题
】 假定用下面的语句打开文件:
Open "Filel.Txt" For Input As #l
则不能正确读文件的语句是( )。
[2分]
、
Input #1, ch$
、
Line Input #1, ch$
、
ch$ = Input$(5, #1)
、
read #1,ch$
答案:
25、【
单选题
】 下面程序的执行结果是( )。
Private Sub Command1_Click()
a = 10
For k = 1 To 5 Step -1
a = a - k
Next k
Print a; k
End Sub
[2分]
、
-5 6
、
-5 -5
、
10 0
、
10 l
答案:
26、【
单选题
】 设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮,并有以下事件过程:
Private Sub Command1_Click()
x! = Val(Text1.Text)
Select Case x
Case Is < -10, Is >= 20
Print "输入错误"
Case Is < 0
Print 20 - x
Case Is < 10
Print 20
Case Is <= 20
Print x + 10
End Select
EndSub
程序运行时,如果在文本框中输入-5,则单击命令按钮后的输出结果是( )。
[2分]
、
5
、
20
、
25
、
输入错误
答案:
27、【
单选题
】 设有如下程序
Private Sub Command1_Click()
x = 10: y = 0
For i = 1 To 5
Do
x = x - 2
y = y + 2
Loop Until y > 5 Or x < -1
Next
End Sub
运行程序,其中Do循环执行的次数是( )。
[2分]
、
15
、
10
、
7
、
3
答案:
28、【
单选题
】 阅读程序:
Private Sub Command1_Click()
Dim arr
Dim i As Integer
arr = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
For i = 0 To 2
Print arr(7 - i);
Next
End Sub
程序运行后,窗体上显示的是( )。
[2分]
、
8 7 6
、
7 6 5
、
6 5 4
、
5 4 3
答案:
29、【
单选题
】 在窗体上画一个名为Command1的命令按钮,然后编写以下程序:
Private Sub Command1_Click()
Dim a(10) As Integer
For k = 10 To 1 Step -1
a(k) = 20 - 2 * k
Next k
k = k + 7
Print a(k - a(k))
End Sub
运行程序,单击命令按钮,输出结果是( )。
[2分]
、
18
、
12
、
8
、
6
答案:
30、【
单选题
】 窗体上有一个名为Commandl的命令按钮,并有如下程序:
Private Sub Command1_Click()
Dim a(10), x%
For k = 1 To 10
a(k) = Int(Rnd * 90 + 10)
x = x + a(k) Mod 2
Next k
Print x
End Sub
程序运行后,单击命令按钮,输出结果是( )。
[2分]
、
10个数中奇数的个数
、
10个数中偶数的个数
、
10个数中奇数的累加和
、
10个数中偶数的累加和
答案:
31、【
单选题
】 窗体上有一个名为Commandl的命令按钮和一个名为Timerl的计时器,并有下面的事件过程:
Private Sub Command1_Click()
Timerl.Enabled=True
EndSub
Private Sub Form_Load()
Timerl.Interval=10
Timerl.Enabled=False
End Sub
Private Sub Timerl_Timer()
Commandl.Left=Commandl.Left+10
End Sub
程序运行时,单击命令按钮,则产生的结果是( )。
[2分]
、
命令按钮每10秒向左移动一次
、
命令按钮每10秒向右移动一次
、
命令按钮每10毫秒向左移动一次
、
命令按钮每10毫秒向右移动一次
答案:
32、【
单选题
】 设窗体上有一个名为Listl的列表框,并编写下面的事件过程:
Private Sub Listl_Click()
Dim ch As String
ch=Listl.List(Listl.ListIndex)
List1.RemoveItem List 1.ListIndex -
List1.AddItem ch
EndSub
程序运行时,单击一个列表项,则产生的结果是( )。
[2分]
、
该列表项被移到列表的最前面
、
该列表项被删除
、
该列表项被移到列表的最后面
、
该列表项被删除后又在原位置插入
答案:
33、【
单选题
】 窗体上有一个名为Commandl的命令按钮,并有如下程序:
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = 8
b = 12
Print fun(a, b); a; b
End Sub
Private Function Fun(ByVal a As Integer, b As Integer) As Integer
a = a Mod 5
b = b \ 5
Fun = a
End Function
程序运行时,单击命令按钮,则输出结果是( )。
[2分]
、
3 3 2
、
3 8 2
、
8 8 12
、
3 8 12
答案:
34、【
单选题
】 为了从当前文件夹中读入文件File1.txt,某人编写了下面的程序:
Private Sub Command1_Click()
Open "File1.txt" For Output As #20
Do While Not EOF(20)
Line Input #20, ch$
Print ch
Loop
Close #20
End Sub
程序调试时,发现有错误,下面的修改方案中正确的是( )。
[2分]
Private Sub Command1_Click()
If Not Check(Combo1.Text) Then
MsgBox ("输入错误")
Exit Sub
End If
For k = 0 To Combo1.ListCount - 1
If Combo1.Text = Combo1.List(k) Then
MsgBox ("添加项目失败")
Exit Sub
End If
Next k
Combo1.AddItem Combo1.Text
MsgBox ("添加项目成功")
End Sub
Private Function Check(ch As String) As Boolean
n = Len(ch)
For k = 1 To n
c$ = UCase(Mid(ch, k, 1))
If c < "A" Or c > "Z" Then
Check = False
Exit Function
End If
Next k
Check = True
End Function
程序运行时。如果在组合框的编辑区中输入“Java”,则单击命令按钮后产生的结果是( )。
[2分]