有如下所示VB程序段：str1 ＝ ”ABCDEFGHIJKLMNOPQRSTUVWXYZ”s ＝ ” -最需题库

试卷相关题目

1有VB程序段如下：For i ＝ 1 To 6a(i) ＝ Int(Rnd * 20) ＋ 1If a(i) Mod 2 ＝ i Mod 2 Thena(i) ＝ a(i) － 1Elsea(i) ＝ a(i) ＋ 2End IfNext i执行该程序段后，a(1)～a(6)各元素可能的是( )
A.13，2，7，12，5，18
B.22，7，0，15，4，19
C.20，9，18，23，4，7
D.6，0，4，21，18，17
开始考试点击查看答案
2有如下VB程序段：For i ＝ 1 To 6a(i)＝Int(Rnd*10)＋1Next iFor i ＝ 1 To 5If i Mod 2＝1 And a(i)>a(i＋1) Thent＝a(i)：a(i)＝a(i＋1)：a(i＋1)＝tElsea(i)＝a(i)＋1End IfNext i执行程序后，a数组各元素可能是( )
A.11，11，7，9，3，9
B.6，2，8，10，5，9
C.6，9，3，7，8，12
D.3，9，0，8，2，7
开始考试点击查看答案
3有如下VB程序段：i ＝ 1: n ＝ 5Do While i <＝ nx ＝ Int(Rnd() * 9) ＋ 1If x Mod 2 ＝ 1 Thena(i) ＝ xElsea(n)＝xn＝n－1End Ifi ＝ i ＋ 1Loop数组元素的初值均为0，执行该程序段后，在下列选项中a(1)至a(5)各元素值不可能的是( )
A.7 1 3 9 8
B.3 3 0 8 8
C.0 1 0 4 2
D.1 3 5 5 0
开始考试点击查看答案
4有如下 VB 程序段：a(1) ＝ 3: a(2) ＝ 4: a(3) ＝ 1: a(4) ＝ 2: a(5) ＝ 5k ＝ Int(Rnd * 4) ＋ 1For i ＝ 1 To 5If i <> k ThenIf a(i)<a(k) Then t＝a(i)：a(i)＝a(k)：a(k)＝tEnd IfNext i执行该程序段后，数组元素 a(1)到 a(5)中的值依次不可能为( )
A.5 4 3 2 1
B.3 4 1 2 5
C.3 4 2 1 5
D.1 4 3 2 5
开始考试点击查看答案
5有以下VB程序段：a(1) ＝ 2For i ＝ 2 To 3a(i)＝a(i－1)－Int(Rnd()*2)If i Mod 2 ＝ 1 Thena(i) ＝ a(i) ＋ 1Elsea(i) ＝ a(i) － 1End IfNext i执行程序后，a(2)和a(3)的值不可能的是( )
A.1，1
B.1，0
C.0，1
D.0，0
开始考试点击查看答案
6有如下 VB 程序段：For i ＝ 1 To 6a(i) ＝ Int(Rnd() * 10) ＋ 1If a(i) Mod 2 <> i Mod 2 Then i ＝ i － 1Next iFor i ＝ 1 To 5For j ＝ 6 To i ＋ 2 Step －1If a(j) < a(j － 2) Thent＝a(j)：a(j)＝a(j－2)：a(j－2)＝tEnd IfNext jNext i执行程序后，a 数组各元素可能是 ( )
A.1，2，3，4，5，6
B.1，0，3，6，5，8
C.3，2，7，6，11，8
D.2，1，4，3，10，9
开始考试点击查看答案
7有如下 VB 程序段：a(1)＝6：a(2)＝9：a(3)＝3a(4)＝7：a(5)＝8：a(6)＝1t ＝ 2 * Int(Rnd * 3) ＋ 1For i ＝ t To 5k ＝ iFor j ＝ i ＋ 1 To 6If a(j) < a(k) Then k ＝ jNext jIf k <> i Thentemp ＝ a(i): a(i) ＝ a(k): a(k) ＝ tempEnd IfNext i执行该程序段后，a(1)～a(6)各元素的值不可能是( )
A.6，1，3，7，8，9
B.6，9，1，3，7，8
C.6，9，3，7，1，8
D.1，3，6，7，8，9
开始考试点击查看答案