1、台州市书生中学 2018学年第一学期 高二期中信息试卷 （满分：50分 考试时间：45 分钟） 2018.11一、选择题（本大题共12小题，每小题2分，共24分。在每小题给出的四个选项中，只有一个符合题目要求）1. 下列关于信息的说法正确的是（ ）A. 信息自古就有，但信息技术是近代才出现的B. 信息具有共享性，因此载体的破坏不会导致信息的丢失C. 信息具有时效性，时间越长信息的价值就越低D. 在一定程度上，社会的发展速度取决于人们感知信息、利用信息的广度和深度2VB中，能够正确表示代数式的是 ( )Ax3+1/abs(x)+sqr(x) B(x3+1)/abs(x)+sqr(x)Cx3+1/
2、(abs(x)+sqr(x) D(x3+1)/(abs(x)+sqr(x)3. 某VB程序设计界面如第6题图所示，下列说法正确的是（ ）第3题 图 工程文件是“工程1 .vbp” 将text属性值删除，图中处将不会显示“ext1” 该窗体中共有3个对象 窗体名称是“整除问题” A. B. 第4题图C. D. 4某算法的部分流程图如图所示，执行这部分流程后，变量x和Flag的值分别是A2，True B3，True C2，False D3，False5.某算法流程图如第5题图所示， YYNYr 0 ?m=n : n= r r=m mod n m=96 , n=36输出nr=m mod n第5题图执
3、行该算法，输出n的结果是（ ）A.4 B.8 C.12 D.18a0,b1,c0aa+1bb*acc+ba3?YN第6题图6.某算法的部分流程图如第6题图所示，执行这部分流程后，变量a、b、c的值分别是( )A3 6 9 B4 6 9 C3 24 33 D4 24 33 7有如下Visual Basic程序段：S=0：k=1Dowhilek =3 Then s=skk=k1Loop该程序段运行后，变量s和k的值分别是（ ）A3 , 3 B5,4C3,5D4，5第8题图6 8.孙子算经中提出“物不知其数”的问题，此数以3除余2，以5除余3，以7除余2。下列VB程序用来求指定范围内满足该条件的自然
4、数及其个数。程序界面如第8题图所示，VB程序段如下：Private Sub Command1_Click() k = 0 用来计数 Max = 600 指定范围600以内 n = 9 Do While n = Max Loop Label1.Caption = Str(Max) & 范围内满足问题的数有 & Str(k) & 个End Sub方框中的代码由以下五部分组成： n=n+7 k = k + 1 List1.AddItem Str(n) End If If n Mod 3 = 2 And n Mod 5 = 3 Then代码顺序正确的选项是（ ）A. B. C. D. 9.在VB中，如
5、果定义变量X的值为4，变量Y的值为3，则下列哪个表达式的值为真? （ ）A. XY=X mod YB. Int(X/Y)=Abs(X/Y)C.Sqr(X2)XD.X+Y=Str(X)+Str(Y)10用 WinHex 软件观察字符内码如第 10 题图所示，汉字“秋”的国标码是（汉字国标码汉字内码8080H） 第 7 题图AC7EFHB577FHC5C6CHD476FH11【加试题】用UltraEdit软件观察“DIY创新活动2”这几个字的内码，如图所示：下列说法正确的是（ ）A图中字符“”的内码为：“C4”B图中“创新活动2”内码共12字节C图中“2”使用的是全角字符，占2个字节D由图中内码可
6、以推测“活动3”的内码为“BB EE B6 AF 33”12.在“画图”程序中绘制一张分辨率为1200*800的BMP格式宣传画，发现图像大小不合适，对图像进行了如第10题图所示操作，按BMP格式保存后图像的存储容量是703kB。则该图像的每个像素需要的二进制位数是A. 4 B. 8 C. 24 D. 32二、非选择题（本大题共4小题，其中第13题5分，第14题、第16题每题4分，第15题6分，第17题每题7分，共26分）13.一个大于1的自然数，除了1和它本身外，不能被其他自然数整除的数称为质数又称素数，下列程序用来判断文本框1中输入的数是否素数，请完善以下三处代码。Dim i As Int
7、eger, m As Integer ,flag as Booleanm = flag= For i = 2 To int(sqr(m) If Then flag=falseExit For End ifNext i If flag=true Then Text2.Text = str(m) +是素数 Else Text2.Text = str(m) +不是素数 End if14.对称字符串的特征是从左到右读和从右到左读是完全一样的。如“abba”是对称的，“abcba”也是对称的。判断字符串是否对称的VB程序段如下, 请完善以下两处代码s=Text1.Textn=Len(s) s是待判断的字
8、符串k=0:j=nFor i=1 to n2c1=Mid(s,i,1) c2=Mid(s,j,1)If c1 c2 Then k = k+1: Exit Forj= Next iIf Then Label1.Caption=对称 Else Label1.Caption=不对称15.利用格里高利公式 求 ，直到最后一项的值小于0.0001为止，输出的值。Private Sub Command1_Click() Dim Pi As Single, t As Single Dim n As Integer, s As Integer Pi = 0 t = 1: n = 1:s =1 Do While
9、 Abs(t) = 0.0001 Pi = Pi + s * 1 / n n = s= t = s / n Loop Text2.Text = End Sub16.在文本框text1中输入一个8位数，单击统计按钮统计各数字出现的个数，并输出出现次数最多的那个。运行效果如第16题图所示：第16题 图（1）在设计程序界面时，要清空文本框中的显示内容，应修改该文本框中的 属性。（2）实现上述功能的VB程序如下，请在划线处填入合适代码。Private Sub Command1_Click()Dim n As Long, m As IntegerDim a(0 To 9) As Integern = V
10、al(Text1.Text)List1.ClearFor i = 0 To 9 a(i) = 0Next iDo While n 0 t = n Mod 10 a(t) = a(t) + 1 Loopm = a(0)For i = 1 To 9 If a(i) m Then m = a(i): k = i List1.AddItem Str(i) & ： & Str(a(i) & 个NextLabel2.Caption = 出现最多的数字是： + End Sub第17题 图17.小李父母开了一家农家乐，顾客可以到桔园自摘桔子，收费标准是门票每人20元，采摘的桔子每斤10元，付费时若能完成小游戏
11、则有优惠。用VB软件设计的自摘收费程序，功能如下：在文本框Textl中输入自摘的人数n，在文本框Text2中输入摘得桔子重量w。界面右上方是小游戏部分，程序在文本框Text3显示随机产生的桔子层数m，根据图中所示的堆桔子方法（第1层1个；第2层4个；第3层9个），请顾客计算出m层桔子总数s，输入到文本框Text4中，单击“是否优惠计算”按钮Command1，就会在标签Label4中输出最后的费用f，并在标签Label7中给出提示是否“优惠后的费用”。运行效果如第17题图所示： (1)自摘收费程序所用的算法是 （填：解析算法/枚举算法）。(2)为实现上述功能，请在划线和处填入合适的代码。Dim
12、m As IntegerPrivate Sub Command1_Click() Dim n As Integer, s As Integer Dim w As Single, f As Singlen = Val(Text1.Text) 输入大人人数nw = Val(Text2.Text) 输入重量wf = 20 * n + 10 * w 计算无优惠的费用fs = 0For i = 1 To m 计算桔子总数 s = s + i * iNext iIf s= Then 判断是否拿到优惠计算费用 f = f * 0.5 + s * 0.3 计算优惠后的费用 Label7.Caption = 恭喜你，这是优惠后的费用！Else Label7.Caption = 很遗憾，你没有算对哦！End IfLabel4.Caption = Str(f) 输出最后的费用fEnd SubPrivate Sub Form_Load()Randomizem = 随机产生15层及以内的桔子层数（0不算）Text3.Text = Str(m)End Sub（3）若3位顾客摘得5斤桔子，游戏中需要计算出3层桔子的总个数，但是他们没有算对桔子个数，在text4中输入了16，那么这3位顾客需付总费用 元。
