1、2016年上学年高二技术期中测试卷第一部分信息技术一、选择题部分（本大题共12小题，每小题2分，共30分。在每小题给出的四个选项中，只有一个符合题目要求）1.某算法的流程图结构如下图所示,其算法结构属于()A.顺序结构B.选择结构C.树形结构D.循环结构2.某算法流程图如图所示。当输入值为0时,该算法执行的步骤是()A.B.C.D.3.某算法的部分流程图如图所示，执行这部分流程后，变量d的值为（ ）A. 0B.1C.8D.9 4.某算法流程图如图所示： Ns=10?ss+iii+2s0:i4Y输出s、i执行该算法，输出变量s和变量i的值分别为A16 8B28 12C10 8D18 105.计算
2、某次考试的平均分的部分算法流程图如图所示,其中s用来记录已输入考生的人数,sum用来计算分数之和,avg用来存储平均分,输入-1时表示输入结束。图中处应填入的是()A.sumsum+xB.ss+xC.sumsum+sD.avgavg+x6.在VB中,语句label1.caption=white执行后,标签label1的()A.文字颜色变为白色B.文字内容变为whiteC.背景变为白色D.名称变为white7.一个VB程序的运行界面如图所示。下列说法不正确的是()A.文本框Text1的Caption属性值为“H”B.标签Label1的Caption属性值为“输入字符”C.命令按钮Command1
3、的Caption属性值为“查询”D.窗体的Caption属性值为“查询字符ASCII码”8.有如下程序段：Dim i As Integer, ans As IntegerDim a(1 To 10) As Integersum = 0For i = 1 To 10 a(i) = i 2 If a(i) Mod 3 = 0 Then ans = ans + a(i)Next iText1.Text = Str(ans)该程序段运行后，文本框Text1中显示的内容是（ ）A.55B. 126C. 259D. 3859.下列能作为VB变量名的是()A.MODB.a1C.3FD.no_110.观察如下
4、程序,变量x的数据类型应定义为()Dim x As x=Mid(computer,1,3)A.IntegerB.SingleC.LongD.String11.设一个三位数是n,它的个位数字为a,十位数字为b,百位数字为c,则b的Visual Basic表达式是 ()A.n-a-cB.(n-a* 100-c)/10C.Int(n/10)-Int(n/100) *10D.n-Int(n/100)-Int(n/10)12.下列VB表达式的值等于34的是()A.Abs(-35)+1B.Len(33)+1C.Mid(1234567,3,4)D.Int(33.7)+113设a=5,b=10,则执行c=In
5、t(b-a) * Rnd+a)+1后,c值的范围是()A.510B.69C.610D.5914.某VB代码如下:a=Computerb=Mid(a,2,1)c=Asc(b)d=Chr(c+1)程序运行后,d的值是()A.pB.DC.CD.o15.有如下VB事件处理过程:Private Sub Command1_Click( )Dim i As IntegerList1.ClearFor i=1 To 10If i Mod 2=0 ThenList1.Additem iEnd IfNext iEnd Sub该事件被执行后,在列表框List1中显示的数据是() A.12345678910B.135
6、79C.246810D.10987654321二、填空题部分16.计算圆周率的近似公式是:=1-+(-1)n-1。某人编写下面的程序用此公式计算并输出的近似值,请在划线处填上合适的VB语句。Private Sub Command1_Click( )pi=1sign=1n=20 000For k=sign= pi=pi+sign/kNext kPrint pi*4End Sub17.百元百鸡问题:假如公鸡5元一只,母鸡3元一只,3只小鸡一元,现在100元,可买公鸡、母鸡、小鸡各几只?用VB程序解决百元百鸡问题,程序如下:For i=1 To 20For j=1 To 33k=If i+j+k=1
7、00 Then Print 公鸡+Str(i) +母鸡+Str(j) +小鸡+Str(k)Next jNext i(1)该程序采用的算法是(选填“枚举算法”或“解析算法”)。(2)为实现程序功能,在程序画线处应填写的表达式是。18. 编写VB程序，实现如下功能：在文本框Text1中按“YYYY-MM-DD”（年4位，月2位，日2位）格式输入某一日期，单击“推算”按钮Command1，在文本框Text2中输出该日期对应的星期，运行界面如下第14题图所示。第14题图（1）要使标签对象Label1中显示的文本“date”修改为“日期”,可在其属性窗口中将_属性的属性值改“日期”。（2）为实现上述功能
8、，请在划线处填入合适的代码。Private Sub Command1_Click() Dim s As String 变量s存储输入的日期 Dim s1 As String, s2 As String, s3 As String Dim y As Integer, y2 As Integer, m As Integer, d As Integer, n As Integer s1 = 622503514624 s2 = 512503514624 s3 = 日一二三四五六 s = y = Val(Mid(s, 1, 4) m = Val(Mid(s, 6, 2) d = Val(Mid(s, 9
9、, 2) y2 = y Mod 100 n = Int(y2 / 4) + y2 + d If y Mod 4 = 0 And y Mod 100 0 Or y Mod 400 = 0 Then 判断是否为闰年 n = n + Val(Mid(s2, m, 1) Else n = n + Val(Mid(s1, m, 1) End If n = n Mod 7 + 1 Text2.Text = Mid(s3, n, 1)End Sub（3）如果输入日期“2017-02-01”，则输出结果是星期 。19.编写VB程序，寻找第1位为2，第5位为5，数字长度为5的完全平方数，并统计个数。要求：单击“
10、寻找”按钮Command1，将符合要求的五位数显示在列表框List1中，统计个数显示在标签Label2中，界面如第14题图所示。实现上述功能的VB程序代码如下：第14题图Private Sub Command1_Click() Dim i As Integer, n As Integer Dim x As Integer n = 0 For i = 0 To 999 x = If Int(Sqr(x) = Sqr(x) Then List1.AddItem End If Next i Label2.Caption = 共有： + Str(n) + 个End Sub（1）在设计应用程序界面时，能
11、在窗体上添加标签Label2的操作是 （填编号：单击工具箱中的标签控件 双击工具箱中的标签控件）（2）为实现上述功能，划线处应填入的代码为 ；划线处应填入的代码为 ；划线处应填入的代码为 。第一部分 信息技术 答题卷班级 姓名 学号一、 选择题(本大题共12小题,每小题2分,共24分。 在每小题给出的四个选项中,只有一个符合题目要求) 123456789101112131415二、 非选择题(本大题共4小题,其中第16小题4分,第17小题4分,第18小题5分,第19小题7分) 16. （2分） (2分) 17. (2分) (2分) 18. (1分) (2分) (2分) 19. （1） (1分) （2） (2分) (2分) (2分) 注：代码填写不区分大小写版权所有：高考资源网()
