高中信息技术VB应用程序的界面设计与调试浏览题阅览题会考复习题教学内容.docx
《高中信息技术VB应用程序的界面设计与调试浏览题阅览题会考复习题教学内容.docx》由会员分享，可在线阅读，更多相关《高中信息技术VB应用程序的界面设计与调试浏览题阅览题会考复习题教学内容.docx（29页珍藏版）》请在冰豆网上搜索。
高中信息技术VB应用程序的界面设计与调试浏览题阅览题会考复习题教学内容
高中信息技术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．在VisualBasic的代码窗口中，语句List1.Clear中的Clear是（ ）
A、属性值B、属性名C、对象名D、方法
【答案】D
【解析】
5．在VisualBasic工程设计中，双击窗体中的对象后，出现的是（）
A、工程窗口B、工具箱C、代码窗口D、属性窗口
【答案】C
【解析】
6．有如下VB程序段，该程序段运行后c的值是（）
a=”360”:
b=”safe”:
c=Val（a）+Len（b）
A．”360safe”B．360+safeC．364D．7
【答案】C
【解析】
7．如下所示在和之间的文本不能正常显示出来，是因为浏览器比较老，不支持样式表语法。
若要避免这种情况的发生（）
h3{
font-family:
”宋体”;
color:
green;
font-style:
italic;
}
A．必须更新新的浏览器
B．只要加入
--和-->代码
C．只要加入css
D．以上都不对
【答案】B
【解析】
8．有如下VB程序段：
bianliang_a=3:
bianliang_b=4
Label1.caption=“bianliang_a*bianliang_b”
该程序段运行之后，标签Label1将显示（）
A．3*4B．12
C．bianliang_a*bianliang_bD．3*4=12
【答案】C
【解析】
9．某VB的事件过程如下：
PrivateSubCommand1_Click（）
DimaAsInteger
a=Val（Text1.Text）
a=2*a+1
Text1.Text=Str（a）
EndSub
程序运行时，在文本框Text1中输入1，连续两次单击命令按钮Command1后，Text1中显示的内容是（）
A．7B．5C．3D．1
【答案】A
【解析】
10．（）不是程序设计中的高级语言。
A．wordB．VBC．C++D．Pascal
【答案】A
【解析】
11．如果想在程序中反复使用一个数值3.14，为了避免在编写程序时反复输入这个数据，也为了一次能够修改程序中所有用到的这个数据的语句，可以采用（）。
A、将这个数据声明为字符串型常量，用一个常量标识符代表它
B、将这个数据声明为字符串型变量，用一个变量标识符代表它
C、将这个数据声明为单精度型常量，用一个常量标识符代表它
D、将这个数据声明为单精度型变量，用一个变量标识符代表它
【答案】C
【解析】
12．有关下列语句说法不正确的是（）
①Ifa="b=c"ThenMsgbox（“这三个数相等”）ElseMsgbox（“这三个数不相等”）
②赋值语句a=b>c
③赋值语句a+b=c
④Msgbox（a+b=c）
A．语句①能运行，但逻辑上有错误
B．语句②能运行，且无任何逻辑错误
C．语句③不能运行
D．语句④不能运行
【答案】D
【解析】
13．一只漂亮的酒杯被摔碎了，则漂亮、酒杯、摔、酒杯被摔碎了分别代表的是（）
A、对象，属性，事件，方法
B、对象，属性，方法，事件
C、属性，对象，方法，事件
D、属性，对象，事件，方法
【答案】C
【解析】
14．运行如下所示的JavaScript代码，结果是m=10;n=4;i=（m-n）/n;alert（i）;
A．在弹出的提示框中显录消息“1”
B．在弹出的提示框中显录消息“1．5”
C．在弹出的提示框中显示消息“6/4”
D．在弹出的提示框中显示消息“i”
【答案】B
【解析】
15．VB中工程文件的扩展名为（）
A．basB．frmC．vbpD．ds
【答案】C
【解析】
16．在VisualBasic中，下列语句定义错误的是：
（）
（A）constg=9.8（B）DimFalseAsBoolea
（C）Dimb（1to5）AsString（D）DimyAsLong
【答案】B
【解析】
17．以下问题最适合用计算机编程方法来处理的是（）
A、记录同学参加社区服务情况
B、在因特网上查找自己喜欢的歌曲
C、编辑待发表的文稿
D、计算10000以内的偶数的平方和
【答案】D
【解析】
18．下列可以作为VB变量名的是（）
A．A&sB．A+SC．ASD．A_s
【答案】D
【解析】
19．如下图所示，在VisualBasic工程设计中，要在命令按钮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．在VisualBasic中进行窗体设计时，利用属性面板可以非常方便地对常用的属性进行设置。
请观察下图，并选择出正确的描述（）
A．“Text1”是类名，“TextBox”是对象名，“Text”是属性名，“点击输入”是属性值
B．“Text1”是对象名，“TextBox”是类名，“Text”是属性名，“点击输入”是属性值
C．“Text1”是对象名，“TextBox”是类名，“Text”是属性值，“点击输入”是属性名
D．Text1”是属性名，“TextBox”是对象名，“Text”是类名，“点击输入”是属性值
【答案】B
【解析】
25．VisualBasic、Java是面向对象的程序设计语言，它们属于
A．自然语言
B．高级语言
C．汇编语言
D．机器语言
【答案】B
【解析】
26．流程图的符号中，平行四边形框一般作为（）。
A．输入框B．处理框C．输入输出框D．起止框
【答案】C
【解析】
27．VB的字符串函数Len（X）的功能是计算字符串的长度，len（"1234abc"）的值为（）
A．0B．7C．11D．14
【答案】B
【解析】
28．若想只对当前页面应用样式，一般使用下列哪项：
（）
A．外联式样式表
B．内联式样式表
C．JavaScript样式表
D．VBSCRIPT样式表
【答案】B
【解析】
评卷人
得分
二、简答题
29．求所有百位数加十位数等于个位数的三位偶数的立方和。
（4’，流程图不给分）
请写出VB程序
【答案】S=0
X=100
Dowhilex<=998
ge=xmod10
shi=x\10mod10
bai=x\100
Ifbai+shi=gethen
S=s+x^3
Endif
X=x+2
Loop
Prints
【解析】
30．输出能被5整除的三位奇数
【答案】①jsmod5=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代码如下，但加框处代码有错，请改正。
PrivateSubCommand1_Click（）
DimiAsInteger,bAsString,LbAsInteger
Dims1AsInteger,s2AsInteger,tmpAsInteger
DimcAsString
Dimd（1To13）AsInteger'存储数据
DimresAsString'存储结果
b=Text1.Text'输入
Lb=Len（b）
s1=0:
s2=0
flag=True
res="输入错误！
"
IfLb=13Then
Fori=1To13
c=Mid（b,Lb-i+1,1）
Ifc>="0"Andc<="9"Then
d（i）=Val（c）'输入转换
Else
flag=False:
ExitFor
EndIf
Nexti
IfflagThen
Fori=2ToLbStep2
s1=s1+d（i）'参数计算1
s2=s2+d（i）'参数计算2①
Nexti
tmp=s1*3+s2
IftmpMod10Thenres="输入正确！
"②
EndIf
EndIf
List1.AddItemres
EndSub
【答案】
（1）s2+d（i+1）（2分）
（2）（10-tmpMod10）Mod10=d
（1）（2分）
【解析】
评卷人
得分
三、填空题
32．下列VB程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是，文本框Text2中显示的内容是。
PrivateSubCommand1_Click（）
Constn=4
Dima（1Ton）AsInteger,sAsInteger
DimiAsInteger,tAsInteger,kAsInteger
a
（1）=1:
a
（2）=2:
a（3）=a
（1）:
a（4）=0
s=0:
k=0
Fori=1Ton
t=a（i）
a（i）=k+t
k=t
s=s+a（i）
Nexti
Text1.Text=Str（a
（2））
Text2.Text=Str（s）
EndSub
【答案】3、5
【解析】
33．下列VB程序运行时，单击命令按钮Command1后，若在文本框中输入10，则标签Label1显示的内容是______
PrivateSubCommand1_Click（）
DimsjzsAsInteger
DimrjzsAsString
sjzs=Val（Text1.Text）
rjzs=""
DoWhileInt（sjzs/2）>0
rjzs=Str（sjzsMod2）+rjzs
sjzs=Int（sjzs/2）
Loop
Label1.Caption=rjzs
EndSub
【答案】1010或1010
【解析】
34．在一次校园歌手大奖赛中，有20位评委负责评判，打分的上限是10分。
统计选手得分时，去掉一个最高分，再去掉一个最低分，然后取评委打分的平均值作为选手的最后得分。
根据上述规则，信息小组设计了计算选手得分的程序。
核心部分的程序如下：
‘d数组中存放了20位评委的打分
Smax=0:
smin=10:
score=0
Fori=1To20
Nexti
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）>smaxThensmax=d（i）
【解析】
35．已知出租车计费方法如下：
路程在3公里以内（包含3公里）收起步价10元，路程超过3公里不超过10公里（包含10公里）部分按每公里2元计费，超出10公里部分按每公里3元计费。
现要设计一个VB出租车计费系统程序，在路程文本框中中输入路程数，单击计算按钮可以计算出应付金额并显示到金额文本框中，请回答以下问题：
图一
在设计该程序界面时，要从图二界面到图一界面，需要进行哪些设置？
________________________________________________________________
________________________________________________________________
为计算按钮添加单击事件后，并在其中添加程序代码，代码如下：
DimdAsSingle
DimfAsSingle
d=Val（Text1.Text）
Ifd<=3Then‘3公里以下计费
f=10
endif
Ifd>3Andd<=10Then‘3公里至10公里计费
‘①
EndIf
Ifd>10Then‘10公里以上计费
'②
EndIf
Text2.Text=Str（f）
请完善以上程序代码，在①，②处填入正确的语句
①________________________________
②________________________________
完善程序代码后，若输入路程数为10，则应付金额为________元
实现该程序所用的算法结构属于______________（选择结构/循环结构）
【答案】
（1）添加一个按钮设置caption属性值为“计算”，将窗体的caption属性值设置为“出租车计费系统”；
（2）f=10+（d-3）*2f=10+14+（d-10）*3；（3）24；（4）选择结构
【解析】
36．下面VB程序的功能是求100～999间被3除多2，被5除多3的所有整数，并统计符合条件的数的个数。
PrivateSubCommand1_Click（）
DimiAsInteger，PAsInteger
p＝0
Fori＝100To999
If__①__Then
List1.AddItemStr（i）
②__
EndIf
Nexti
List1.AddItemStr（p）
EndSub
为实现上述功能，请在程序划线处填入合适的语句：
划线①处应填入的语句为：
_____________________________________；
划线②处应填入的语句为：
_____________________________________。
【答案】①iMod3＝2AndiMod5＝3②p＝p＋1
【解析】
37．小明设计了一个VB程序（界面如图所示），随机产生n（n<=100）个大于等于a（a<=100）且小于等于b（b<=100）的整数，并在列表框List1中降序显示。
实现上述功能的VB代码如下：
请在划线处填入合适代码。
PrivateSubCommand1_Click（）
DimaAsInteger,bAsInteger
DimnAsInteger,tAsInteger
Dimm（1To100）AsInteger
a=Val（Text1.Text）
b=Val（Text2.Text）
n=Val（Text3.Text）
Ifa>bThent=a:
a=b:
b=t
Randomize
①
Fori=2Ton
m（i）=Int（Rnd*（b-a+1））+a
Ifm（i）>m（i-1）Then
②
Forj=i-1To1Step-1
Iftempm（j+1）=m（j）
Nextj
③
EndIf
Nexti
Fori=1Ton
List1.AddItemStr（m（i））
Nexti
EndSub
程序①处的代码是
程序②处的代码是
程序③处的代码是
【答案】①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所示的“控件工具箱”中的________（填写相应编号）。
代码“PrivateSubForm_Load（）”中的load指的是________事件。
（2）请根据题意将下列程序补充完整。
①处应填写的代码为：
______________________________________
②处应填写的代码为：
______________________________________
DimxAsInteger
DimtAsInteger
PrivateSubForm_Load（）
t＝5’初始化猜测次数
x＝14’初始化商品价格
Command1.Enabled＝True
Label4.Caption＝Str（t）
EndSub
PrivateSubCommand1_Click（）
t＝____①____
Ift＝0Then
Command1.Enabled＝False
EndIf
Label4.Caption＝Str（t）
DimyAsInteger
y＝Val（Text1.Text）
If____②____Then
Label5.Caption＝“太大”
ElseIfy＜xThen
Label5.Caption＝“太小”
Else
Label5.Caption＝“恭喜你对了！
”
Command1.Enabled＝False
EndIf
EndSub
【答案】
（1）4窗体加载
（2）①t－1②y＞x
【解析】
40．根据程序设计语言基础知识回答以下问题。
（1）用二进制数编写程序的语言称为什么语言？
（2）VisualBasic、Pascal语言属于什么语言？
（3）所有的高级语言程序必须翻译成什么语言计算机才能执行？
【答案】
（1）机器语言
（2）高级语言（3）机器语言
【解析】
41．编写VB程序，实现计算器的简单计算功能：
通过0~9的数字和小数点符号输入计算数据，单击选择“+、-、*、/”等运算，最后点击“=”按钮在文本框Text1中显示运算结果。
界面如第14题-1图所示，回答下列问题：
要修改窗体的显示名称为“计算器”，应选择第14题-2图所示的属性。
为实现上述功能，输入数据是非常重要的部分，以下是数字按钮“1”中的代码，用于在Text1中输入数字“1”，请在划线处输入合适的代码。
PrivateSubCommand11_Click（）
DimfuhaoAs①'用于存储+、-、*、/等运算符号
Dimx
升级会员 