1.选择题- (共30题)
1.
用UltraEdit观察字符内码如下图所示,若将内码“77”改为“79”,那么整个字符串将变成( )


A.how are you? | B.how you are? | C.hoy are you? | D.yow hou are? |
3.
在车载导航系统中,输入目的地名称就能显示出当前位置到目的位置的详细路线,汽车行驶的同时就能立即反映出当前位置及周边设施。这主要体现了多媒体的( )
A.集成性 | B.交互性 | C.实时性 | D.可压缩性 |
4.
张飞非常喜欢《大话西游》在线网游,为了能使自己在游戏世界里能全身挂满装备,他经过三天三夜的苦心钻研,终于成功的编写出了一款能自动盗取别人装备的木马程序。他的这种行为属于( )
A.信息共享 | B.信息犯罪 | C.信息污染 | D.信息加工 |
8.
何东是位市场销售人员,他在上门拜访客户之前都要先在网上查查航班班次,以预订见面时间。下图是在某网站查询出来的界面,根据我们所学的知识分析一下他对网络数据库进行了什么操作( )


A.查询记录 | B.添加记录 | C.修改记录 | D.删除记录 |
9.
2010年3月,因日本地震引起海啸继而发生核泄露事故。小王在看到这则新闻之后,马上抛售了手上的一支与有关海洋渔业捕捞作业公司的股票。从而在第一时间避免了损失。以上信息主要体现了信息的那项特征?( )
A.载体依附性 | B.可加工可处理性 | C.真伪性 | D.时效性 |
11.
程序运行后,单击窗体,变量s=( )。
Private Sub Form_click()
a =" 5"
b =" 10"
c =" 2" * (a + b)
s =" a" * c
End Sub
Private Sub Form_click()
a =" 5"
b =" 10"
c =" 2" * (a + b)
s =" a" * c
End Sub
A.15 | B.50 | C.150 | D.300 |
12.
下列过程中,( ) 是程序开始运行时,窗体一加载就运行的程序段。
A.Form_Load | B.Form_Click |
C.Form_MouseDown | D.Form_KeyPress |
13.
程序运行后,单击Command1命令按钮,变量x=( )。
Private Sub Command1_Click()
n =" 5"
x =" 1"
For i =" 1" To n
x =" x" * i
Next i
End Sub
Private Sub Command1_Click()
n =" 5"
x =" 1"
For i =" 1" To n
x =" x" * i
Next i
End Sub
A.5 | B.15 | C.24 | D.120 |
15.
在VB应用程序设计中,如果想让Timer控件禁用,应该将其 属性设置为 。
A.Enabled 、False | B.Enabled、True | C.Visible、False | D.Visible、True |
16.
如果x=5.5,则表达式x>0 And x=Fix(x)的运算结果为 ;表达式x>0 Or x=Fix(x)的运算结果为 。
A.True、False | B.False、True | C.True、True | D.False、False |
18.
(-b+)/2a的Visual Basic表达式是( )
A.(-b+b^2-4ac)/2a | B.(-b+sqr(b^2-4*a*c))/(2*a) |
C.(-b+sqr(b^2-4ac))/(2a) | D.(-b+sqr(b^2-4ac))/2a |
19.
要获得(-4,25)区间内的随机整数,正确的表达式为( )
A.Int(Rnd *25 ) | B.Int(Rnd *29 ) | C.Int(Rnd *25-4 ) | D.Int(Rnd *30-4 ) |
21.
同学甲将WAVE格式的音频文件转换成MP3格式,同学乙将某个DOC格式的文件压缩成RAR文件,同学甲和同学乙分别对文件进行了( )
A.有损压缩、有损压缩 | B.有损压缩、无损压缩 |
C.无损压缩、有损压缩 | D.无损压缩、无损压缩 |
25.
一张768MB的光盘,刚好存放一段40分钟的PAL制式视频,视频分辨率为:1024*768,24位色彩。这段视频的压缩比是( )
A.1:5 | B.176:1 | C.258:1 | D.1:147 |
26.
录制一段时长10秒,采样频率为24KHZ、量化位数为16位、双声道立体声的WAVE格式音频,需要的磁盘存储空间大约是( )
A.47KB | B.94KB | C.470KB | D.938KB |
28.
电子表格软件Excel中,在D1单元格内输入下列信息后会引起“循环引用”的是( )
A.=A1+B1+C1 | B.=A1-C1+D1 |
C.="SUM(A1:C1)/3" | D.=A1+B1-2*C1 |
29.
用Flash软件制作动画时,编辑某个特定的图层,为了减少其他图层对该图层的干扰和影响,在不改变其他图层内容的前提下,可以对其他图层进行的操作是( )
A.隐藏图层 | B.删除图层 | C.显示图层 | D.重命名图层 |
30.
某Flash文档的时间轴如下图所示,则下列说法正确的是( )


A.可以直接对图层1中的实例进行调整实例大小操作 |
B.可以在图层2第25帧处插入关键帧 |
C.可以直接更改图层2中的实例Alpha值 |
D.可以直接将图层1移动到场景2中 |
2.填空题- (共4题)
31.
下列程序在调试时提示①处出现语法错误,修改相关错误使得程序能够正常运行,则①处所在行的语句修改之后应为 。
Dim api As Integer
api = Val(Text1.Text)
If api <=" 50" Then
Label2.Caption = "优"
Picture1 =" LoadPicture(App.Path" & "\空气质量VB-1.jpg")
End If
If 50 < api ≤ 100 Then ①
Label2.Caption = "良"
Picture1 =" LoadPicture(App.Path" & "\空气质量VB-2.jpg")
End If
If api > 100 And api <=" 150" Then
Label2.Caption = "轻微污染"
Picture1 =" LoadPicture(App.Path" & "\空气质量VB-3.jpg")
End If
If api > 150 And api <=" 200" Then
Label2.Caption = "轻度污染"
Picture1 =" LoadPicture(App.Path" & "\空气质量VB-4.jpg")
End If
If api > 200 And api <=" 250" Then
Label2.Caption = "中度污染"
Picture1 =" LoadPicture(App.Path" & "\空气质量VB-5.jpg")
End If
If api > 250 And api <=" 300" Then[来源:学科网ZXXK]
Label2.Caption = "中度重污染"
Picture1 =" LoadPicture(App.Path" & "\空气质量VB-6.jpg")
End If
If api > 300 Then
Label2.Caption = "重污染"
Picture1 =" LoadPicture(App.Path" & "\空气质量VB-7.jpg")
End If
Dim api As Integer
api = Val(Text1.Text)
If api <=" 50" Then
Label2.Caption = "优"
Picture1 =" LoadPicture(App.Path" & "\空气质量VB-1.jpg")
End If
If 50 < api ≤ 100 Then ①
Label2.Caption = "良"
Picture1 =" LoadPicture(App.Path" & "\空气质量VB-2.jpg")
End If
If api > 100 And api <=" 150" Then
Label2.Caption = "轻微污染"
Picture1 =" LoadPicture(App.Path" & "\空气质量VB-3.jpg")
End If
If api > 150 And api <=" 200" Then
Label2.Caption = "轻度污染"
Picture1 =" LoadPicture(App.Path" & "\空气质量VB-4.jpg")
End If
If api > 200 And api <=" 250" Then
Label2.Caption = "中度污染"
Picture1 =" LoadPicture(App.Path" & "\空气质量VB-5.jpg")
End If
If api > 250 And api <=" 300" Then[来源:学科网ZXXK]
Label2.Caption = "中度重污染"
Picture1 =" LoadPicture(App.Path" & "\空气质量VB-6.jpg")
End If
If api > 300 Then
Label2.Caption = "重污染"
Picture1 =" LoadPicture(App.Path" & "\空气质量VB-7.jpg")
End If
32.
下列程序在调试时,文本框Text2不能输出最后的结果,已知①和②处存在唯一错误,请问错误出在 (填①或②)处,该处正确的语句应该为 。
Dim x As Integer, max As Integer
Dim a As Integer, b As Integer, c As Integer, t As Integer
x = Val(Text1.Text) ' ①
a =" x" \ 100
b =" x" \ 10 Mod 10
c =" x" Mod 10
If a < b Then t =" a:" a =" b:" b = t
If a < c Then t =" a:" a =" c:" c = t
If b < c Then t =" c:" c =" b:" b = t
max =" a" * 100 + b * 10 + c
Text2.Text =max ' ②
Dim x As Integer, max As Integer
Dim a As Integer, b As Integer, c As Integer, t As Integer
x = Val(Text1.Text) ' ①
a =" x" \ 100
b =" x" \ 10 Mod 10
c =" x" Mod 10
If a < b Then t =" a:" a =" b:" b = t
If a < c Then t =" a:" a =" c:" c = t
If b < c Then t =" c:" c =" b:" b = t
max =" a" * 100 + b * 10 + c
Text2.Text =max ' ②
33.
下列程序在调试时提示错误“块IF没有End If”,要使程序正常运行,则应该在 (填①或②)处添加语句 。
Private Sub Image3_Click(Index As Integer)
Timer1.Enabled = False
Image1.Picture = Image3(Index).Picture
If x =" Index" Then
Label1.Caption = "平手"
Command1.Visible = True
①
Else
If x =" 1" And Index =" 2" Or x =" 2" And Index =" 3" Or x =" 3" And Index =" 1" Then
Label1.Caption = "您输"
Command1.Visible = True[来源:Zxxk.Com]
Else
Label1.Caption = "您赢"
Command1.Visible = True
End If
②
End Sub
Private Sub Image3_Click(Index As Integer)
Timer1.Enabled = False
Image1.Picture = Image3(Index).Picture
If x =" Index" Then
Label1.Caption = "平手"
Command1.Visible = True
①
Else
If x =" 1" And Index =" 2" Or x =" 2" And Index =" 3" Or x =" 3" And Index =" 1" Then
Label1.Caption = "您输"
Command1.Visible = True[来源:Zxxk.Com]
Else
Label1.Caption = "您赢"
Command1.Visible = True
End If
②
End Sub
试卷分析
-
【1】题量占比
选择题:(30道)
填空题:(4道)
-
【2】:难度分析
1星难题:0
2星难题:0
3星难题:0
4星难题:0
5星难题:0
6星难题:0
7星难题:0
8星难题:0
9星难题:34