高中信息技术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