有如下 VB 程序段：For i ＝ 1 To 6a(i) ＝ Int(Rnd() * 10) ＋ 1If a(i)-最需题库

试卷相关题目

1有以下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
开始考试点击查看答案
2有如下 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
开始考试点击查看答案
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程序段：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
开始考试点击查看答案
5有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
开始考试点击查看答案
6有如下 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
开始考试点击查看答案
7有如下 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
开始考试点击查看答案
8有如下 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
开始考试点击查看答案
9有如下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的值为( )
A.2
B.3
C.4
D.5
开始考试点击查看答案
10有如下 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
开始考试点击查看答案