高中信息技术VB枚举算法与程序实现浏览题阅览题会考复习题Word文档下载推荐.docx
《高中信息技术VB枚举算法与程序实现浏览题阅览题会考复习题Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《高中信息技术VB枚举算法与程序实现浏览题阅览题会考复习题Word文档下载推荐.docx（14页珍藏版）》请在冰豆网上搜索。
MsgBox（s）
上述程序段中
s=s*j的执行次数是（
）
A、400
B、401
C、200
D、201
答案】D
4•统计1〜1000间个位数是4,且能被9整除的数共有多少个，可以采用的算法是（）
A.查找算法B.枚举算法
C.解析算法D.排序算法
【答案】B
5.在游戏中经常有开数字密码锁得场景,已知一个6位数的密码锁,正确的数字顺序
组合是由下面一组数字426815经过两次冒泡排序得到,请问开锁的正确数字组合可能是（）。
答案】A
解析】
成第二遍的结果是（
A.
512，
613，
700，
900，
810
B.
810，
700
C.
D.
900
A.INT（RND（3）+1）
B.INT（RND*2+1）
C.INT（RND
（2）+1）
D.INT（RND*3+1）【答案】D
8.三个正整数a、b、c满足等式a2+b2=c2,a、b、c称为勾股数”，求出100以内所有“勾股数”可采用的算法是（）
A.枚举算法B.解析算法C.冒泡排序D.顺序查找
【答案】A
9.有如下VB程序：
DimiAsInteger,jAsInteger,kAsstring,nAsInteger
n=3
Listl.Clear
Fori=1Ton
k=〃〃
Forj=1Toi
k=k+〃*〃
List1.Addltemk
该程序运行后，在列表框List中显示的是（）
*
氓
黄
X*
*X
X
決
关
涤
10.关于枚举算,
法的说法错
当误的是
（
A.—般是通过循环中嵌套分支结构来实现的。
B.循环结构用来枚举”分支结构用于检验”
C.列举所有可能解的范围时，可以扩大但不能缩小，以防漏解。
D.采用枚举法时，也可能找不到符合条件的解。
等于100且小于200随机整数的VB表达式是
A、lnt（Rnd*100）B、lnt（Rnd*101+100）
C、Int（Rnd*99+100）D、Int（Rnd*100+100）
【答案】D
下列语句用于计算“s=1+4+7+10+…+25”值。
i
A.s二.p（p-a）（p-b）（p-c）
B.s二Sqr（p（p-a）（p-b）（p-c））
C.s=.：
：
；
p*（p-a）*（p-b）*（p-c）
D.s二Sqr（p*（p_a）*（p_b）*（p_c））
15.小李有一被污损的保修卡（如图），客服热线中有一个数字被污损掉了，找出这个数
字的适合算法是（）
F表:
a
（1）
a
（2）
a（3）
a（4）
a（5）
a（6）
a（7）
a（8）
12.8
13.3
12.3
12.6
13.5
12.1
13
13.8
若按升序排列，并采用冒泡排序算法自右向左进行比较和交换，那么前两轮排序的数据
交换总次
数为（）。
A.5B.6C.7D.8
17.三个正整数a、b、c满足等式a2+b2=c2,a、b、c称为勾股数”，求出100以内所
有勾股数
可采用的算法是（）
A、枚举算法B、解析算法C冒泡排序D、顺序查找
Dima（1To6）AsInteger
Dimn,i,j,kAsInteger
PrivateSubCommand1_Click（）
Fori=1Ton-1
Forj=
（1）Ton
Ifa（i）<
a（j）Then
k=a（i）:
（2）:
a（j）=k
EndIf
Fori=1Ton
list2.AddItemStr（a（i））
NextI
EndSub
PrivateSubText1_KeyPress（KeyAsciiAsInteger）
IfKeyAscii=13Then
n=n+1
a（n）=Val（（3））
List1.AddItemStr（a（n））
Text1.Text="
"
:
Text1.SetFocus
①程序中出现了text和list两种控件，其中list控件的中文名称是列表框，text控件的
中文名称是。
（2）在上述程序段中3处带序号的空白地方补充恰当的语句，完善程序。
【答案】①文本框
（1）i+1
（2）a（i）=a（j）（3）text1.text
佃.下面程序的功能是：
计算表达式1+3+5+…+（2n1）的值，在文本框Textl中输入n的
值，结果在文本框Text2中输出。
则程序中划线处的语句应填。
DimsumAsLong,iAsInteger,nAsIntegersum=0
n=Val（Textl.Text）
Fori=1To2*n-1Step2
Text2.Text=Str（sum）
【答案】sum=sum+i
20.王敏的E-Mail邮箱密码忘记了，但她需要收一封很重要的来信，请你帮她尽可能
找出密码。
她零星记得自己的密码信息：
1密码是六位数字，前面两位为31;
2最后两位数字相同；
3能被16和46整除。
程序界面如图所示，单击帮助找回密码”按钮（Command"
后，可能的密码显示在列表
框List1中。
口找密码□回O
f帮助找Mi密码i
I叩锻的密码有暑|纳to
315744
31H6J1K
解决此问题的相应程序如下：
DimaAsInteger,sAslongbAsIntegeriAsInteger
Fori=0To9999①
s=310000+i
IfsMod46=0Then
②
b=（sMod100）\100
Ifa=bThen
List1.AddltemStr（s）
（1）解决此问题的算法是（选填：
枚举算法或排序算法）
在程序①和②画线处，填入适当的语句或表达式，把程序补充完整:
（2）程序中①画线处应填入。
（3）程序中②画线处应填入。
【答案】⑴枚举算法
（2）step16（3）a=smod10
21.输入一个三位数的整数，要求将此三位数的各位上的数字重新排列，组成一个尽可
能大的三位数。
例如：
输入213，重新排列可得到尽可能大的三位数是321。
Text1中输入一个
现要求编写VB程序（运行界面如图所示），实现如下功能：
在文本框三位数整数，单击求解"
按钮Command1，在文本框Text2中显示重新组合后的最大三
max（x）用于求解最大三位数整
位数整数。
某同学按此要求编写的程序如下，其中函数
数，但加框处代码有错，请改正。
①②
Functionmax（xAsInteger）AsInteger
DimaAsInteger,bAsInteger,cAsInteger,tAsInteger
a=x\100
b=（x\10）\10'
①
c=xmod10
Ifa<
bThent=a:
a=b:
b=t
cThent=a:
a=c:
c=t
Ifb<
cThent=c:
c=b:
max=c*100+b*10+a'
②
EndFunction
DimnAsInteger,yAsInteger
n=Val（Text1.Text）
y=max（n）
Text2.Text=Str（y）
【答案】①（x\10）mod10②a*1OO+b*1O+c
22•现需计算1*2*3*……*n=?
如下程序段，在划线处填入合适的语句或表达式，完成程序。
s=1
i=1
DoWhilei<
=n
S=s*i
i=i+1
【答案】Loop
23•本程序要求完成的功能是：
计算
s=1/1+2/（1*2）+3心*2*3）+•-1+（1*2*3*…*的值。
请将已有VB代码补充完整。
n=inputbox（请输入n的值”）
s=0
（1）
Fori=1ton
s=s+
（2）
Prints
（1）
（2）
【答案】
（1）t=1
（2）i/t
24
VB程序找出任意两个整数之间
请根据算法将下列程序补充完整。
•素数：
只能被1和它本身整除的自然数。
要求编写
Functionprime（aAsIntegei）AsBoolean
DimjAsInteger
prime=True
j=2
DoWhileprimeAndj<
=a\2
IfaModj=0Then
prime=False
ExitDo
①
Loop
DimiAsInteger,aAsInteger,bAsInteger
DimcountAsInteger
a=Val（Text1.Text）
b=Val（Text2.Tex）t
Fori=aTob
If②=TrueThen
List1.AddItemStr（i）
count=count+1
Label1.Caption="
素数共有"
+Str（count）+"
个!
【答案】①j=j+1②prime（i）
【解析】本题考核VB基本语句含义的理解，自定义函数的应用。
25.有如下VisualBasic程序：
PrivateSubCommand1_Click（）
DimsAsInteger
DimIAsInteger
S=0
Fori=1To10
s=s+i\7
Text1.text=str（s）
Endsub
该程序段运行后，文本框Text1中显示
【答案】4
26.流程图是实现输出1－100之间所有能被7整除的整数。
若再要统计其个数，则要
设置一个计数器c,c=0如图所示，则计数器c=c+1应置于编号处。
输出t
【答案】2
27.如果一个整数是另一个整数的平方，则称该数是完全平方数”。
女如:
1=1X]4=2X2
9=3X3所以1、4、9是完全平方数。
编写程序，统计100到10000之间的所有完全平
方数的和。
（4分）
【答案】sum=0
fori=10to100
sum=sum+i*i
nextprintsum
升级会员 