1、上海市重点高一信息科技上学期期末考试试题 第一学期高一信息科技期终考试考前必读： 1、请先在答题卡和答题纸上写上姓名、班级、学号，否则不得分；2、本试卷内容为计算机和算法、程序设计两部分，选择题每题2分（第21题到36题为每题3分），编程为12分，共100分，考试时间为90分钟。3、选择题的答案涂在答题卡上，编程题的答案写在答题纸上。4、本试卷所有程序的运行环境为：Windows XP、Visual Basic6.0企业版或以上。5、本次考试可能用到的运算符和函数如下：运算符或函数名功能例Mod取余运算符5 mod 3 = 2；9 mod 3 = 0；3 mod 5 = 3整除运算符5 3 =
2、1；35=0Int(x)向下取x的整数Int（3.7）=3；Int（-3.7）= -4Abs(x)返回x的绝对值Abs（-2）=2Rnd()产生一个小于1大于等于0的随机小数Sqr(x)返回x的算术平方根Sqr(4)=2Sgn(x)x0返回1，x0,那么转 输出最大公约数mA、分支和循环结构 B、顺序、分支和循环结构 C、顺序和循环结构 D、顺序和分支结构 13、如果程序中需要用到的一个数的数值范围是-327680，考虑节省内存空间，应该把存储变量声明为（）。A、 Integer B、 Byte C、 Long D、 Double14、在VB中，以下声明变量的语句中，正确的（）。A、Dim a
3、 as Integer，Dim b as IntegerB、Dim a as Integer b as IntegerC、a as Integer，b as IntegerD、Dim a, b as Long15、对 Dim a(10) As Boolean ，以下说法正确的是（）。A) 定义了一个名为a的数组，共有10个元素，每个元素为整型 B) 定义了一个名为a的数组，共有10个元素，每个元素为布尔型C) 定义了一个名为a的数组，共有11个元素，每个元素为整型 D) 定义了一个名为a的数组，共有11个元素，每个元素为布尔型16、设a2，b=3，c4，d=5，下列表达式的值是（） 。 Not
4、 a=c Or 4*c=b2 And ba+cA、 -1 B、 Flase C、 True D、 017、设a=3，b=-4，下列运算结果中，值最大的是（）。A、2*a+b B、Abs(b+a/b) C、Int(a+b) D、Sgn(Sqr(a2+b2)18、数学表达式 ，在计算机程序设计语言中一般表示为（）。A、（2*y）/(a*x+b*y)/（a*x-b*y） B、2*y/(a*x+b*y)*（a*x-b*y） C、2*y/(a*x+b*y)*（a*x-b*y）) D、(2*y)/(a*x+b*y)*（a*x-b*y）19、由For i=1 To 1 Step -2决定的循环结构，其循环体
5、将被执行（）次。A、0 B、 1 C、 2 D、 320、某同学在设计一个VB程序过程中，想保存程序，但发现鼠标有故障，最快捷的保存方法是（）。A、按快捷键Alt+F4，选“否”，再保存。 B、按快捷键Ctrl+Q，再保存。C、按快捷键Ctrl+Break，再按快捷Alt+Q，选“是”，保存。D、按快捷键Alt+E，再保存。2128为读流程图写结果（每题3分）21、 输出结果为（）。A、11 20 6 B、6 11 20C、6 5 4 D、6 9 1122、输出结果为（）。A、10 B、16 C、26 D、623、该算法的功能是（ ）。A、交换a、b两变量值B、求a、b两变量的差的绝对值C、输
6、出两个都是a的值D、输出两个都是b的值24、当依次输入12、-4、0、2、-8、3 ，输出结果是 。A、 3 3 B、 4 2C、 2 3 D、 1 525、以下流程图的功能是（ ）。A、从小到大依次输出三个数B、从大到小依次输出三个数C、按中、大、小依次输出三个数D、按中、小、大依次输出三个数26、以下流程图的功能是：输入100个数，求平均值，图中（ ）框有错（仅有一处错误）。A、 1 B、 2 C、 3 D、 427、上图是某算法的部分流程图，要使循环体s s+j 执行5次，空白处应填（ ）。A、-2 B、1 C、-3 D、628、该算法的功能是（ ）。A、找出三个数中的最大数B、找出三个
7、数中的最小数C、找出三个数中的中间数D、找出三个数中的第一个数2936为读程序写结果（每题3分）29、下面程序段：M=12N=8IF M Mod N 0 Then T=M Mod NM=NN=TEnd IfPrint N执行此程序代码后，结果为（ ）。A、 3 B、 4 C、 5 D、 630、有如下程序：a=800b=1000x= InputBox(Input:) If xa Then y=0Else If x=3 Then s=s+k End IfNext kPrint sPrint s执行此程序代码后，结果为（ ）。A、 1 B、2 C、 10 D、332、有如下程序：n=8s=0Do
8、While n0 s=s + n n=n-1Loop Print s程序运行后，输出结果为（ ）。 A、 8 B、 35 C、 0 D、3633、下面程序段：Dim I As Integer, j As Integer ,k As IntegerI=1k=5Do While I=k*j I=I+1Loop Print I执行结果是（ ）。 A、 0 B、 1 C、 10 D、5 34、下面程执行后，j 的值为（ ）。I=2J=4Do j=j+1 I=I+1Loop Until I Max Then Max = a(i) Else Min = a(i) End IfNextPrint Min程序
9、运行后，键盘依次输入123，-120，209，-1，0，-999，997，996，998，999，最后Min的值为（ ）。A、 -32768 B、 -999 C、 996 D、 0二、编程（第1题6分，第2题6分，共12分）1、一张单据上有一个5位数的编号，万位数是1，千位数时4，十位数是7，个位数和百位数已经模糊不清。该5位数是57或67的倍数，找出所有满足这些条件的5位数并输出。下面是实现该功能的流程图和代码，请在空白处填上适当语句，使之可以完成指定的功能。 提示：可用j枚举个位数，i枚举百位数！代码：Dim i As Integer ,j As Integerj = 0Do While
10、j 10 i = 0 Do While i 10 n = （2） If （3） Then Print n End If i = i + 1 Loop j = j + 1 Loop2、设计一个摇奖程序，界面如下图所示： 要求：程序运行后，单击窗体，会弹出对话框（见下图），输入人数后，能随机产生10个互不相同的中奖学号（假设，学号从1号开始），下面是实现该功能的程序，请你在 处填上适当语句，使之完整 。Private Sub Form_Click()Dim a(1 To 10) As IntegerDim i As Integer, j As Integer, q As Integer, n As
11、 IntegerRandomizen = Val(InputBox(请输入班级人数：, 摇奖程序)Print = Print |高一（18）班中奖同学名单|Print =Printa(1) = Int(Rnd * n) + 1For i = 2 To 10 For j = （4） Do q = Int(Rnd * n) + 1 Loop Until （5） Next j （6） Next iPrintFor i = 1 To 10 Print Str(a(i) & 号 & ;Next iPrintPrintPrint 恭喜以上10位同学！End Sub上海市某重点高中2011-2012学年度第
12、一学期高一信息科技期终考试参考答案一、选择题（每小题2分，第18题到29题为每题3分，共70分）1、 B 2、 A 3、 D 4、 B 5、 D 6、 A 7、 D 8、 A 9、 A 10、 B 11、 A 12、 C 13、 A 14、 D 15、 D 16、 D 17、 B 18、 C 19、 B 20、 C 21、 B 22、 B 23、 A 24、 A 25、 A 26、 C 27、 A 28、 C 29、 B 30、 D 31、 D 32、 D 33、 B 34、 D 35、 C 36、 C 二、编程（共12分）第1题1、 n=14070+i*100+j 2 分2、 n=14070+i*100+j 2 分3、 n Mod 57=0 Or n Mod 67=0 2 分第2题4、 1 To i - 1 2 分 5、 a(j) q 2分6、 a(i) = q 2 分
