专题一 求程序运行结果 1．有如下VB程序段： For i ＝ 1 To 6 a(i)＝Int(Rnd*10)＋1 Next i For i ＝ 1 To 5 If i Mod 2＝1 And a(i)>a(i＋1) Then t＝a(i)：a(i)＝a(i＋1)：a(i＋1)＝t Else a(i)＝a(i)＋1 End If Next 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 解析 产生a(i)值的范围是[1，10]，排除答案C和D。当i是奇数时，并且a(i)>a(i＋1)时交换，也就是说奇数位的数小于等于他后面的数。当奇数位的数小于等于他后面的数，或者是偶数位时，执行a(i)＝a(i)＋1，此时a(i)有可能等于11。 答案 A 2．有VB程序段如下： For i ＝ 1 To 6 a(i) ＝ Int(Rnd * 20) ＋ 1 If a(i) Mod 2 ＝ i Mod 2 Then a(i) ＝ a(i) － 1 Else a(i) ＝ a(i) ＋ 2 End If Next 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 解析 产生a(i)值的范围是[1，20]，当i是奇数时，如果a(i)也是奇数，将他减1，成为偶数。当i是偶数时，如果a(i)也是偶数，将他减1，成为奇数。因此奇数位产生的是偶数，偶数位产生的奇数。当产生的最小奇数为1时，减1为0，即最小偶数为0，当产生的最大偶数为20时，加2为22。同理可得奇数的范围是[1，21]。 答案 B 3．有如下所示VB程序段： str1 ＝ ”ABCDEFGHIJKLMNOPQRSTUVWXYZ” s ＝ ”——— For i ＝ 1 To 4 t ＝ Int(Rnd * 10) ＋ 1 If t Mod 2 ＝ i Mod 2 Then t ＝ t ＋ 1 Else t ＝ t ＋ 2 End If s ＝ s ＋ Mid(str1, t, 1) Next i List1.AddItem s 执行该程序段后，列表框List1中可能显示的内容是( ) A．BADC B．BCDY C．DEFG D．CDEF 解析 产生t值的范围是[1，10]。当i是奇数时，如果t也是奇数，加1成为偶数，t不是奇数，加2还是偶数，且数的范围是[2，12]。当i是偶数时，如果t也是偶数，加1成为奇数，t不是偶数，加2还是奇数，且数的范围是[3，11]。因此奇数位产生的是偶数，偶数位产生的奇数。 答案 C 4．有如下VB程序段： i ＝ 1: n ＝ 5 Do While i <＝ n x ＝ Int(Rnd() * 9) ＋ 1 If x Mod 2 ＝ 1 Then a(i) ＝ x Else a(n)＝x n＝n－1 End If i ＝ i ＋ 1 Loop 数组元素的初值均为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 解析 产生的数[1，9]，偶数放在后面，奇数放在前面。A选项，先产生4个奇数，再产生一个偶数。B选项，先产生两个奇数，再产生两个偶数，此时i＝4，n＝3，不满足条件，退出循环，因此第3个元素为0。C选项，先产生一个偶数，再产生一个奇数，再生产2个偶数，此时n＝3，i＝5，不满足条件。D选项，先产生4个奇数，此时n＝5，条件成立，但产生的数不可能是0。 答案 D 5．有如下 VB 程序段： a(1) ＝ 3: a(2) ＝ 4: a(3) ＝ 1: a(4) ＝ 2: a(5) ＝ 5 k ＝ Int(Rnd * 4) ＋ 1 For i ＝ 1 To 5 If i <> k Then If a(i)
2就不会换，当i＝2时k等于任何值，均不会换，当i＝3时，k＝3，不换。C选项中，3和4互换，D选项2和4互换。 答案 A 6．有以下VB程序段： a(1) ＝ 2 For i ＝ 2 To 3 a(i)＝a(i－1)－Int(Rnd()*2) If ... ... 
