初中信息技术九年级上学期期末试卷（4）

信息技术（九年级上） 试题卷 第一部分：笔试试题（60分） 一、选择题（每题3分，共30分） 1、下列不属于计算机语言的高级语言的是 （ ） A、BASIC语言 B、C语言 C、PhotoShop D、.Java 2、VB程序在保存工程的时候生成的工程文件后缀名是 （ ） A、.frm B、.vbp C、.exe D、pdf 3、想要改变对象的文字颜色，我们可以修改以下哪个属性值来实现 （ ） A、BackColor B、BackStyle C、FontSize D、FonrColor 4、下列对象不具有Caption属性的是 （ ） A、Label B、Form C、Command D、Text 5、下列VB赋值语句中不正确的的是 （ ） A、Text1.Text = Str(x) B、x =Val（text1.text）C、a = - b D、Label1.Caption=“你好” 6、由“For i=1 To 10 Step 2”决定的循环结构被执行的次数是 （ ） A、3 B、4 C、5 D、6 7、下列常用函数中表示求x的算数平方根的是 （ ） A、val（x） B、str（x） C、sqr（x） D、cint（x） 8、在for--next 循环结构的语句中的循环变量可以是 （ ） A、integer B、single C、string D、boolean 9、我们在优化“海伦公式求三角形面积”程序，判断a、b、c三边能否构成三角形条件是：a+b>c，b+c>a,a+c>b三个条件同事满足，在VB程序中表示该条件的逻辑表达式是 （ ） A、a+b>c，b+c>a, a+c>b B、（a+b）>c and（b+c）>a and（a+c）>b C、（a+b）>c or（b+c）>a or（a+c）>b D、a+b>c or b+c >a or a+c >b 10、以下VB程序段运行后，x的值是 （ ） Dim x As Interger X = 1 Do While x < 50 x = ( x + 1 )*( x + 2 ) Loop A、50 B、56 C、72 D、6 二、综合题（1每空2分，2每空5分，3每空4分，共30分） ① ② ③ ④ ⑤ ⑥ ⑦ ⑧ ⑨ 1、填空⑴计算机程序一般可以分为三种结构：顺序结构、 ① 结构和 ② 结构。 ⑵自从1946年出现第一台电子计算机以来，计算机技术以惊人速度发展着。计算机语言也从 ③ ，发展到 ④ ，再发展到高级语言。 2、完成流程图 3、窗体上有四个文本框Text1控件数组，两个按钮Command1和Command2。程序功能是解一个一元二次方程ax2+bx+c=0（a≠0）。程序运行后如图所示。给定的程序不完整，将程序补充完整。 Private Sub Command1_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" End Sub Private Sub Command2_Click() Dim a As Single, b As Single, c As Single Dim x1 As Single, x2 As Single, det As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) det = ⑦ ‘（根的判别式b2-4ac） Select Case det Case Is > 0 x1 = (-b + Sqr(det)) / (2 * a) x2 = (-b - Sqr(det)) / (2 * a) Text4.Text = "方程有两个实数根" & " x=" & Str(x1) & " x=" & Str(x2) Case Is = 0 Text4.Text = "方程有两个相等的实数根 x=" & Str(x1) Case ⑧ Text4.Text = "此方程无实数根" ⑨ End Sub 第二部分：上机操作题（40分） 用vb程序实现：过年的时候小李打算每个月都把一部分零花钱存起来，第一个月他存了10元，他准备以后每个月都比上个月多存2元。请问当小明的存钱达到1000元以上要几个月？ 笔试题 一、选择题（每题3分，共30分） 1 C 2 B 3 D 4 D 5 D 6 C 7 C 8 A 9 B 10 B 二、综合题（1每空2分，2每空5分，3每空4分，共30分） ①分支 ②循环 ③机器 ④汇编 ⑤i≤n ⑥i ← i+1 ⑦b*b-4*a*c ⑧else （或Is<0） ⑨end select 操作题 Private Sub Command1_Click() Dim x As Integer, n As Integer, i As Integer n = 10 i = 0 x = 0 Do While x < 1000 x = x + n n = n + 2 i = i + 1 Loop Print i & "个月" End Sub 运行结果： 28个月 命题说明 一、命题意图说明 在本次命题过程中始终遵循“导向性、基础性、规范性、创新性”四个原则，把握好试卷分值 ... ...