有如下VB程序段：b(1) ＝ a(1)：t ＝ 1For i ＝ 2 To 6For j ＝ 1 To tIf a(i) > b(j) Thenb(j) ＝ a(i)Exit ForEnd IfNext jIf j > t Then t ＝ t ＋ 1: b(t) ＝ a(i)Next i数组a(1)至a(6)的值分别为15、22、13、134、43、2，执行该程序段后，变量t的值为(  )

试卷相关题目

• 1有如下 VB 程序段：Dim a(1 To 6) As Integer, i As IntegerRandomizeFor i ＝ 1 To 6a(i) ＝ Int(Rnd * 10) ＋ 1If a(i) Mod 2 ＝ 1 Theni ＝ i － 1ElseIf i Mod 2 ＝ 0 Thena(i)＝a(i)＋a(i－1)End IfNext i最终 a 数组各元素的值可能是(  )

  A.8，14，3，10，2，12

  B.2，4，6，10，12，24

  C.10，16，8，18，8，4

  D.6，12，10，20，4，8

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

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

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

  开始考试点击查看答案
• 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 程序段：flag ＝ True : i ＝ 1Do While i <＝ 6x ＝ Int(Rnd * 100) ＋ 1If flag Or x >50 Thena(i)＝xflag ＝ Not flagi ＝ i ＋ 1End ifLoop执行该程序段后，在下列选项中，a(1)～a(6)各元素值不可能的是(  )

  A.52，95，46，74，77，83

  B.50，55，46，70，21，97

  C.62，78，57，61，69，50

  D.31，54，48，72，50，82

  开始考试点击查看答案