2.2选择结构程序同步练习人教版信息技术选修1

这是一份信息技术本册综合课后作业题，共11页。试卷主要包含了选择题，填空题，操作题等内容，欢迎下载使用。
2.2选择结构程序同步练习人教版信息技术选修1学校:___________姓名：___________班级：___________考号：___________ 一、选择题1．有如下VB程序段：    result = ""s1 = Text1.Texts2 = Text2.Texti = 1Do While i <= Len(s1)If Mid(s1,i,Len(s2)) <> s2 Thenresult = result + Mid(s1, i, 1)i = i + 1Elsei = i + Len(s2)End IfLoop在文本框Text1和Text2中分别输入“Pyyesthon”和“yes”，执行该程序段后，变量result的值是（   ）A．"Pythonyes " B．"yesPython "C．"Pyyesthon " D．"Python "2．有如下VB程序段：For i = 1 To 4    a(i) = Int(Rnd * 5) * 2 + 1    b(i) = 1Next iFor i = 1 To 3    For j = i + 1 To 4        If a(i) < a(j) Then            b(i) = b(i) + 1        Else            b(j) = b(j) + 1        End If    Next jNext i执行该程序段后，数组b各元素的值依次是1，4，2，3，则数组a各元素的值可能的是（   ）A．8 1 5 3 B．9 5 7 3 C．1 5 3 9 D．7 3 5 53．下列程序段的结构是：if a+b>c and a+c>b  and b+c>a ：     print(“周长：”，a+b+c)else:     print(“不能构成三角形”)A．顺序结构 B．分支结构 C．循环结构 D．以上三项都是4．下列选项中，与语句＂If x＞188 Then y＝x*0.5 Else y＝x*0.8＂功能相同的是（  ）A．If x>188 Then y=x*0.5 y=x*0.8 B．Ifx<188 Then y=x*0.8 Else y=x*0.5C．y=x*0.8 If x>188 Then y=x*0.5 D．Ifx>188 Then y=x*0.5 If x<188 Then y=x*0.85．有n个整数存放在数组a中，整数k1与k2且k1<k2。某程序段如下：i = 1: L = 0: R = n + 1Do While i < RIf a(i) < k1 ThenL = L + 1If L <> i Then tt = a(i): a(i) = a(L): a(L) = tti = i + 1ElseIf a(i) > k2 ThenR = R - 1tt = a(i): a(i) = a(R): a(R) = ttElsei = i + 1End IfLoop则执行上述代码后，下列说法正确的是（   ）A．数组a变成升序排列B．a(L)<=k1C．a(R)>=k2D．a数组中大于等于k1小于等于k2的元素个数为R-L-16．有如下VB程序段：s1 = "algorithm"If Len(s1) Mod 2 = 1 Then  i = Len(s1) \ 2: j = Len(s1) \ 2 + 2  s2 = Mid(s1, i + 1, 1)Else  i = Len(s1) \ 2: j = Len(s1) \ 2 + 1End IfDo While i >= 1  If Mid(s1, i, 1) > Mid(s1, j, 1) Then    s2 = Mid(s1, i, 1) + s2  Else    s2 = s2 + Mid(s1, j, 1)  End If  i = i - 1: j = j + 1LoopLabel1．Caption = s2执行该程序段后，标签Label1上显示的内容是（   ）A．lortm B．rotlm C．mltor D．lormt7．下面程序是要实现“输出100以内（包含100）能被3整除的数”，其中空格部分的表达式是（      ）。Dim I As IntegerI=1Do If __ __ __ ThenPrint IEnd IfI=I+1 Loop Until I > 100A．I Mod 3=0 B．I Mod 3<>0 C．Not(I Mod 3<>0) D．Not (I Mod 3=0)8．下列关于分支结构的描述错误的是（   ）A．多分支结构通常适用于判断一类条件或同一个条件的多个执行路径B．使用多分支结构时需要注意多个逻辑条件的先后顺序，避免逻辑上的错误C．分支结构包括单分支结构、双分支结构和多分支结构D．单分支结构的格式为if-else9．有如下程序段：s = "Happy 2021/07"ans = "": f = True: Max = ""For i = 1 To Len(s)    ch = Mid(s, i, 1)    If ch >= "a" And ch <= "z" Then        ans = ans + Chr(Asc(ch) - 32)    ElseIf ch >= "0" And ch <= "9" Then        f = False    End If    If Not f And ch > Max Then        Max = ch: f = True    End IfNext iLabel1.Caption = ans + Max执行该段程序后，标签label1中显示的内容是（   ）A．Happy7 B．HAPPY0 C．HAPPY7 D．APPY710．有如下VB程序段：Dim elem(1 To 50) As Strings="HHeLiBeBCNOFNe.”k=0:tmp="":i=1ch=Mid(s,i,1)Do While ch<>"."If ch>="A" And ch <="Z" Thenk=k+1:elem(k)=tmp:tmp=chElsetmp=tmp+chEnd Ifi=i+1ch=Mid(s,i,1)Loop执行该程序段后，变量k和elem（k）的值是（  ）A．9 "Ne" B．10 "Ne" C．9 "F" D．10"F" 二、填空题11．VB中的三种基本程序结构是(        )结构，(        )结构和(        )结构。12．下列VB程序运行时，在文本框Text1中输入字符串”while”，在文本框Text2和Text3中分别输入2和5，单击命令按钮Command1后，在文本框Text4中显示的内容是________。Private   Sub  Command1_click ( ) Dim  n  As  Integer , m  As  Integer  , k  As  Integern= Len ( Text1.Text )m= Val ( Text2.Text )k= Val ( Text3.Text )If  m + k -1 > n   ThenText4.Text = Mid ( Text1.Text , 1 , m – 1 ) ElseText4.Text = Mid ( Text1.Text , 1 , m–1 ) + Mid ( Text1.Text , m+k , n–m–k +1 )End  IfEnd  Sub13．以下流程图描述的算法，执行结果是_______。14．现有如下Visual Basic程序：Private Sub Command1_Click()Dim i As Integer, c As String, s As String, t As Strings = Text1.textt = ""For i = 1 To Len(s)c = Mid(s, i, 1)If  c >= "0" And c <= "9"  Then t = t + cNext iText2.text = tEnd Sub运行该程序，在文本框Text1中输入“2016_Student”（不包含引号），单击命令按钮Command1后，文本框Text2中显示的内容是_________。15．有如下程序段：list1=[“an”,”alpha”,”around”,”bee”,”back”,”cake”]leng=len(list1)           #len( )函数用来计算列表长度if leng>6:    z=list[0]else :    z=list[leng-1]print(z)程序执行后，输出的结果为： ________________。 三、操作题16．小张想要了解自己体育锻炼情况，他以数字的形式记录了自己每天进行的运动项目，如“1，1，2，3，2，3，2，3，3，1，1，4，3”。其中数字1代表篮球；2代表乒乓球；3代表慢跑，…。在记录了一段时间后，小张想知道自己在一段连续时间内最“喜爱”的两项体育运动是什么，以及连续进行的次数。对于这两项体育运动的要求是：（1）这两项运动在记录中必须连续出现，不能被其他运动打断，如“1，2，2，1，2”是一种可能的结果；“1，2，2，1，2，3”则不是可能的结果；（2）这两项运动在记录中出现的次数必须是最多的一种组合。运动记录1，1，2，3，2，3，2，3，3，1，1，4，3序号①②③④⑤两项运动1，1，22，3，2，3，2，3，33，3，1，11，1，44，3 从上表分析可知，小张在一段时间内连续进行的两项运动有5种不同组合，其中组合②中的两项运动持续时间最长，所以最“喜爱”的两项运动为2和3，共连续进行了7次。根据算法思想，编写VB程序实现如下功能：程序初始化时读取小张记录的一段时间内的所有运动项目，以逗号间隔显示在文本框Text1中，单击“寻找运动项目”按钮Command1，在标签Label4上显示最喜爱的两项运动编号，在文本框Text2中显示这两项运动最长持续的次数。程序运行界面如图所示。（1）若输入序列为“3，5，5，4，3，5，5，5，3，3，2，6”，最喜爱的两项运动连续进行的次数为________。（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。Dim a(1 To 100) As Integer, n As Integer Private Sub Form_Load()   '读取已有记录项目总数 n   '读取记录的每次运动项目存入数组 a，并在文本框 Text1 中显示，代码略End Sub Private Sub Command1_Click()   Dim x As Integer, y As Integer 'x,y 分别表示当前记录中两个不同项目   Dim c1 As Integer, c2 As Integer 'c1,c2 分别表示两个项目在当前统计过程中出现的次数   Dim i As Integer, j As Integer, m1 As Integer, m2 As Integer, ans As Integer   i = 1: j = 1    Do While j <= n And a(i) = a(j)       j = j + 1   Loop   x = a(i): y = a(j)   c1 =________     c2 = 1   ans = j - i + 1   Do While j < n       j = j + 1       If a(j) = x Then           c1 = c1 + 1       ElseIf a(j) = y Then           c2 = c2 + 1       Else           Do While_______               If a(i) = x Then c1 = c1 – 1 Else c2 = c2 - 1               i = i + 1           Loop           If________   Then               y = a(j)               c2 = 1           Else               x = a(j)               c1 = 1           End If       End If       If ans < j - i + 1 Then           ans = j - i + 1           m1 = x           m2 = y       End If   Loop   Label4.Caption = Str(m1) + "和" + Str(m2)   Text2.Text = Str(ans)End Sub
参考答案：1．D2．D3．B4．C5．D6．A7．AC8．D9．D10．D11．     顺序     选择     循环12．w13．014．201615．cake16．     6     j-i或j-1     c1>0 And c2>0     a（j-1）=x或c2=0或c1>0或c1>c2