限时训练03 桶排序插入排序专项（一）（原卷 答案）-冲刺浙江省高考选考信息技术限时训练.docxVIP

冲刺浙江省高考选考信息技术限时训练 专题03 桶排序插入排序专项（一） 1. 某VB程序段如下： Dim a(1 To 5) As Integer Dim b(1 To 10) As Integer a(1)=7:a(2)=5:a(3)=9:a(4)=4:a(5)=3 For i= 1 To 5 b(a(i)) = b(a(i)) + 1 Next i pa=0 For j= 1 To 10 For k= 1 To b(j) pa=pa+ 1 a(pa) = j Next k Next j 该程序段运行后，数组元素a(1)到a(5)的数据依次是（ ） A. 7,9,5,4,3 B. 3,4, 5,7, 9 C. 4,5,7,9,3 D. 9,7,5,4,3 2．有以下 VB 程序段： a(1) = 58: a(2) = 38: a(3) = 46: a(4) = 40: a(5) = 58 a(6) = 30: a(7) = 48: a(8) = 50: a(9) = 36: a(10) = 56 For i = 1 To 10 b(a(i) mod 10) = b(a(i) mod 10) + 1 Next i s= For i = 0 To 9 If b(i) 0 Then s = s+ +str(i)+ ： + Str(b(i)) Next i 数