有如下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数组各元素可能是(  )

试卷相关题目

• 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程序段：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

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

  开始考试点击查看答案