真题答案

79.给程序的空白行选择适当的语句。
程序段的功能是：依次自动将列表框List2中所有列表项目移入列表框List1中，并将移入List1中的项目从List2中删除。程序如下：
Do While List2.ListCount
A
List2.RemoveItem 0
Loop
A）List1.AddItem List2.List(0)
B）List1.AddItem List2.Text
C）List2.AddItem List1.List(0)
D）List2.AddItem List1.Text
80.如下程序运行后输出的结果是 B 。
x=0
For k=3 To 5
x=x+2
s=s+x
Next k
Print s
A）3
B）12
C）6
D）9
81.下述程序的功能是 C 。
x="((a+B)*A)-(a*b+C)"
n=Len(x)
m=0
For k=1 To n
p&=Mid(x,k,1)
If p&="(" Then
m=m-1
ElseIf p&=")" Then
m=m+1
End If
If m>0 Then
Print ":-p"
End If
Next k
Print ":-)"
A）统计输入的字符串中括号的总数
B）统计输入的字符串中匹配的括号的对数
C）检查输入的字符串中的括号是否能够匹配
D）删除字符串的括号
82.下述程序段中，与其他3个程序段作用不同的是 A 。
A）s=0
i=0
While i>100
s=s+i
Wend
B）s=0
i=0
While i<100
i=i+1
Wend
C）s=0
i=1
Do While i<100
s=s+1
Loop
D）s=0
i=0
Do Until i>100
s=s+1
Loop
83.下列程序段的执行结果为 A 。
a=0:b=1
Do
a=a+b
b=b+1
Loop While a<10
Print a;b
A）10 5
B）a b
C）0 1
D）10 30
84.下列程序的运行结果是 B 。
s=0:t=0:u=0
For x=1 To 3
For y=1 To x
For z=y To 3
s=s+1
Next z
t=t+1
Next y
u=u+1
Next x
Print s;t;u
A）3 6 14
B）14 6 3
C）14 3 6
D）16 4 3
85.下述程序的运行结果是 B 。
j=0
Do While j<30
j=(j+1)*(j+2)
k=k+1
Loop
Print k;j
A）0 1
B）3 182
C）30 30
D）4 30
86.下列程序的执行结果为 C 。
n=0
j=1
Do Until n>2
n=n+1
j=j+n*(n+1)
Loop
Print n;j
A）0 1
B）3 7
C）3 21
D）3 13
87.在窗体上画一个命令按钮，然后编写如下事件过程，程序运行后，单击命令按钮，依次
在输入对话框中输入5，4，3，2，1，-1，输出结果为 A 。
Private Sub Command1_Click()
x=0
Do Until x=-1
a=Val(InputBox("请输入A的值"))
b=Val(InputBox("请输入B的值"))
x=Val(InputBox("请输入X的值"))
a=a+b+x
Loop
Print a
End Sub
A）2
B）3
C）14
D）15
88.下面的数组声明语句中是 B 正确的。
A）Dim A［3,4］As Integer
B）Dim A（3,4）As Integer
C）Dim A［3；4］As Integer
D）Dim A（3；4）As Integer
89.下述语句的运行结果是 A 。
Dim a
i=0
a=Array (1,-2,9,0,-1,9)
Do
K=a(i)
For m=10 To k Step-2
n=k+m
Next m
Print n+m
i=i+1
Loop While Abs(m+n)<>27
A）3 -8 27
B）3 27 -8
C）-8 27 3
D）-8 3 27
90.下列程序段的执行结果为 C 。
Dim M(2)
For i=1 To 2
M(i)=0
Next i
k=2
For i=1 To k
For j=1 To k
M(j)=M(i)+1
Print M(k);
Next j

Next i
A）1 2 2 3
B）1 2 3 4
C）0 2 2 3
D）0 1 2 3
91.有如下程序：
Dim arr (3,3)
For j=1 To 3
For k=1 To 3
arr(j,k)=(j-1)*3+k
Next