浙江省慈溪市高二信息技术上学期期中联考试题(无答案)

2016年上学年高二技术期中测试卷第一部分信息技术一、选择题部分（本大题共12小题，每小题2分，共30分。

在每小题给出的四个选项中，只有一个符合题目要求）1.某算法的流程图结构如下图所示,其算法结构属于( )A.顺序结构B.选择结构C.树形结构D.循环结构2.某算法流程图如图所示。

当输入值为0时,该算法执行的步骤是( )A.①②③④B.①②③⑤C.①②④⑤D.①②③④⑤3.某算法的部分流程图如图所示，执行这部分流程后，变量d的值为（）A. 0B.1C.8D.94.某算法流程图如图所示：执行该算法，输出变量s 和变量i 的值分别为 A ．16 8 B ．28 12 C ．10 8D ．18 105.计算某次考试的平均分的部分算法流程图如图所示,其中s 用来记录已输入考生的人数,sum 用来计算分数之和,avg 用来存储平均分,输入-1时表示输入结束。

Ns<=10? s ←s+i i ←i+2s ←0:i ←4Y输出s 、i图中①处应填入的是( )A.sum←sum+xB.s←s+xC.sum←sum+sD.avg←avg+x6.在VB中,语句label1.capt ion=″white″执行后,标签label1的( )A.文字颜色变为白色B.文字内容变为″white″C.背景变为白色D.名称变为″white″7.一个VB程序的运行界面如图所示。

下列说法不正确的是( )A.文本框Text1的Caption属性值为“H”B.标签Label1的Caption属性值为“输入字符”C.命令按钮Command1的Caption属性值为“查询”D.窗体的Caption属性值为“查询字符ASCII码”8.有如下程序段：Dim i As Integer, ans As IntegerDim a(1 To 10) As Integersum = 0For i = 1 To 10a(i) = i ^2If a(i) Mod 3 = 0 Then ans = ans + a(i)Next iText1.Text = Str(ans)该程序段运行后，文本框Text1中显示的内容是（）A.55B. 126C. 259D. 3859.下列能作为VB变量名的是( )A.MODB.a@1C.3FD.no_110.观察如下程序,变量x的数据类型应定义为( )Dim x Asx=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=Int((b-a) * Rnd+a)+1后,c值的范围是( ) A.5~10 B.6~9 C.6~10 D.5~914.某VB代码如下:a=″Computer″b=Mid(a,2,1)c=As c(b)d=Chr(c+1)程序运行后,d的值是( )A.″p″B.″D″C.″C″D.″o″15.有如下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. 1 2 3 4 56 7 8 9 10B .1 3 5 7 9C. 2 4 6 8 10D.10 9 8 7 6 5 4 3 2 1二、填空题部分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=100 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）为实现上述功能，请在划线处填入合适的代码。

Private Sub Command1_Click()Dim s As String '变量s存储输入的日期Dim s1 As String, s2 As String, s3 As StringDim y As Integer, y2 As Integer, m As Integer, d As Integer, n As Integers1 = "622503514624"s2 = "512503514624"s3 = "日一二三四五六"s = ②y = Val(Mid(s, 1, 4))m = Val(Mid(s, 6, 2))d = Val(Mid(s, 9, 2))y2 = y Mod 100n = Int(y2 / 4) + y2 + dIf y Mod 4 = 0 And y Mod 100 <> 0 Or y Mod 400 = 0 Then '判断是否为闰年n = n + Val(Mid(s2, m, 1))Elsen = n + Val(Mid(s1, m, 1))End Ifn = n Mod 7 + 1Text2.Text = Mid(s3, n, 1)End Sub（3）如果输入日期“2017-02-01”，则输出结果是星期③。

19.编写VB程序，寻找第1位为2，第5位为5，数字长度为5的完全平方数，并统计个数。

要求：单击“寻找”按钮Command1，将符合要求的五位数显示在列表框List1中，统计个数显示在标签Label2中，界面如第14题图所示。

实现上述功能的VB程序代码如下：Private Sub Command1_Click()Dim i As In teger, n As IntegerDim x As Integern = 0For i = 0 To 999x = ①If Int(Sqr(x)) = Sqr(x) Then第14题图List1.AddItem ②③End IfNext iLabel2.Caption = "共有：" + Str(n) + "个"End Sub（1）在设计应用程序界面时，能在窗体上添加标签Label2的操作是（填编号：①单击工具箱中的标签控件②双击工具箱中的标签控件）（2）为实现上述功能，划线①处应填入的代码为①；划线②处应填入的代码为②；划线③处应填入的代码为③。

第一部分信息技术答题卷班级姓名学号一、选择题(本大题共12小题,每小题2分,共24分。

在每小题给出的四个选项中,只有一个符合题目要求)1 2 3 4 5 6 7 8 9 1011 12 13 14 15二、非选择题(本大题共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分)注：代码填写不区分大小写。