高中信息技术VB循环语句浏览题阅览题会考复习题Word格式.docx
- 文档编号:18062851
- 上传时间:2022-12-13
- 格式:DOCX
- 页数:27
- 大小:369.57KB
高中信息技术VB循环语句浏览题阅览题会考复习题Word格式.docx
《高中信息技术VB循环语句浏览题阅览题会考复习题Word格式.docx》由会员分享,可在线阅读,更多相关《高中信息技术VB循环语句浏览题阅览题会考复习题Word格式.docx(27页珍藏版)》请在冰豆网上搜索。
Fori=1To9
k=i
Forj=____①____To10
Ifa(j)>
a(k)Thenk=j
Nextj
Ifi<
>
kThen
__②____
EndIf
List2.Clear
List2.AddItemStr(i)+”=”+Str(a(i))
请在①、②划线处填入合适的语句或表达式,把程序补充完整:
程序中①划线处应填入__________________;
程序中②划线处应填入__________________。
【答案】①I+1;
②t=a(k):
a(k)=a(i):
a(i)=t
3.由“Fork=35To0Step3:
Nextk”循环语句控制的循环次数是_______。
A、12B、0C、-10D、-11
4.Subtest7()
Fori=1To6
S=S+(-1)^i*2^i
MsgBox(S)
Endsub
该程序的运行结果是()
A、126B、-126C、-42D、42
【答案】D
5.Subtest2()
a=12:
b=12:
c=5
Label1.Caption="
"
Label2.Caption="
Ifa>
bOrNotb<
cThen
monday"
Else
tiger"
EndIf
Label3.Caption="
Label1.Caption+"
Label2.Caption
该程序段运行后,在标签Label3的Caption属性值是()
A."
B."
C."
mondaytiger"
D."
【答案】A
6.根据下列程序段运行后a的值,划线处应该填入的合理数据类型为()
DimaAs________
a=1
Fori=1To8
a=a*i
A、IntegerB、LongC、SingleD、Double
7.小金编写了VB程序,部分程序如下所示,在调试程序的时候出现如图所示的错误信息:
DimxAsString,iAsInteger
Fori="
1"
To10
IfiModx="
Then
x="
奇数"
偶数"
……
产生此错误的语句是()。
A.ForB.EndIf
C.NextD.If
8.下图是当循环、直到循环两种循环结构,请结合下图选择下列说法中正确的是()
A.当循环是当条件成立退出循环
B.当循环不可能出现不执行循环步骤的情况
C.直到循环是条件成立时执行循环步骤
D.直到循环至少执行一次循环步骤
9.对以下程序段的说法正确的是()
s=0
i=0
DoWhiles<
10
i=i+1
s=s+i*i
Loop
A.该程序的循环体执行了3次
B.该程序段结束后i的值为3
C.该程序段结束后i的值为4
D.该程序段结束后s的值为13
【答案】ABD
10.某算法的流程图如下所示:
当输入a、b、c的值分别为5、2、8时,该算法的输出结果为()
A.8B.2C.5D.7
11.若输入两数1,-4,输出结果_______
A.-5B.-3
C.5D.3
【答案】C
12.某算法要实现0到100的偶数之和,流程图如图所示。
则iß
i+2被执行的次数是
2
A.50B.51C.100D.101
13.在某银行取款机上,用户银行卡密码验证的过程如下图所示:
当用户输入密码时,若第1次输入错误,第2次输入才正确,则整个操作过程的执行流程是()
A、①→②→③→④→⑤
B、①→②→③→④→⑥→⑦
C、①→②→③→④→⑥→②→③→④→⑤
D、①→②→③→④→⑥→⑦→②→③→④→⑤
14.求两数之和的算法是:
输入两数a和b的值,计算c=a+b,输出c的值。
该算法的基本结构属于()。
A.顺序结构B.选择结构C.循环结构D.框架结构
15.下列VB程序段的运行结果是:
Dima(1To3)AsInteger
a
(1)=1
Fori=2To3
a(i)=2*a(i-1)+1
Next
Printa(i-1)
A、0B、3C、7D、15
16.有如下程序段:
Fori=1To2
Forj=2To7-i
Ifa(j)>
a(j-1)Then
k=a(j):
a(j)=a(j-1):
a(j-1)=k
数组元素a
(1)到a(6)的值依次为“71,54,58,29,31,78”,经过该程序段“加工”后,下列说法正确的是()
A.数组元素a
(1)到a(6)的值依次为54,29,31,58,71,78
B.此过程中数据共需比较次数为8次
C.此过程中数据共需交换次数为5次
D.此过程中数据“54”共被比较5次
17.某算法的部分流程图如第5题图所示。
执行这部分流程后,“x←x—2”被执行的次数为
A.0B.1C.2D.3
18.有如下VB程序,它的输出结果是
S=0
Fori=1To10
Ifimod2=0ThenS=S+i
Nexti
Print“S=”;
S
A.S=0B.S=25C.S=30D.S=55
19.下列VB程序段运行完毕后,变量x的值为
x="
2"
:
y=64
Dowhilex<
=Sqr(y)
x=x+3
A.2B.5C.8D.11
20.某算法流程图如图所示,执行该算法后,“s←s+i”共被执行的次数是()
A.0B.6C.7D.8
21.小明编写一个模拟qq登录的VB程序。
当输入用户名、密码和验证码,点击登录按钮后,会跳出信
息框提示是否验证成功。
部分程序与流程图如下所示:
uname=Text1.Text'
输入用户名
psd=Text2.Text'
输入密码
vcode=Val(Text3.Text)'
输入验证码
Ifvcode<
Val(Label3.Caption)Then
MsgBox“”
①
'
Label3显示的是随机验证码
ElseIfuname<
"
admin"
Orpsd<
123456"
MsgBox“
②
”
Else
③
方框中正确的语句是()。
A.①中“验证成功”B.②中“输出用户名或密码有误”
C.②中“验证成功D.③中“输出验证码错误”
Subtest3()双重循环运行输出图形与3重复,但3已改题
To22.step1
s="
Forj="
To2*i-1
s="
Str(j)"
+s
List1.AddItems
该程序的运行后列表框输出的第三行是()
A.33333
B.55555
C.12345
D.54321
23.若输入28,以上代码输出结果是。
Dimxaslong
x=inputbox(“输入x的值”)
y="
x"
mod7
ify="
4"
ory="
5"
6"
then
xq=y-3
else
xq=y+4
endif
printxq
【答案】4
24.下列为部分VB程序语句代码:
()
s=32
Fori=1To10Step
s=s/2
上述程序语句执行结束后,s的值为2,则循环语句的步长(划横线处)应填()
A.1B.2C.3D.4
25.如图所示的部分流程图中,“s←s+i”被执行次数为()
A.0B.1
C.32D.33
26.以下语句中错误的是()
A.Constvar1=123
B.Dimvar2AsString
C.x+y=9
D.Dimd(1to500)AsDouble
27.以下关于循环结构的描述中,正确的是()。
A.与分支结构不同,循环结构一定会对循环条件进行多次判断。
B.循环结构中,重复执行的内容有时候一次都不被执行。
C.在循环结构的流程图中,除了有向下的流程线外还应有向上返回的流程线。
D.根据实际需要,在流程图中可出现多个循环结构。
【答案】BCD
二、操作题
28.求两个整数的最大公约数分析:
求最大公约数的算法思想:
(1)对于已知两数m,n,使得m>
n;
(2)m除以n得余数r;
(3)若r=0,则n为求得的最大公约数,算法结束;
否则执行(4);
(4)m←n,n←r,再重复执行
(2)。
例如:
求m=14,n=6的最大公约数.
Mnr
1462
620
请根据以上思路补充下面的程序代码:
m=InputBox("
m="
)
n=InputBox("
n="
Ifm<
nThent=m:
m=n:
n=t
r=________________
DoWhile(r<
0)
m=n
n=r
r=mModn
Print"
最大公约数="
n
【答案】mmodn
三、填空题
29.有如下VisualBasic程序段:
n=1
fori=4to1step-1
n=n*i
s=s+a
nexti
问:
该程序段运行后,
(1)共循环___________次。
(2)变量s的值是___________。
【答案】
(1)4
(2)64
30.小贝对街机中的”打手掌”游戏很感谢兴趣,于是也用VB做了个打手游戏,界面如图。
点击开始按钮command1,标签label1开始从3秒倒计时,倒计时结束开打,如果打中手掌,label1显示”打中了”,如果超过去3.1秒,则显示”没打中”,游戏结束。
点开始按钮可以重来。
请根据题意将下列程序补充完整。
DimtAsInteger‘t用来计时
PrivateSubCommand1_click()
Image1.left=64
Label1.caption=””
t=0
Timer1.interval=100
(1)______________
Image1.Enabled=False
PrivateSubImage1_click()
Timer1.Enabled=False
Image1.Enadled=False
Label1.caption=”打中了”
PrivateSubTimer1.Timer()
t=t+1
ift<
=30thenlabel1.caption=3-int(t/10)
ift>
32then
label1.caption=”没打中”
Fori=1to10‘手迅速移开的动画
Image1.left=Image1.left-20
Forj=1to10000
Doevents
Nextj
Endif
Ift=30then
‘当t=30时,即倒计时3秒结束,允许开打,对象image1开始允许响应事件
(2)_____________
(1)timer1.enabled=true
(2)image1.enabled=true
31.用VB编写的函数bubble_sort是一个用冒泡方法实现排序的函数,其调用时需要三个参数:
布尔类型参数sx来确定是升序还是降序,sx为True时为升序,否则为降序;
整数型数组a()是待排序的数据,数据从a
(1)开始存放;
整数型参数n表示传入的数组长度,该函数的返回值也是一个整数型数组。
所以调用此函数实现排序非常方便:
比如有一个整数型数组a(1to10)需要降序排序,可以直接这样调用:
a()=bubble_sort(False,a(),10)
该函数VB代码如下:
Functionbubble_sort(sxAsBoolean,a()AsInteger,nAsInteger)AsInteger()
Dimi,j,tAsInteger
Fori=1Ton-1
Forj=____①____Step-1
If____②____Then
Ifa(j)<a(j-1)Thent=a(j):
a(j)=a(j-1):
a(j-1)=t
Ifa(j)>a(j-1)Thent=a(j):
EndIf
bubble_sort=a()
EndFunction
请将代码补充完整:
①___________________________________________。
②___________________________________________。
(1)ntoi+1
(2)sx或者sx=True
32.已知出租车计费方法如下:
路程在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公里计费
‘①
10Then‘10公里以上计费
②
Text2.Text=Str(f)
请完善以上程序代码,在①,②处填入正确的语句
①________________________________
②________________________________
完善程序代码后,若输入路程数为10,则应付金额为________元
实现该程序所用的算法结构属于______________(选择结构/循环结构)
(1)添加一个按钮设置caption属性值为“计算”,将窗体的caption属性值设置为“出租车计费系统”;
(2)f=10+(d-3)*2f=10+14+(d-10)*3;
(3)24;
(4)选择结构
33.某同学编写了VB程序其功能和界面如下所示。
在文本框(text1)中输入一段英文,点击“统计删除”按钮,在标签(Label3)中显示该语句中最长的单词(如有多个长度相同的单词则显示靠后的单词),在标签(Label5)中显示该单词的字符长度,在标签(Label7)中显示删除该单词后的句子。
DimsAsInteger,imaxAsInteger,pimaxAsInteger,tAsInteger
DimsourceAsString
source=Text1.Text
s=Len(source)
imax=1
pimax=1
t=0
Fori=1Tos
d=____①____
If(d>=“a”Andd<=“z”)Or(d>=“A”Andd<=“Z”)Then
____②____
Ift>=imaxThen
imax=t
____③____
Label3.Caption=Mid(source,pimax,imax)
Label5.Caption=imax
Label7.Caption=____④____+Mid(source,pimax+imax,s-imax)
①处程序代码为_________________________________________________。
②处程序代码为_________________________________________________。
③处程序代码为_________________________________________________。
④处程序代码为_________________________________________________。
【答案】①Mid(source,i,1)②t=t+1③pimax=i-t
④Mid(source,1,pimax-1)
34.求结果
(1)输入356,输出结果:
DimxasInteger
a=xmod10
b=int(x/10)mod10
c=x\100
s=a+b+c
prints
(2)输入a=1,b=2,输出结果:
(3)输出结果:
(4)输入8,输出结果:
(1)14
(2)2.5(3)87856(4)105
35.小明编写了一个VB程序,功能如下:
在文本框Text1中输入一段英文,并在文本框Text2中输入英文段落中的某个单词(或字符串),单击“最大间距”按钮(Command1)后,在文本框Text3中显示该单词在文中某两次出现的最大间距,若只出现一次或不出现则显示值为0。
程序运行界面如下图所示:
实现上述功能的VB程序如下:
PrivateSubCommand1_Click()
Dima(1To1000)AsString'
数组a存储文中出现该指定单词(或字符串)的各个位置
DimsAsString,cAsString,chAsString
DimnAsInteger,maxAsInteger,iAsInteger
s=Text1.Text
c=Text2.Text
n=0:
Max=0
Fori=1ToLen(s)-Len(c)+1
ch=①
Ifch=cThen
n=n+1
a(n)=i
Ifn>
=2Then[来源:
学|科|网Z|X|X|K]
Ifa(n)-a(n-1)-Len(c)>
MaxThenMax=a(n)-a(n-1)-Len(c)
Text3.Text=②
以上程序段运行时,为了实现上述功能,划线处①和②应填入的代码分别为:
(1)_______________________________;
(2)_______________________________
【答案】⑴(2分)Mid(s,i,Len(c))⑵(2分)Str(Max)
36.某VisualBasic程序如下:
DimxAsInteger,yAsIn
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 高中 信息技术 VB 循环 语句 浏览 阅览 会考 复习题