专题三　求程序运行的可能结果

时长:0分钟 总分:24分

57浏览 0人已完成答题

题型介绍
题型 单选题
数量 12
1.
有如下VB程序段：
For i ＝ 1 To 6
a(i)＝Int(Rnd*10)＋1
Next i
For i ＝ 1 To 5
If i Mod 2＝1 And a(i)>a(i＋1) Then
t＝a(i)：a(i)＝a(i＋1)：a(i＋1)＝t
Else
a(i)＝a(i)＋1
End If
Next i
执行程序后，a数组各元素可能是(  )
问题详情




2.
有VB程序段如下：
For i ＝ 1 To 6
a(i) ＝ Int(Rnd * 20) ＋ 1
If a(i) Mod 2 ＝ i Mod 2 Then
a(i) ＝ a(i) － 1
Else
a(i) ＝ a(i) ＋ 2
End If
Next i
执行该程序段后，a(1)～a(6)各元素可能的是(  )
问题详情




3.
有如下所示VB程序段：
str1 ＝ ”ABCDEFGHIJKLMNOPQRSTUVWXYZ”
s ＝ ” ”
For i ＝ 1 To 4
t ＝ Int(Rnd * 10) ＋ 1
If t Mod 2 ＝ i Mod 2 Then
t ＝ t ＋ 1
Else
t ＝ t ＋ 2
End If
s ＝ s ＋ Mid(str1, t, 1)
Next i
List1.AddItem s
执行该程序段后，列表框List1中可能显示的内容是(  )
问题详情




4.
有如下VB程序段：
i ＝ 1: n ＝ 5
Do While i <＝ n
x ＝ Int(Rnd() * 9) ＋ 1
If x Mod 2 ＝ 1 Then
a(i) ＝ x
Else
a(n)＝x
n＝n－1
End If
i ＝ i ＋ 1
Loop
数组元素的初值均为0，执行该程序段后，在下列选项中a(1)至a(5)各元素值不可能的是(  )
问题详情




5.
有如下 VB 程序段：
a(1) ＝ 3: a(2) ＝ 4: a(3) ＝ 1: a(4) ＝ 2: a(5) ＝ 5
k ＝ Int(Rnd * 4) ＋ 1
For i ＝ 1 To 5
If i <> k Then
If a(i)<a(k) Then t＝a(i)：a(i)＝a(k)：a(k)＝t
End If
Next i
执行该程序段后，数组元素 a(1)到 a(5)中的值依次不可能为(  )
问题详情




6.
有以下VB程序段：
a(1) ＝ 2
For i ＝ 2 To 3
a(i)＝a(i－1)－Int(Rnd()*2)
If i Mod 2 ＝ 1 Then
a(i) ＝ a(i) ＋ 1
Else
a(i) ＝ a(i) － 1
End If
Next i
执行程序后，a(2)和a(3)的值不可能的是(  )
问题详情




7.
有如下 VB 程序段：
For i ＝ 1 To 6
a(i) ＝ Int(Rnd() * 10) ＋ 1
If a(i) Mod 2 <> i Mod 2 Then i ＝ i － 1
Next i
For i ＝ 1 To 5
For j ＝ 6 To i ＋ 2 Step －1
If a(j) < a(j － 2) Then
t＝a(j)：a(j)＝a(j－2)：a(j－2)＝t
End If
Next j
Next i
执行程序后，a 数组各元素可能是 (  )
问题详情




8.
有如下 VB 程序段：
a(1)＝6：a(2)＝9：a(3)＝3
a(4)＝7：a(5)＝8：a(6)＝1
t ＝ 2 * Int(Rnd * 3) ＋ 1
For i ＝ t To 5
k ＝ i
For j ＝ i ＋ 1 To 6
If a(j) < a(k) Then k ＝ j
Next j
If k <> i Then
temp ＝ a(i): a(i) ＝ a(k): a(k) ＝ temp
End If
Next i
执行该程序段后，a(1)～a(6)各元素的值不可能是(  )
问题详情




9.
有如下 VB 程序段：
n ＝ 8
For i ＝ 1 To n
d(i) ＝ Int(Rnd * 10) ＋ 1
Next i
For i ＝ 2 To n － 1
k ＝ 1
For j ＝ 1 To n － i
If d(j)*k>d(j＋2)*k Then
temp＝d(j)：d(j)＝d(j＋2)：d(j＋2)＝temp
End If
k ＝ －k
Next j
Next i
执行该程序段后，d 数组各元素可能是(  )
问题详情




10.
有如下 VB 程序段：
Dim a(1 To 6) As Integer, i As Integer
Randomize
For i ＝ 1 To 6
a(i) ＝ Int(Rnd * 10) ＋ 1
If a(i) Mod 2 ＝ 1 Then
i ＝ i － 1
ElseIf i Mod 2 ＝ 0 Then
a(i)＝a(i)＋a(i－1)
End If
Next i
最终 a 数组各元素的值可能是(  )
问题详情




11.
有如下VB程序段：
b(1) ＝ a(1)：t ＝ 1
For i ＝ 2 To 6
For j ＝ 1 To t
If a(i) > b(j) Then
b(j) ＝ a(i)
Exit For
End If
Next j
If j > t Then t ＝ t ＋ 1: b(t) ＝ a(i)
Next i
数组a(1)至a(6)的值分别为15、22、13、134、43、2，执行该程序段后，变量t的值为(  )
问题详情




12.
有如下 VB 程序段：
flag ＝ True : i ＝ 1
Do While i <＝ 6
x ＝ Int(Rnd * 100) ＋ 1
If flag Or x >50 Then
a(i)＝x
flag ＝ Not flag
i ＝ i ＋ 1
End if
Loop
执行该程序段后，在下列选项中，a(1)～a(6)各元素值不可能的是(  )
问题详情