资源简介

上海交大附中09-10学年高一上学期期终试卷
高一信息科技
（满分100分，90分钟完成，答案一律写在答题纸上。）
命题：房诗林 审核：胡志洪 校对：刘文迁
说明：本试卷所有程序的运行环境为：Windows 2000（XP）、Visual Basic
6.0企业版或以上。
一、填充题
1、早期程序设计的基本思想是通过一系列程序语句来处理数据，这种思想被称为是面向 （1） 的程序设计，到了20世纪80年代，出现了一种新颖的编程思想，这就是面向 （2） 的程序设计。
2、通常用 （3） 、 （4） 、程序来描述算法。
3、用 （5） 语言和 （6） 语言编制的程序，计算机是不能直接执行的。
4、在VB中，窗体文件的扩展名为 （7） ，每个窗体对应一个窗体文件，窗体及其控件的属性和其它信息（包括代码）都存放在该窗体文件中。建立一个应用程序即创建一个工程，工程文件的扩展名为 （8） ，若需要，可以创建可执行文件，可执行文件的扩展名为 （9） 。
5、数学表达式 ，在计算机程序设计语言中一般表示为 （10） 。
二、选择题（每题只有一个正确答案）
1、从在计算机中执行的过程来看，用 编写的程序，在计算机中执行得最快。
A、机器语言 B、汇编语言 C、高级语言 D、无法比较
2、计算机程序，指计算机如何去解决问题或完成任务的一组可执行的指令，一个程序一般由 组成。
A、指令 B、指令和数据 C、过程和数据 D、数据
3、以下操作中，涉及对程序解释执行的是 。
A、双击一个VB工程文件FORM1.VBP的图标，启动一个VB程序
B、点击“开始”按钮，选择“运行”，输入NOTEPAD.EXE，点击“确定”按钮
C、双击文件INDEX.HTM的图标，显示一个页面
D、双击图像文件Waves.bmp，打开图像文件Waves.bmp
4、某同学在用“伪代码”表示一个算法中有如下语句：
输出： X/自然数；
请问，他违反了算法的 原则 。
A、有一个或多个输出 B、有穷性
C、可行性 D、确定性
5、下面 语言不属于面向对象的程序设计语言。
A、Visual C++ B、Visual Basic C、Java D、AutoCAD
6、流程图的符号中，矩形框一般作为 。
A、 连接圈 B、输入输出框 C、处理框 D、起止框
7、 不属于算法的基本结构。
A、顺序结构 B、倒序结构 C、分支结构 D、循环结构
8、 不全是程序设计中的高级语言。
A、C++、VB、Flash B、C++、VB、Delphi
C、VC、VB、Delphi D、Turbo C、VB、Pascal
9、以下各项，可以作为Visual Basic变量名的是 。
A、Flag B、 2_seek C、123.58 D、While
10、若变量x、y的值分别为4、2，则表达式 Int(2.5+y/x) Mod -3 的值是 。
A、1 B、0 C、-1 D、3
11、计算机执行变量赋值：a ← a+2 的过程是 。
A．读取变量a的值 → 将运算结果写入变量a → 将a的值加2
B．读取变量a的值 → 将a的值加2 → 将运算结果写入变量a
C．将a的值加2 → 读取变量a的值 → 将运算结果写入变量a
D．将a的值加2 → 将运算结果写入变量a → 读取变量a的值
12、For-Next循环中， 情况下循环体只执行一次。
初值大于终值，且步长大于零
B、初值等于终值
C、初值小于终值，且步长小于零
D、初值小于终值，步长小于终值与初值之差
13、确定一个控件在窗体上的位置的属性是 。
A、Width和Height B、Width或Height
C、Top或Left D、Top和Left
14、以下叙述中错误的是：
A、打开一个工程文件时，系统自动装入与该工程有关的窗体文件
B、保存Visual Basic程序时，可以分别保存窗体文件及工程文件
C、Visual Basic应用程序只能以解释方式执行
D、窗体文件包含该窗体及控件的属性
15、某同学在设计一个VB程序过程中，想保存程序，但发现鼠标有故障，最快捷的保存方法是 。
A、按快捷键Alt+F4，选“否”，再保存。
B、按快捷Ctrl+Q，再保存。
C、按快捷Ctrl+Break，再按快捷Alt+Q，选“是”，保存。
D、按快捷键Alt+E，再保存。
三、阅读下列流程图，写出结果
1、 输出结果为_______。A、104 B、13C、9 D、30 2、若输入的值是-4，则输出结果是 。A、0 B、4 C、-4 D、8
3、该算法的功能是 。A、求输入的5个数的积 B、求输入的6个数的最大值C、求输入的6个数的积 D、统计输入的数的个数 4、该算法的功能是 。A、输出 [2，1000]中能被3整除的偶数B、输出 [2，1000]中能被3整除的奇数C、输出 [2，1000]中的偶数D、输出 [2，1000]中的奇数
四、阅读下列程序，写出执行结果或描述功能
1、下面程序段：
a=1
b=2
If a>b Then
a=a+1
End If
Print a
执行结果是： 。
2、有如下程序：
Private Sub Form_Click()
Dim n As Integer,s As Integer
n=8
s=0
Do
s=s+n
n=n-1
Loop While n>0
Print s
End Sub
程序运行后，单击窗体，输出结果为 。
3、 假定有如下事件过程：
Private Sub Form_Click()
Dim x as Integer, n As Integer
x=1
n=0
Do While x<28
x=x*3
n=n+1
Loop
Print x,n
End Sub
程序运行后，单击窗体，输出结果是 。
4、下面程序段：
Private Sub Command2_Click()
Dim a As Integer, b As Integer, c As Integer
Randomize
Do
a = Int(Rnd * 9) + 1
b = Int(Rnd * 9) + 1
c = Int(Rnd * 9) + 1
Loop Until a +b+c=24
Print a, b, c
End Sub
以上程序的功能是 。
5、下面程序执行后，x的值为 。
Dim x As Integer,i As Integer
x=0
For i=20 To 1 Step –2
x=x+i\5
Next i
Print x
A、16 B、17 C、18 D、19
五、读下列程序，找出错误
1、为交换两个变量的值，某同学编了以下程序段（七条语句）：
（1）Dim x As Integer,y As Integer,t As Integer
（2）x=3
（3）y=8
（4）x=t
（5）x=y
（6）t=y
（7）print x,y
请问，运行上述程序后：
（1）结果（x，y的值）为： ；
（2）若要输出（x，y的值）：8 3，应怎样修改语句（必须在原语句上修改）：
第 行，应改为
第 行，应改为
第 行，应改为
注意：以上给出三行，未必有三个错！
2、某同学编了一个程序，其功能是：输入三个数，输出其中最大值。界面如下图所示：有两个标签，一个名称为Label1、标题为“请你输入三个数:”，另一个名称为Label2、标题为空，三个文本框，名称分别为Text1和Text2、Text3，标题均清空，三个按钮，标题分别为“清除”、“最大值” 和“退出”。
程序运行后，在三个文本框中输入三个数，单击“最大值”按钮，则Label2标签中显示最大值，单击“清除”按钮，则清空三个文本框且光标停在Text1中，单击“退出”按钮则退出程序。
下面是求最大值的程序：
（1）Private Sub Command2_Click()
（2） Dim a As Integer,b As Integer, Dim c As Integer
（3） Dim Max As String
（4） a = Val(Text1.Text)
（5） b = Val(Text2.Text)
（6） c = Val(Text3.Top)
（7） If a >=b And b>=c Then
（8） Max = a
（9） Else
（10） If b >=c Then
（11） Max=b
（12） Else
（13） Max=c
（14） End If
（15） End If
（16） Label2.Caption = "Max=" + Max
（17）End Sub
请你找出错误，并写出正确的程序（必须在原程序上改），使之运行正确。
第 行错，正确的程序为
第 行错，正确的程序为
第 行错，正确的程序为
第 行错，正确的程序为
第 行错，正确的程序为
第 行错，正确的程序为
注意：以上给出六行，未必有六个错！
六、编程
设计一个摇奖程序，界面如下图所示：有三个标签，一个名称为Label1、标题为“摇奖程序”，另一个名称为Label2，标题为“请输入人数：”，第三个名称为Label3、标题为空，一个文本框，名称为Text1，标题清空，三个按钮，标题分别为“开始”和“清除”和“结束”。
要求：
程序运行后，在文本框中输入班级人数，单击“开始”按钮，则Label3标签中按样张显示三个不同的随机学号，单击“清除”按钮，则清空文本框和Label3且光标停在Text1中，单击“退出”按钮则退出程序。下面是实现该功能的部分程序，请你在
处填上适当语句，使之完整 。
Private Sub Command2_Click() ‘清除
（1）
（2）
Text1.SetFocus
End Sub
Private Sub Command3_Click() ‘结束
End
End Sub
Private Sub Command1_Click() ‘产生3个中奖学号
Dim a As Integer, b As Integer ,c As Integer, s As Integer
Form1.Cls
s = Val(Text1.Text) ‘取班级人数
（3）
（4）
（5）
（6）
（7）
（8）
Label3.Caption = " 中奖学号为：" & a & "号、 " & b & "号、 " & c & "号 "
End Sub

展开更多......

收起↑