专题三求程序运行的可能结果-高中会考信息技术试卷与试题.pdfVIP

专专题题三三　　求求程程序序运运行行的的可可能能结结果果 试卷总分：24 答题时间：[ 未设置 ] 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数组各元素可能是( )[2分]正确答案 (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 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)各元素可能的是( )[2分]正确答案 (B) 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程序段： 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中可能显示的内容是( )[2分]正确答案 (C) A BADC B BCDY C DEFG D CDEF 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)各元素值不可能的是( ) [2分]正确答案 (D) A 7 1 3 9 8 B 3 3 0 8 8 C 0 1 0 4 2 D 1 3 5 5 0 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)a (k) Then t＝a (i)：a (i)＝a (k)：a (k)＝t End If Next i 执行该程序段后，数组元素 a (1)到 a (5)中的值依次不可能为( )[2分]正确答案 (A) A 5 4 3 2 1 B 3 4 1 2 5 C 3 4 2 1 5 D 1 4 3 2 5 6. 有以下VB程序段： a (1) ＝ 2 For i ＝ 2 To 3 a (i)＝a (i－1)－Int(Rnd()*2) If i Mod 2 ＝ 1 Then a (i) ＝ a (i) ＋ 1 Else a (i) ＝