1.选择题- (共34题)
1.
汉字“保”的区位码为1703,即区号为17,位号为03(区号,位号均为十进制),如果用两个字节的十六进制可以表示为1103H,即区号11,位号03。汉字的处理码是将区位码的区号和位号分别加上160(十进制),则汉字“保”的处理码用十六进制表示为( )
A.A0A0H | B.1103H | C.27B1H | D.B1A3H |
5.
每当文艺周到来之际,我们学校都会举办一场由在校师生共同筹办的文艺晚会,为了记录晚会的精彩内容,电教馆的老师就会将晚会的精彩内容录下来并制作成光盘。下图为我校第20届文艺汇演光盘,实际上,在计算机内部,光盘上的数据是以( )形式表示的。


A.激光 |
B.十进制 |
C.二进制 |
D.电路 |
7.
用Ultraedit软件观察某个由英文字符和汉字组成的字符串如下图所示,从图中可以看出,该字符串分别包含( )个英文字符和( )个汉字( )


A.4, 6 | B.6, 4 | C.6, 8 | D.4, 8 |
9.
下列关于对象的描述中,错误的是( )
A.对象的属性用于描述对象的状态 |
B.对象的属性与方法可以有多个 |
C.对象事件的发生会驱动该对象相应事件处理过程的执行 |
D.对象的属性值只能在属性窗口中设置 |
13.
运行如下Visual Basic程序,单击命令按钮Command1,出现如图所示的出错信息。发生“类型不匹配”错误时所执行的语句是( )

Private Sub Command1_Click()
Dim a As String, b As String, c As Integer
a = "Good" '①
b = "bye" '②
c =__________1__________'③
Text1.Text =" a" + b + c '④
End Sub

Private Sub Command1_Click()
Dim a As String, b As String, c As Integer
a = "Good" '①
b = "bye" '②
c =__________1__________'③
Text1.Text =" a" + b + c '④
End Sub
A.① | B.② | C.③ | D.④ |
14.
程序运行界面如图所示。要求在文本框Text1中输入字符串,单击“统计”按钮Command1后,在标签Label2中显示所输入字符串长度。需要编写的VB事件处理过程的名称为( )


A.Command1_Click |
B.Text1_Click |
C.Form_Click |
D.Label2_Click |
19.
在Visual Basic中,若a=4,b=3,c=10,则执行完下列语句后,变量c的值为( )
If a+b>c Then
c=a+1
Else
c=b-1
End If
If a+b>c Then
c=a+1
Else
c=b-1
End If
A.2 | B.10 | C.5 | D.4 |
21.
某Visual Basic程序如下:
Private Sub Command1_Click()
Dim a(1 To 10) As Integer
Dim i As Integer
a(1) = 1
For i =" 2" To 10
a(i) =" a(i-1)" + i
Next i
Text1.Text = Str(a(5))
End Sub
运行程序,单击命令按钮Command1后,在文本框Text1中显示的内容为( )
Private Sub Command1_Click()
Dim a(1 To 10) As Integer
Dim i As Integer
a(1) = 1
For i =" 2" To 10
a(i) =" a(i-1)" + i
Next i
Text1.Text = Str(a(5))
End Sub
运行程序,单击命令按钮Command1后,在文本框Text1中显示的内容为( )
A.5 | B.10 | C.15 | D.21 |
22.
VB标准函数Rnd的作用是返回一个大于等于0且小于1的随机实数,若要“生成一个大于等于10且小于100的随机整数”的VB表达式是( )
A.Int(Rnd()*100) |
B.Int(Rnd()*99+1) |
C.Int(Rnd()*99+10) |
D.Int(Rnd()*90)+10 |
23.
下列为部分VB程序语句代码:( )
s=32
For i="1" To 10 Step
s=s/2
Next i
上述程序语句执行结束后,s的值为2,则循环语句的步长(划横线处)应填( )
s=32
For i="1" To 10 Step
s=s/2
Next i
上述程序语句执行结束后,s的值为2,则循环语句的步长(划横线处)应填( )
A.1 | B.2 | C.3 | D.4 |
24.
下列VB的变量定义正确的是( )
A.Dim a,b As Double |
B.Dim a-b as Integer |
C.Dim c As True |
D.Dim d^2 as Single |
25.
变量c中存储了一个字符,正确判断该字符为数字字符"0 "~ "9 "的VB表达式是( )
A.c>= "0 " And c<= "9 " |
B.c>= "0 " Or c<= "9 " |
C.Asc(c)>="0" And Asc(c)<=9 |
D.Asc(c)>="0" Or Asc(c)<=9 |
26.
如果x=4,那么以下运算结果为True的表达式是( )
A.(x<=4)and(x>=6) |
B.(x>4)Or(x>=6) |
C.(x>="4)and" not(x>=6) |
D.not(x=4) |
28.
在VB窗体中有一个对象,该对像的属性窗口如图所示,下列说法不正确的是( )


A.Interval为属性名 |
B.1680为属性值 |
C.该对象的名称为Timer1 |
D.根据“Timer1 Timer”可判断窗体名为Timer |
30.
学校摄影社利用业余时间自拍了一部25帧/秒、1分钟、分辨率为1024×768、16位真彩色的DV,若没有经过压缩,需要的存储空间大约是( )
A.22GB | B.900 MB | C.120MB | D.2.2GB |
31.
下列选项中关于位图与矢量图的描述不正确的是( )
A.位图是用排成行列的点(像素)来描述的 |
B.扫描仪扫得的图像为位图 |
C.用位图表示图像比较细致,层次和色彩也比较丰富 |
D.对矢量图进行缩放、旋转等变换会影响图形的清晰度 |
33.
将某播放时长为20秒的音频文件进行如下操作:
①删除前10秒的声音数据
②将左声道设置为静音
③保存处理后的音频文件;zxxk
则处理后的音频文件存储容量约是原文件的( )
①删除前10秒的声音数据
②将左声道设置为静音
③保存处理后的音频文件;zxxk
则处理后的音频文件存储容量约是原文件的( )
A.1/2 | B.1/3 | C.1/4 | D.3/4 |
2.填空题- (共3题)
35.
下列VB程序运行时,单击命令按钮Command1后,文本框Text1中显示的内容是 ,文本框Text2中显示的内容是 。
Private Sub Command1_Click()
Dim i As Integer, c As Integer, n As Integer
c =" 0"
n=10
for i =" 2" to 10 step 3[来源:Zxxk.Com]
If n Mod i =" 0" Then
c = c+i
else
c=" c" * i
end if
next i
Text1.Text = Str(i)
Text2.Text = Str(c)
End Sub
Private Sub Command1_Click()
Dim i As Integer, c As Integer, n As Integer
c =" 0"
n=10
for i =" 2" to 10 step 3[来源:Zxxk.Com]
If n Mod i =" 0" Then
c = c+i
else
c=" c" * i
end if
next i
Text1.Text = Str(i)
Text2.Text = Str(c)
End Sub
36.
每次将一张白纸沿垂直和水平中线对半撕成四张纸片,然后取其中一张纸片照这样再撕成四张纸片,一直这样下去,计算撕了n次后纸片的总张数,现在要用VB来实现该程序。程序界面及功能如下图所示,在文本框中输入撕的次数,单击计算按钮,显示纸片数。

请完善并改正下面的程序代码:
Private Sub Command1_Click()
Dim i, n, s As Integer
n =" Val(Text1." Caption) ‘① 获得撕纸片的次数
s=1 ‘s为纸片数,初始时为1
For i =" 1" To n
② ‘计算撕了n次后的纸片数量
Next i
Label2.Caption = Str(s) 显示最终的纸片数
End Sub
注释①所在行语句中有错误,应改为_____________
在横线②中填入正确的语句_______________
在用VB设计应用程序时,一般经历的阶段的正确顺序是__________(填字母顺序)
a 运行调试程序 b 问题和算法分析
c 应用程序界面设计 d 事件处理过程代码编写

请完善并改正下面的程序代码:
Private Sub Command1_Click()
Dim i, n, s As Integer
n =" Val(Text1." Caption) ‘① 获得撕纸片的次数
s=1 ‘s为纸片数,初始时为1
For i =" 1" To n
② ‘计算撕了n次后的纸片数量
Next i
Label2.Caption = Str(s) 显示最终的纸片数
End Sub
注释①所在行语句中有错误,应改为_____________
在横线②中填入正确的语句_______________
在用VB设计应用程序时,一般经历的阶段的正确顺序是__________(填字母顺序)
a 运行调试程序 b 问题和算法分析
c 应用程序界面设计 d 事件处理过程代码编写
37.
已知出租车计费方法如下:路程在3公里以内(包含3公里)收起步价10元,路程超过3公里不超过10公里(包含10公里)部分按每公里2元计费,超出10公里部分按每公里3元计费。现要设计一个VB出租车计费系统程序,在路程文本框中中输入路程数,单击计算按钮可以计算出应付金额并显示到金额文本框中,请回答以下问题:
在设计该程序界面时,要从图二界面到图一界面,需要进行哪些设置?
________________________________________________________________
________________________________________________________________
为计算按钮添加单击事件后,并在其中添加程序代码,代码如下:
Dim d As Single
Dim f As Single
d = Val(Text1.Text)
If d <=" 3" Then ‘3公里以下计费
f =" 10"
end if
If d > 3 And d <=" 10" Then ‘3公里至10公里计费
‘①
End If
If d > 10 Then ‘10公里以上计费
'②
End If
Text2.Text = Str(f)
请完善以上程序代码,在①,②处填入正确的语句
①________________________________
②________________________________
完善程序代码后,若输入路程数为10,则应付金额为________元
实现该程序所用的算法结构属于______________(选择结构/循环结构)
|

________________________________________________________________
________________________________________________________________
为计算按钮添加单击事件后,并在其中添加程序代码,代码如下:
Dim d As Single
Dim f As Single
d = Val(Text1.Text)
If d <=" 3" Then ‘3公里以下计费
f =" 10"
end if
If d > 3 And d <=" 10" Then ‘3公里至10公里计费
‘①
End If
If d > 10 Then ‘10公里以上计费
'②
End If
Text2.Text = Str(f)
请完善以上程序代码,在①,②处填入正确的语句
①________________________________
②________________________________
完善程序代码后,若输入路程数为10,则应付金额为________元
实现该程序所用的算法结构属于______________(选择结构/循环结构)
试卷分析
-
【1】题量占比
选择题:(34道)
填空题:(3道)
-
【2】:难度分析
1星难题:0
2星难题:0
3星难题:0
4星难题:0
5星难题:0
6星难题:0
7星难题:0
8星难题:0
9星难题:37