高中信息技术：届常山一中高一信息技术训练（算法）试题.docx

2021届常山一中高一信息技术训练（算法） 2018.12.5 一、选择题（本大题共10小题，每小题2分，共20分。在每小题给出的四个选项中，只有一个 符合题目要求） 1、下列程序执行后变量c和i的值 c = 0 For i = 1 to 20 If i Mod 5 = 0 Then c = c + 1 End If Next i A.4、20 B.3、20 C.4、21 D.3、20 2、下列程序执行后变量c的值 c = 0 For i = 1 To 10 If i Mod 2 = 0 Or i Mod 3 = 1 Then c = c + 1 End If Next i A.4 B.5 C.6 D.7 3、有如如下VB程序段： Key = Val(Text1.Text) i = 1：j = 9 Do While i = j m =（i + j) \ 2 If key a(m) Then j = m – 1 Else i = m + 1 Loop 数组元素a(1)到a(9)的值依次为“10,13,13,18,18,18,18,25,30”，在文本框Text1中的内容为“18”。执行程序段后，变量j的值是 A.7 B.6 C.5 D.4 4、二维数组ticket(i,j)表示某电影院第i排第j号座位的售票情况，ticket(i,j)=1表示该票已售出，ticket(i,j)=0表示该票未售出。现有如下程序段： Dim ticket(1 to 20,1 to 30) As Integer Dim i As Integer, j As Integer, count As Integer count = 0 For j = 1 To 30 If ticket(8,j) = 0 Then count = count + 1 End If Next j Label1.Caption = Str(count) 则该程序段的功能是 A.表示电影院前8排中已售出的电影票总数 B.表示电影院前8排中未售出的电影票总数 C.表示电影院第8排中已售出的电影票总数 D.表示电影院第8排中未售出的电影票总数 5、有如下VB程序段： Dim i as Integer ,sum as Integer Dim a(1 To 6) As Integer ,b(1 To 6) As Integer sum = 0 a(6) = 18:a(5) = 7:b(5) = 14:b(6) = 16 For i = 4 To 1 Step -1 a(i) = a(i + 2)-a(i + 1) b(i) = b(i + 2)-a(i) If b(i) Mod 3 = 0 Then sum =sum + b(i) Next i Text1.Text = Str(sum) 该程序段运行后，文本框Text1中显示的内容是 A.39 B.30 C.-9 D.12 6、有如下VB程序段： a(1) = 13:a(2) = 20:a(3) = 9:a(4) = 32 a(5) = 12:a(6) = 11:a(7) = 7:a(8) = 18 start = 1:k = 1 For i = start + 1 To 8 If a(i) a(start) Then k = k + 1 t = a(i):a(i) = a(k):a(k) = t End If Next i t = a(start):a(start) = a(k):a(k) = t For i = k + 1 To 8 List1.AddItem Str(a(i)) Next i 执行上面代码段后，列表框List1中依次输出的数组元素值为 A.32 20 18 B.18 20 32 C.20 32 18 D.32 12 20 18 7、小明同学编写了一个VB程序段如下： Private Sub Command1_Click() Dim a,b,c,m,k,i As Integer a = 7:b = 3:c = 9 m = 1:k = 1 For i = 1 to 3 If Abs(a + b) c Then k = k + 1 If k m Then m = k End If a = a - b b = a + b Next i Text1.Text = Str(m) End Sub 程序运行后，在文本框Text1中显示的结果为 A.4