发布时间 : 星期三 文章高一技术期末统考试卷 - 图文更新完毕开始阅读f99792d610a6f524cdbf8549
柯桥区2015学年第一学期期末教学质量检测
高一技术试卷
考生须知：
1.全卷满分为100分，考试时间90分钟。
2.请将学校、姓名等信息分别填写在答题纸的相应位置上，第I卷须用2B铅笔在答题纸相应位置
涂黑，第II卷答案须做在答题纸相应位置上。
第一部分 信息技术（共50分）
一、选择题（本大题共12小题，每小题2分，共24分。每小题列出的四个备选项中只有一个是符合题目要求的，不选、多选、错选均不得分）
1. 在VB中，如果a=1，b=-1，c=2，那么下列表达式值为真的是 A.（a A．长整数型 B．字符串型 C．单精度实数型 D．双精度实数型 3．VB语句Label1.Caption=\应用程序\用于在标签中显示字符串，该语句中的“Label1”是 A．属性名 B．类名 C．属性值 D．控件名 D．Abs( ) D．37 4. 在VB中能将字符串内容转换成数值的函数是 A．Val( ) B．Str( ) C．Chr( ) 5. 已知a=12，b=”-25”，则VB表达式Str(a) + b的值为 A．”12-25” B．-13 C．”-13” 6. 有如下VB程序段： Private Sub Command1_Click() Randomize a = Int(Rnd * 10) b = Int(Rnd * 10) x = a + b y = a - b c = Sqr(x) d = Sqr(y) Print Str(d) End Sub 1 调试时出现如下图所示的错误提示，产生此错误的语句是 第6题图 A．a = Int(Rnd * 10) B．x = a + b C．c = Sqr(x) D．d = Sqr(y) 7．VB标准函数Rnd的作用是返回一个大于等于0且小于1的随机数。只能产生大于等于10且小于等于100随机的VB表达式是 A. Int(Rnd*100) B. Int(Rnd*90+10) C. Int(Rnd*99+1) D. Int(Rnd*91+10) 8. 下列VB程序段的执行结果为 Private Sub Command1_Click() x = 20 y = -16 If Not x > 0 Then x = y - 3 Else y = x + 3 Print x - y; y - x End Sub A. 20 -16 B. 36 -36 C. -3 3 D. 20 20 9. 下列关于对象的描述中，错误的是 A．对象的属性用于描述对象的状态 B．对象的属性与方法可以有多个 C．对象的属性值只能在属性窗口中设置 D．对象事件的发生会驱动该对象相应事件处理过程的执行 10．在VB集成环境下编制了含一个窗体的VB应用程序并保存在磁盘上，运行测试后编译成可执行程序，整个过程中肯定会产生的文件类型是 A．*．vbp、*．exe、*．app B．*．vbp、*．frm、*．exe C．*．abp、*．exe、*．fom 2 D．*．fom、*．app、*．vbp 11．窗体装载事件过程可以对程序进行初始化。VB窗体装载事件过程的名称是 A．Command1_Click B．Form_Click C．Form_Load D．Form_DblClick 12．为了方便用户对智能手机的解锁操作，目前市场上高端智能手机加入了指纹解锁功能。指纹解锁的过程为：提取指纹图像与事先存储的指纹信息进行比对，如果两者相符则开锁，否则等待再次提取指纹图像??，下列流程图中能够正确描述上述开锁过程的是 相符 A． B． C． D. 二、非选择题（本大题共5小题，其中第13小题2分，第14小题2分，第15小题6分，第16小题8分，第17小题8分，共26分） 13．写出下列Visual Basic 表达式的值 (1)2016\\10 mod 10= ； (2)int(7.8+2.9)= ； 14．下列VB程序运行时，分别在文本框Text1、Text2中输入“11”、“5”，单击命令按钮Command1后，文本框Text3中显示的内容是 。 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a = Val(Text1.Text) b = Val(Text2.Text) c = (a + b + Sqr(a + b)) \\ 2 Text3.Text = Str(c) End Sub 结束 结束 结束 结束 开始 开始 开始 开始 提取指纹不指纹相提取指纹不指纹相提取指不指纹提取指指纹比开锁 符 开锁 符 开锁 开锁 3 15．利用if语句补充完整如下计算分段函数代码 ?x2?2x?1(x??1)?f(x)=?3x?1(?1?x?2) ??2x(x?2)??Private Sub Command1_Click() Dim x As Double, y As Double x = InputBox(\请输入一个数值\If x <= -1 Then y = x * x + 2 * x + 1 ElseIf ① Then y = ② Else y = ③ End If Print \End Sub 16. 运行下列VB程序，在文本框Text1中输入126,界面如第16题图所示。 第16 题图 单击“转换”按钮Command1后，标签Label2中显示的内容是 ① ，文本框Text2中显示的内容是 ② 。 Private Sub Command1_Click() Const x = \转换成二进制数为\ Dim y As Integer '用于存储输入的十进制自然数 Dim s As String '用于存储转换后的结果 Dim r As Integer 4