高中信息技术VB应用程序的界面设计与调试浏览题阅览题会考复习题.doc

高中信息技术 VB应用程序的界面设计与调试 浏览题阅览题 会考复习题
学校:___________姓名：___________班级：___________考号：___________

评卷人
得分

一、选择题
1．窗体装载事件过程可以对程序进行初始化。VB窗体装载事件过程的名称是（ ）
A．Command1_Click
B．Form_Click
C．Form_Load
D．Form_DblClick
【答案】C
【解析】
2．对输入的两个整数a和b，找出其中的较大者赋给c并输出。解决该问题的算法流程图如右图所示，流程图中虚线框部分的内容可为

【答案】D
【解析】
3．能得到一个大于等于20且小于50随机整数的VB表达式是（ ）
A． Int(rnd*50)-20
B． Int(rnd*30+20)
C． Int(rnd*31+20)
D． Int(rnd*30)+1
【答案】B
【解析】
4．在Visual Basic的代码窗口中，语句List1.Clear中的Clear是（　　）
A、属性值 B、属性名 C、对象名 D、方法
【答案】D
【解析】
5．在Visual Basic工程设计中，双击窗体中的对象后，出现的是( )
A、工程窗口 B、工具箱 C、代码窗口 D、属性窗口
【答案】C
【解析】
6．有如下VB程序段，该程序段运行后c的值是（ ）
a=”360” : b=”safe” : c=Val(a)+Len(b)
A． ”360safe” B． 360+safe C．364 D．7
【答案】C
【解析】
7．如下所示在<style type=”text/css”>和</style>之间的文本不能正常显示出来，是因为浏览器比较老，不支持样式表语法。若要避免这种情况的发生（ ）
<style type=”text/css”>
h3{
font-family:”宋体”;
color:green;
font-style:italic;
}
</style>
A． 必须更新新的浏览器
B． 只要加入<!-- 和 -->代码
C． 只要加入css
D． 以上都不对
【答案】B
【解析】
8．有如下VB程序段：
bianliang_a = 3:bianliang_b = 4
Label1.caption = “bianliang_a*bianliang_b”
该程序段运行之后，标签Label1将显示（ ）
A．3*4 B．12
C．bianliang_a*bianliang_b D．3*4=12
【答案】C
【解析】
9．某VB的事件过程如下：
Private Sub Command1_Click()
Dim a As Integer
a = Val(Text1.Text)
a = 2 * a + 1
Text1.Text = Str(a)
End Sub
程序运行时，在文本框Text1中输入1，连续两次单击命令按钮Command1后，Text1中显示的内容是（ ）
A．7 B．5 C． 3 D． 1
【答案】A
【解析】
10．（ ）不是程序设计中的高级语言。
A． word B．VB C． C++ D． Pascal
【答案】A
【解析】
11．如果想在程序中反复使用一个数值3.14，为了避免在编写程序时反复输入这个数据，也为了一次能够修改程序中所有用到的这个数据的语句，可以采用（ ）。
A、将这个数据声明为字符串型常量，用一个常量标识符代表它
B、将这个数据声明为字符串型变量，用一个变量标识符代表它
C、将这个数据声明为单精度型常量，用一个常量标识符代表它
D、将这个数据声明为单精度型变量，用一个变量标识符代表它
【答案】C
【解析】
12．有关下列语句说法不正确的是（ ）
① If a="b=c" Then Msgbox(“这三个数相等”) Else Msgbox(“这三个数不相等”)
②赋值语句 a=b>c
③赋值语句 a+b=c
④ Msgbox (a+b=c)
A． 语句①能运行，但逻辑上有错误
B． 语句②能运行，且无任何逻辑错误
C． 语句③不能运行
D． 语句④不能运行
【答案】D
【解析】
13．一只漂亮的酒杯被摔碎了，则漂亮、酒杯、摔、酒杯被摔碎了分别代表的是（ ）
A、对象，属性，事件，方法
B、对象，属性，方法，事件
C、属性，对象，方法，事件
D、属性，对象，事件，方法
【答案】C
【解析】
14．运行如下所示的JavaScript代码，结果是<script language='"JavaScript“>m=10; n=4; i= (m-n)/n; alert (i);</script>
A．在弹出的提示框中显录消息 “1”
B．在弹出的提示框中显录消息“1．5”
C．在弹出的提示框中显示消息“6/4”
D．在弹出的提示框中显示消息“i”
【答案】B
【解析】
15．VB中工程文件的扩展名为（ ）
A． bas B． frm C． vbp D． ds
【答案】C
【解析】
16．在Visual Basic中，下列语句定义错误的是：（ ）
（A）const g=9.8 （B）Dim False As Boolea
（C） Dim b(1 to 5) As String （D）Dim y As Long
【答案】B
【解析】
17．以下问题最适合用计算机编程方法来处理的是（ ）
A、记录同学参加社区服务情况
B、在因特网上查找自己喜欢的歌曲
C、编辑待发表的文稿
D、计算10000以内的偶数的平方和
【答案】D
【解析】
18．下列可以作为VB变量名的是（ ）
A． A&s B． A+S C． AS D． A_s
【答案】D
【解析】
19．如下图所示，在Visual Basic工程设计中，要在命令按钮command1中显示“确定”，则下列操作正确的是( )

A．在Text属性值中输入“确定”
B．在Caption属性值中输入“确定”
C．在Font属性值中输入“确定”
D．在Name属性值中输入“确定”
【答案】B
【解析】
20．在使用VB进行可视化编程时，向窗体添加一个计时器控件，可选择工具箱中的
A． B． C． D．
【答案】C
【解析】
21．下列各组控件都具有Caption属性的是( )
A、按钮、文本框 B、 标签、列表框
C、按钮、标签 D、 文本框、列表框
【答案】C
【解析】
22．下列叙述正确的是
A． 自然语言只能描述顺序结构问题的算法
B． 同一个问题，算法唯一
C． 用流程图可以描述循环结构算法
D． 伪代码就是计算机中直接执行的程序设计语言
【答案】C
【解析】
23．与人类自然语言最为接近的计算机程序设计语言是
A． 低级语言
B． 高级语言
C． 汇编语言
D． 机器语言
【答案】B
【解析】
24．在Visual Basic中进行窗体设计时，利用属性面板可以非常方便地对常用的属性进行设置。请观察下图，并选择出正确的描述（ ）

A．“Text1”是类名，“TextBox”是对象名，“Text” 是属性名，“点击输入”是属性值
B．“Text1”是对象名，“TextBox”是类名，“Text”是属性名，“点击输入”是属性值
C．“Text1”是对象名，“TextBox”是类名，“Text”是属性值，“点击输入”是属性名
D．Text1”是属性名，“TextBox”是对象名，“Text”是类名，“点击输入”是属性值
【答案】B
【解析】
25．Visual Basic、Java是面向对象的程序设计语言，它们属于
A． 自然语言
B． 高级语言
C． 汇编语言
D． 机器语言
【答案】B
【解析】
26．流程图的符号中，平行四边形框一般作为（ ）。
A． 输入框 B．处理框 C．输入输出框 D． 起止框
【答案】C
【解析】
27．VB的字符串函数Len(X)的功能是计算字符串的长度，len("1234abc")的值为（ ）
A．0 B．7 C．11 D．14
【答案】B
【解析】
28．若想只对当前页面应用样式，一般使用下列哪项：（ ）
A． 外联式样式表
B． 内联式样式表
C． JavaScript样式表
D． VBSCRIPT样式表
【答案】B
【解析】

评卷人
得分

二、简答题
29．求所有百位数加十位数等于个位数的三位偶数的立方和。（4’，流程图不给分）

请写出VB程序

【答案】S=0
X=100
Do while x<=998
ge=x mod 10
shi=x \ 10 mod 10
bai=x\100
If bai+shi=ge then
S=s+x^3
End if
X=x+2
Loop
Print s
【解析】
30．输出能被5整除的三位奇数

【答案】①js mod 5=0；
②js=js+2；
【解析】
31．条形码是按照一定编码规则排列的图形标识符。如右图所示，条形码下方数字左边12位代表信息，最右边一位是校验码。校验码产生方法如下：

①把条形码下方数字从右往左依次编序号为“1,2,3,4……”；
②从序号2开始把所有偶数序号位上的数相加求和，并乘以3；
③从序号3开始把所有奇数序号上的数相加求和；
④把第②和第③步结果相加求和；
⑤10减去第④步结果的个位数，得出校验码（如果差值为10，则校验码为0）；
如条形码的数字为：977167121601X（X为校验码），则校验码主要产生步骤如下：
1) (1+6+2+7+1+7)×3=72
2) 0+1+1+6+7+9=24
3) 72+24=96
4) 10-6=4
所以最后校验码X=4，此条形码数字为9771671216014。
小何为此编写了VB程序，用以验证条形码输入正确与否。程序运行时，从文本框Text1获取条形码数字部分，单击按钮Command1后，在列表框List1中输出结果。实现上述功能的VB代码如下，但加框处代码有错，请改正。
Private Sub Command1_Click()
Dim i As Integer, b As String, Lb As Integer
Dim s1 As Integer, s2 As Integer, tmp As Integer
Dim c As String
Dim d(1 To 13) As Integer '存储数据
Dim res As String '存储结果
b = Text1.Text '输入
Lb = Len(b)
s1 = 0 : s2 = 0
flag = True
res = "输入错误！"
If Lb = 13 Then
For i = 1 To 13
c = Mid(b, Lb - i + 1, 1)
If c >= "0" And c <= "9" Then
d(i) = Val(c) '输入转换
Else
flag = False : Exit For
End If
Next i
If flag Then
For i = 2 To Lb Step 2
s1 = s1 + d(i) '参数计算1
s2 =s2 + d(i) '参数计算2 ①
Next i
tmp = s1 * 3 + s2
If tmp Mod 10 Then res = "输入正确！" ②
End If
End If
List1.AddItem res
End Sub
【答案】(1) s2 + d(i + 1) （2分）
(2)(10 - tmp Mod 10) Mod 10 = d(1) （2分）
【解析】

评卷人
得分

三、填空题
32．下列VB程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是 ，文本框Text2中显示的内容是 。
Private Sub Command1_Click()
Const n = 4
Dim a(1 To n) As Integer, s As Integer
Dim i As Integer, t As Integer, k As Integer
a(1) = 1: a(2) = 2: a(3) = a(1): a(4) = 0
s = 0: k = 0
For i = 1 To n
t = a(i)
a(i) = k + t
k = t
s = s + a(i)
Next i
Text1.Text = Str(a(2))
Text2.Text = Str(s)
End Sub
【答案】3、5
【解析】
33．下列VB程序运行时，单击命令按钮Command1后，若在文本框中输入10，则标签Label1显示的内容是______
Private Sub Command1_Click()
Dim sjzs As Integer
Dim rjzs As String
sjzs = Val(Text1.Text)
rjzs = ""
Do While Int(sjzs / 2) > 0
rjzs = Str(sjzs Mod 2) + rjzs
sjzs = Int(sjzs / 2)
Loop
Label1.Caption = rjzs
End Sub
【答案】1 0 1 0或1010
【解析】
34．在一次校园歌手大奖赛中，有20位评委负责评判，打分的上限是10分。统计选手得分时，去掉一个最高分，再去掉一个最低分，然后取评委打分的平均值作为选手的最后得分。根据上述规则，信息小组设计了计算选手得分的程序。核心部分的程序如下：
‘d数组中存放了20位评委的打分
Smax=0:smin=10:score=0
For i=1 To 20
score = score + d(i)
If ______________________________
If d(i) < smin Then smin =d(i)

Next i
score = ( score – smax – smin )/18
Text1.Text= smax
Text2.Text= smin
Text3.Text= score
请分析任务和程序段，完成下列题目。
（1）程序段中出现的Text1、Text2、Text3是 类型的控件。（选填“A”或“B”）
A．列表框 B． 文本框
（2）在设计用户界面时，要在启动计算过程的按钮上显示“计算”二字，应该将按钮的“ ”属性值设置为“计算”。[来源:学§科§网Z§X§X§K]
（3）为精确地显示选手的最后得分，变量score的数据类型应定义为 。
（4）程序执行过程中，程序段中虚线框内的代码将被执行 次。
（5）请分析程序，将程序段中虚线框内的空白处补充完整。
If
【答案】（1）B；（2）Caption（说明：不区分大小写）（3）A；（4）20
（5）d(i) >smax Then smax=d(i)
【解析】
35．已知出租车计费方法如下：路程在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，则应付金额为________元
实现该程序所用的算法结构属于______________（选择结构/循环结构）
【答案】（1）添加一个按钮设置caption属性值为“计算”，将窗体的caption属性值设置为“出租车计费系统”；（2）f=10+(d-3)*2 f=10+14+(d-10)*3；（3）24；（4）选择结构
【解析】
36．下面VB程序的功能是求100～999间被3除多2，被5除多3的所有整数，并统计符合条件的数的个数。
Private Sub Command1_Click( )
Dim i As Integer，P As Integer
p＝0
For i＝100 To 999
If __①__ Then
List1.AddItem Str(i)
②__
End If
Next i
List1.AddItem Str(p)
End Sub
为实现上述功能，请在程序划线处填入合适的语句：
划线①处应填入的语句为：_____________________________________；
划线②处应填入的语句为：_____________________________________。
【答案】①i Mod 3＝2 And i Mod 5＝3 ②p＝p＋1
【解析】
37．小明设计了一个VB程序（界面如图所示），随机产生n（n<=100）个大于等于a(a<=100)且小于等于b(b<=100)的整数，并在列表框List1中降序显示。

实现上述功能的VB代码如下：
请在划线处填入合适代码。
Private Sub Command1_Click()
Dim a As Integer, b As Integer
Dim n As Integer, t As Integer
Dim m(1 To 100) As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
n = Val(Text3.Text)
If a > b Then t = a: a = b: b = t
Randomize
①
For i = 2 To n
m(i) = Int(Rnd * (b - a + 1)) + a
If m(i) > m(i - 1) Then
②
For j = i - 1 To 1 Step -1
If temp < m(j) Then Exit For
m(j + 1) = m(j)
Next j
③
End If
Next i
For i = 1 To n
List1.AddItem Str(m(i))
Next i
End Sub
程序①处的代码是
程序②处的代码是
程序③处的代码是
【答案】① m(1) = Int(Rnd * (b - a + 1)) + a
② temp = m(i)
③ m(j + 1) = temp
【解析】
38．将数学表达式写成VB程序设计语言表达式(2分) 。
【答案】(a+b)*(a-b)/(2*a)
【解析】
39．小明设计了一个名为“购物街”的程序，该程序功能如下：程序开始运行时显示一张商品图片，变量x存储商品价格，在文本框“Text1”输入猜测的价格y，点击“确定”按钮，判断输入的价格y与商品价格x的大小关系，并给出提示。当输入的价格y大于或小于x时，在“猜测情况”Label5中分别显示“太大”或“太小”的提示信息，当输入的价格y等于x时在“猜测情况”Label5中显示“恭喜你猜对了！”同时“Command1”按钮变为不可用。在“Label4”显示剩余猜测次数，程序提供5次猜测机会，当猜测次数为零时“Command1”按钮变为不可用。运行界面如图所示：

图1
(1)应用程序界面设计时，为添加标签对象，应使用图1所示的“控件工具箱”中的________(填写相应编号)。代码“Private Sub Form_Load()”中的load指的是________事件。
(2)请根据题意将下列程序补充完整。
①处应填写的代码为：______________________________________
②处应填写的代码为：______________________________________
Dim x As Integer
Dim t As Integer
Private Sub Form_Load()
t＝5 ’初始化猜测次数
x＝14 ’初始化商品价格
Command1.Enabled＝True
Label4.Caption＝Str(t)
End Sub
Private Sub Command1_Click()
t＝____①____
If t＝0 Then
Command1.Enabled＝False
End If
Label4.Caption＝Str(t)
Dim y As Integer
y＝Val(Text1.Text)
If ____②____ Then
Label5.Caption＝“太大”
ElseIf y＜x Then
Label5.Caption＝“太小”
Else
Label5.Caption＝“恭喜你对了！”
Command1.Enabled＝False
End If
End Sub
【答案】(1)4 窗体加载 (2)①t－1 ②y＞x
【解析】
40．根据程序设计语言基础知识回答以下问题。
（1）用二进制数编写程序的语言称为什么语言？
（2）Visual Basic、Pascal语言属于什么语言？
（3）所有的高级语言程序必须翻译成什么语言计算机才能执行？
【答案】（1）机器语言 （2）高级语言 （3）机器语言
【解析】
41．编写VB程序，实现计算器的简单计算功能：通过0~9的数字和小数点符号输入计算数据，单击选择“+、-、*、/”等运算，最后点击“=”按钮在文本框Text1中显示运算结果。界面如第14题-1图所示，回答下列问题：
Command11
Text1
Command3

要修改窗体的显示名称为“计算器”，应选择第14题-2图所示的 属性。
为实现上述功能，输入数据是非常重要的部分，以下是数字按钮“1”中的代码，用于在Text1中输入数字“1”，请在划线处输入合适的代码。
Private Sub Command11_Click()
Dim fuhao As ① '用于存储+、-、*、/等运算符号
Dim x As Single '用于存储第一个运算数
Dim y As Single '用于存储第二个运算数
Text1.Text = ②
If fuhao = "" Then
x = Val(Text1.Text)
③
y = Val(Text1.Text)
End If
End Sub
（3）运行测试通过之后，如果想让其他人能够直接运行使用，应该生成 格式文件。
【答案】（1）Caption （2）string，Text1.Text+“1”，else（3）exe
【解析】Fuhao变量用于保存运算符号，则用string数据类型。该命令按钮的作用是在文本框中的值的后面添加数字“1”，则语句应该是Teztl.Text=Textl.Text+“1”

评卷人
得分

四、操作题
42．请写出虚框内的vb代码（4分）

【答案】
If x<=100 then
y=2*(x+1)
else
y=2*x
end if

【解析】
43．如下程度段：
X=5
Y=-20
If Not x>0 Then x=y-3 Else y=x+3
该程序段运行后，y的值为：
【答案】8
【解析】
44．现要求编写VB程序（界面如图1所示），实现下列功能：计算一个大写字母在26个字母中的位次。程序运行时，在文本框Text1中输入一个大写英文字母，单击“计算”按钮Command1，在标签Label1上输出其在26个字母中的位次。

（1）在进行应用程序界面设计时，需要添加“计算”按钮，可使用如图2所示的“控件工具箱”中的_______________（填写相应编号），并在如图3所示的“属性窗口”中，将__________属性值设置为“计算”。（4分）

（2）该程序的源代码如下，请根据题意将代码中①处补充完整，使程序能正常运行。（2分）
Private Sub Command1_Click()
Dim ch As String, pos As Integer
① = Text1.Text
pos = Asc(ch) – 64
Label2.Caption = "第" + Str(pos) + "个字母"
End Sub
【答案】（1）3 Caption （2）ch
【解析】本题考查Visual Basic的界面设计，属性修改，和代码的阅读与填空，是对该软件的一个综合运用，考虑到是学业水平考试，而且加试部分有该知识点难度的提升，所以此处命题难度相对降低。

评卷人
得分

五、判断题
45．在VB窗口中建立命令按钮对象，改变命令按钮对象名称后，该命令按钮对象上显示改变的名称；（ ）
【答案】错误
【解析】
46．VB开发的应用程序的两个特征是“对象”和“事件驱动； （ ）
【答案】错误
【解析】
47．在VB窗口中建立命令按钮对象，双击该对象，建立的程序名称中的对象名和命令按钮对象名称相同；（ ）
【答案】正确
【解析】

21 / 21