1、浙江省宁波市效实中学2020-2021学年高二信息技术上学期期中试题第一部分 信息技术(共 35 分)一、选择题（本大题共9小题，每题2分，共18分。在每小题给出的四个选项中，只有一个是符合题目要求的。）1学校要举行运动会，请你设计一个能够对运动员分数自动排序的软件，如果要设计此软件，以下最好的方法和步骤是（ ）。A分析问题，编写程序，设计算法，调试程序B设计算法，编写程序，提出问题，调试程序C分析问题，设计算法，编写程序，调试程序D设计算法，提出问题，编写程序，调试程序2计算两个并联电阻总电阻值的算法如下：输入两电阻R1、R2 的值计算总电阻 R=输出总电阻R上述算法属于（ ）。A枚举算法
2、B解析算法 C排序算法 D查找算法3某算法的部分流程图如右图所示，执行该流程图，下列描述正确的是( )。 A“ s s + x ” 执行了4次 B“ s 10? ”执行了4次C执行算法后，s的值为15，x的值为6D执行算法后，s的值为10，x的值为54下列能作为Visual Basic变量名的是（ ）。A. x-y B.a#1 C.2day D.num_25下列VB表达式中，值最小的是（ ）。A. Abs(-3) + Len(NBXIAOSHI)B. Val(Mid(Ningbo2222, 8, 1)C. Int(Sqr(36) + 5) 2D. 102 Mod 100 3 2 6在VB中，如
3、果用a、b、c表示三角形的三条边长，那么不能构成三角形的条件是（ ）。A. a+b=c And b+c=a And c+ac Or b+ca Or c+ab)C. a+b=c Or b+c=a Or c+ac And b+ca And c+ab7如图所示的程序设计界面中，若要利用窗体装载事件过程对程序进行初始化,图中所选中的窗体对应的装载事件过程应该是（ ）。A. F1_ Load B. Form1_Load C. Form_Load D. Form1_Show7题-1图8在如下VisualBasic程序段中，要使循环体tt*j执行5次，循环变量的终值（处）可以是( )。For j1 To S
4、tep 2 tt*jNext jA5 B0 C5 D109下列能随机产生三位正整数的VB表达式是（ ）。A.Int(Rnd*899)+100 B. Int(Rnd*900)+100 C.Int(Rnd*1000 ) D. Int(Rnd*999) 二、填空题（本题共3小题，共17分。）10.（佩奇爱数学）小猪佩奇最近特别喜欢数学，他发现一个数字“54748”非常神奇，它各位数字的5次方之和等于该数本身，即 ，佩奇不知道类似的数字还有几个，于是他编写了一个VB程序，希望找出所有的这类数字。VB代码如下：10题-1图Private Sub wjxs_Click() Dim i As Integer
5、 Dim a As Integer, b As Integer Dim c As Integer, d As Integer Dim e As Integer Dim n As Integer List1.clear For i = 10000 To 99999 a = i 10000 万位数字 b = i 1000 Mod 10 千位数字 c = i 100 Mod 10 百位数字 d = i 10 Mod 10 十位数字 e = i Mod 10 个位数字 If a 5 + b 5 + c 5 + d 5 + e 5 = i Then n = n + 1 List1.AddItem Str
6、(i) 在列表框中输出 End If Next i Label1.Caption = 共有 + Str(n) + 个五角星数 End Sub（1）代码”List1.Clear”中的”Clear”是_。（A.对象名 B.属性名 C.方法名）（2）根据代码，“查找”按钮的控件名称是_。（3）运行程序，出现如下错误，需要修改下列_处的语句。A. B. C. D.10题-2图（4）与语句“c = i 100 Mod 10”功能相同的代码是_。A. c = (i Mod 1000)100B. c = (i-10000*a-1000*b)/100C. c = (i Mod 1000-10*d-e)1001
7、1.（消失的pigs）用VB编写程序实现：从某一字符串中删除指定的字符串，并将处理后的字符串重新输出。程序界面如第11题-1图所示，在文本框Text1中输入原始字符串，在文本框Text2中输入需要删除的字符串，单击“删除字符串”按钮Command1后，在文本框Text3中输出处理后的结果。 11题-1图（1）在设计应用程序界面时，应使用第11题-2图所示“控件工具箱”中的_（填写相应编号）添加按钮。11题-2图（2）窗体按钮上显示的文字“删除字符串”是需要修改按钮Command1的_属性值修改为“删除字符串”。（3）为实现上述功能，请在划线处填入合适的代码。Private Sub Comman
8、d1_Click() Dim s As Integer,r As Integer,c As Integer Dim source As String,delstr As String,ch As String c = 0:i = 1 source = Text1.Text：delstr = Text2.Text s = Len(source) r = Len(delstr) Do While s-i+1 = r ch = Mid(source, i, r) If ch = delstr Then source = Mid(source,1, i-1) +_ s = Len(source) _
9、Elsei = i + 1 End If Loop Label4.Caption = 共删除： + Str(c) + 处 Text3.Text = source End Sub12.（聪明的猪）某屠宰厂每天决定宰杀若干头猪（1=n=100），把每天待宰杀的猪按顺序编号后排成一排，每次将排在单号位置的猪杀掉；然后把剩下的猪按上一次相对的位置排好，重新编号，再次将排在单号位置的猪杀掉；以后每次重复前面的过程，直到仅剩下一头猪时停止宰杀，将这头幸运的猪放回；有一头猪聪明的猪，每天都能躲避被屠宰。利用VB编写一个程序，根据每天杀猪的数量，求出当天这头聪明的猪的原始编号。VB程序界面设计如下：12题-1
10、图控件属性设置如下：对象属性属性值说明Form1Caption幸运的猪窗体的标题Label1Caption当天要杀猪的数量标签显示的文字Label2Caption幸运猪的原始编号标签显示的文字Text1Text空白文本框的文本Text2Text空白文本框的文本Image1PicturePig.gif显示的图片Command1Caption计算按钮显示的文字（1）完成以上功能的程序代码如下，请在划线处填入正确的语句。Private Sub Command1_Click() Dim sum, i, pos, last, count As Integer Dim a(1 To 100) As Int
11、eger _ For i = 1 To sum a(i) = 1 初始状态为1表示还没被杀掉 Next i count=0 Do while _ 要杀掉sum-1头猪 Pos=0 For i = 1 To sum If a(i) 0 Then pos = pos + 1 pos表示报数 If _ Then报到奇数的猪被屠宰 count = count 1 a(i) = 0 End If End If Next i Loop For i = 1 To sum If a(i) = 1 Then Text2.Text = Str(i) End If Next i End Sub（2）屠宰场每天有10
12、0头猪被屠宰，这头聪明的猪，需要初始排在_号位置上才能避免被屠宰掉。（3）还是这100头猪，如果屠宰场改变杀猪规则，第一次杀奇数，第二次杀偶数，第三次杀奇数，第四次杀偶数，依次轮流，100头猪中幸运的猪的原始编号是_。二 二 学年度第 一 学 期宁波效实中学 高二技术期中参考答案一、选择题（本大题共9小题，每题2分内，共18分。在每小题给出的四个选项中，只有一个是符合题目要求的。）123456789CBCDDCCDB第一部分 信息技术（共35分）二、非选择题（本题共3小题，共17分。）10.(1) C (1分)（2）wjxs (1分) (3) A (1分) (4) A (2分)11.(1) 4 (1分)（2）Caption (1分) (3) Mid(source, i r, s)或 Mid(source, i r) (2分) c=c+1 (1分)12.(1) sum=Val(Text1.text) (1分) count+1sum (2分) pos Mod 2=1 (2分) (2) 64 (1分) (3) 86 (1分)
