有如下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)各元素值不可能的是(  )

试卷相关题目

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

  A.BADC

  B.BCDY

  C.DEFG

  D.CDEF

  开始考试点击查看答案
• 2有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

  开始考试点击查看答案
• 3有如下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

  开始考试点击查看答案
• 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

  开始考试点击查看答案
• 8有如下 VB 程序段：n ＝ 8For i ＝ 1 To nd(i) ＝ Int(Rnd * 10) ＋ 1Next iFor i ＝ 2 To n － 1k ＝ 1For j ＝ 1 To n － iIf d(j)*k>d(j＋2)*k Thentemp＝d(j)：d(j)＝d(j＋2)：d(j＋2)＝tempEnd Ifk ＝ －kNext jNext i执行该程序段后，d 数组各元素可能是(  )

  A.3，10，3，5，4，4，10，1

  B.0，3，4，5，6，6，7，8

  C.2，1，3，4，5，6，8，7

  D.6，4，5，6，5，7，1，10

  开始考试点击查看答案