相关试卷
-
1、图中能作为OCR软件识别对象的文件是（ ）
A、index.htm B、成绩表.xls C、CAT.gif D、沙尘暴.bmp -
2、某县第一届农博会举行网络投票，选出百姓心目中最放心的农产品活动。部分产品支持率如下图所示：
该评价采用的评价方式是（ ）
A、统计评价 B、个人推荐 C、专家评价 D、核心刊物评价 -
3、Internet Explorer(IE)浏览器中“收藏夹”的主要作用是收藏（ ）A、图片 B、邮件 C、网址 D、音乐
-
4、晓晓在Word中输入文字时的部分截图如图所示，从图中可知，她当前选用的输入法类型属于（ ）
A、音码 B、形音码 C、音形码 D、字形码 -
5、二进制数码在不同的数位上对应不同的权值，八进制数码也有同样的权值关系。现有八进制数
，其中虚线框中的“1”对应的权值为（ ） A、23 B、22 C、83 D、82 -
6、二进制数10110B为二进制数1011B的（ ）倍。A、16倍 B、10倍 C、5倍 D、2倍
-
7、字母“C”的ASCII码是1000011B，则字母“D”的ASCII码是（ ）A、1000001B B、1000010B C、1000100B D、1000101B
-
8、下列是学生日常生活的六种行为：
①上网查找研究性学习资料；
②回答老师提问；
③计算班级期中考试平分成绩；
④化学实验时用鼻子闻CO2气味；
⑤收听校园广播
下列选项均属于信息获取的是（ ）
A、②③⑤ B、①③④ C、①④⑤ D、②③④ -
9、小吴购买了一套正版杀毒软件，下列行为不恰当的是（ ）A、每周进行全盘扫描一次 B、下载并安装官方网站发布的系统补丁 C、升级杀毒软件的病毒库 D、将自己购买的正版软件安装序列号放在网站上出售
-
10、《法证先锋》中的法证人员能在案发现场找到犯罪人员的相关信息，体现了信息的（ ）A、时效性 B、载体依附性 C、可处理加工性 D、共享性
-
11、数组a中存储的是左右交替上升的n个正整数，如下表所示：
a（1）
a（2）
a（3）
……
a（n —2）
a（n—1）
a（n）
3
25
38
……
55
31
12
依据对分查找思想，设计一个在数组a中查找数据key的程序。实现该功能的VB程序如下，但加框处代码有错，请改正。
Private Sub Command1_Click（）
Const n = 6
Dim a（1 To n）As Integer，flag As Boolean
Dim i As Integer，j As Integer，m As Integer，key As Integer
'读取一组正整数，按上述规则存入数组a中，代码略。
key = VaKText1. Text）
i = 1
j = （n + 1） \ 2
flag = False
Do While
And Not flag ‘① m = （i + j） \ 2
If key = a（m） Then
flag = True
ElseIf key< a（m） Then
j = m - 1
Else
i = m + 1
End If
Loop
If Not flag And j > 0 Then
m =
‘②If key = a（m） Then flag = True
End If
If flag Then
Text2. Text = Str（m）
Else
Text2. Text = "找不到"
End If
End Sub
① ②
-
12、下列程序的功能是对某校2011年3月份技术高考成绩进行排名分析，数组a中保存学生技术考试的成绩，数组b中保存学生的姓名，第i个学生的技术成绩保存在a(i)中，对应的学生姓名保存在b(i)中，最后按技术成绩从高到低进行排序。程序界面如图所示，左边列表框List1中显示的是所有学生到的原始数据，单击"排序"按钮（Command1）后，在右边的列表框List2中显示排序完成后的结果（按成绩从高到低排列）。
(1)、虚线内程序段所采用的排序算法名称是。(2)、程序加框处代码有错，请改正。
① ②
-
13、下列VB程序的功能是：程序运行时，单击按钮Command1随机产生20个范围在1－1000（包括1和100）的整数，并在列表框List1中显示，然后单击按钮Command2，计算随机产生的20个整数中的最大值、最小值和平均值，并分别在Text1、Text2和Text3中显示，程序的运行界面如图所示。请在划线上填入合适的代码:
Const n = 20
Dim a(1 To n) As Integer
Private Sub Command1_Click()
Dim i As Integer
Randomize
For i = 1 To n
a(i) = Int(Rnd * 1000) + 1
List1.AddItem Str(a(i))
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer, max As Integer
Dim min As Integer, sum As Single
max = a(1): min = a(1)
sum = 0
For i = 2 To n
If Then max = a(i)
If a(i) < min Then min = a(i)
sum = sum + a(i)
Next i
Text1.Text = Str(max)
Text2.Text = Str(min)
Text3.Text = Str(sum)
End Sub
-
14、下列程序的功能是：当用户点击窗体下方的“石头”（command1）、“剪子”（command2）、“布”（command3）任意一个按钮的时候，电脑也会在Label1上随机显示出一个石头、剪刀、布（显示在label1上），程序判断出胜负（平局算负）将结果显示到label3上。
Private Sub Command1_Click()
Label1.Caption = sj ‘计算机随机产生一个值
Label2.Caption = Command1.Caption
If cp(Label1.Caption, Label2.Caption) Then ‘判断胜负
= "乙方负"
Else
Label3.Caption = "乙方胜"
End If
End Sub
Function sj() As String '随机生成石头、剪刀、布
i = ‘随机生成1~3任一整数
If i = 1 Then sj = "石头"
If i = 2 Then sj = "剪刀"
If i = 3 Then sj = "布"
End Function
-
15、“神舟六号”飞船升入空后进入一个椭圆形的轨道。轨道远地点高度是347千米，比近近地点高度高147千米。求近地点的高度。程序设计界面和部分代码如下所示。
图1
图2
Private Sub ①
Dim i, j As Integer A
i = 347 B
j = i – 147 C
Text1.Text = Str(j) D
End Sub
(1)、该程序开始运行时，直接得出近地点的高度，则在①处应填 。(2)、程序运行时，出现如图所示错误，对照如图，修改一处程序以使此程序正确运行。则修改语句（选填：A/B/C/D）,修改后的语句为。 -
16、下列VB程序运行时，在文本框Text1中输入2，单击命令按钮Command1后，文本框Text2的内容是。
Private Sub Command1_Click()
Dim t As Single, h1 As Single, h2 As Single
Const g = 9.8
t = Val(Text1.Text)
h1 = (g * t ^ 2) / 2
h2 = Int(h1)
Text2.Text = Str(h2)
End Sub
-
17、某VB程序段代码如下：
Private Sub Command1_Click()
Dim data(1 To 100) As Integer
For i = 1 To 100
data(i) = Int(Rnd * 1000)
Next
num = Val(Text1.Text)
For i = 1 To 100
If data(i) = num Then Exit For
Next
If i <= 100 Then
MsgBox "找到该数，是第" & i & "个数"
Else
MsgBox "该数不在数组中"
End If
End Sub
方框中的程序算法是：（ ）
A、二分查找 B、冒泡排序 C、递归算法 D、顺序查找 -
18、有一组数，依次为3、2、8、5、9，若采用选择排序算法对其进行从大到小排序，其中排序方向为从前向后，则第二趟的排序结果是:（ ）
A、9 2 8 5 3 B、9 5 8 2 3 C、9 8 2 5 3 D、9 2 8 3 5 -
19、For i= 1 To 6
a(i)=i+1
Next i
程序运行后，变量i的值是：（ ）
A、7 B、6 C、1 D、0 -
20、下面程序段是利用For语句给数组a赋值：
For i= 1 To 6
a(i)=i+1
Next i
该程序段运行后数组元素a(3)的值是：（ ）
A、2 B、3 C、4 D、5