2.4调试程序同步练习　　2022—2023学年人教版高中信息技术选修1

2.4调试程序同步练习人教版信息技术选修1 学校:___________姓名：___________班级：___________考号：___________ 一、选择题 1．有如下 VB 程序段： x = 86420: s1 = "ByeBye2020": s2 = "Fighting2021" result = "" Do While x > 0 r = x Mod 10 If r Mod 3 = 0 Then result = Mid(s1, r + 1, 1) & result Else result = result & Mid(s2, r + 1, 1) End If x = x \ 10 Loop Text1.Text = result 执行该程序段后，文本框 Text1 中显示的内容是 （   ） A．Bgt22 B．eBihg C．2Bgt2 D．2yeFn 2．有如下 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 数组a元素的初值均为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 3．给定一个n正整数（n<=20），根据设定的保留位数，舍去一部分数字，剩下的数字按原次序组成一个最大的新数。例如原数36835132，保留4位，最大数为6532。在文本框Text1输入原数，文本框Text2中输入保留的位数，文本框Text3中输出删除后的最大数。实现上述功能的部分VB代码如下∶ Dim a(1 To 20)As String,ys As String,xs As String Dim k As Integer,h As Integer,n As Integer,i As Integer,j As Integer ys=Text1.Text:k=Val(Text2.Text) n=Len(ys):h=1 For i=1 To n a(i)=mid(ys,i,1) Next i For i=1 To k For j = h To ① If a(j) > a(h) Then ② Next j xs=xs + a(h) h=h + 1 Next i Text3.Text=xs 上述程序中划线处可选语句为（  ） ①n-k+i   ②i+k   ③n-k+1   ④j=h   ⑤h=j 则①②处语句依次是 A．③⑤ B．①⑤ C．①④ D．②⑤ 4．下列VB程序段功能为：在文本框Text 1中输入由一串字母和数字构成的字符，在文本框Text 2显示字符串去重以后的结果，其中字母不区分大小写，即“a”和“A”判定为相同。例如：字符串“2021xuankao”，去重为“201 xuanko”。 Dim c(0 To 35) As Integer s = Text 1. Text： res ="" For i = 1 To Len(s) ch = Mid(s, i, 1) If ch ＞ = "0" And ch ＜ = "9" Then k = Val (ch) + 26 Else ________①________ ________②________ End If ________③________ If c(k) = 1 Then res = res + ch Next i Text2. Text = res 上述程序段中方框处可选语句为： ①k = Asc(ch) - Asc("a")   ②k = Asc(ch) - Asc("A")   ③c(k) = c(k) + 1   ④c(k) = 1   ⑤If k ＜ = 0 Then k = k + 32   ⑥If k ＞ = 32 Then k = k - 32 则①②③处语句依次可为（    ） A．②⑥③ B．②⑥④ C．①⑤③ D．①⑤④ 5．某VB程序段如下： Dim i As Integer, n As Integer, k As Integer, s As String n = Val（Text1.Text）：k = 1: s = "" Do While 2 k < n k = k + 1 Loop Do While n <> 0 If n >= 2 ^ （k