单项选择题共11题.docx
- 文档编号:1317565
- 上传时间:2023-04-30
- 格式:DOCX
- 页数:19
- 大小:64.09KB
单项选择题共11题.docx
《单项选择题共11题.docx》由会员分享,可在线阅读,更多相关《单项选择题共11题.docx(19页珍藏版)》请在冰点文库上搜索。
单项选择题共11题
一、单项选择题(共11题)
1.以下()是正确的For...Next结构。
A.
Forx=1ToStep10
...
Nextx
B.
Forx=3To-3Step-3
...
Nextx
C.
Forx=1To10
re:
...
Nextx
Ifi=10ThenGoTore
D.
Forx=3To10Step3
...
Nexty
答案:
B
2.下列循环体能正常结束的是()。
A.
i=5
Do
i=i+1
LoopUntili<0
B.
i=1
Do
i=i+2
LoopUntili=10
C.
i=10
Do
i=i+1
LoopUntili>0
D.
i=6
Do
i=i-2
LoopUntili=1
答案:
C
3.下面程序段的运行结果为()。
=""
Fori=3To1Step-1
&=Space(5-i)
Forj=1To2*i-1
&="*"
Nextj
&=vbCrLf
Nexti
A.
*
***
*****
B.
*****
***
*
C.
*
***
*****
D.
*****
***
*
答案:
B
4.当在文本框输入"ABCD"四个字符时,窗体上显示是()。
SubTextBox1_TextChanged(ByValsenderAst,
ByValeAsArgs)Handleshanged
&=
EndSub
A.
ABCD
B.
A
B
C
D
C.
AABABCABCD
D.
A
AB
ABC
ABCD
答案:
C
5.下列程序段不能分别正确显示1!
、2!
、3!
、4!
的值的是()。
A.
Fori=1To4
n=1
Forj=1Toi
n=n*j
Nextj
MsgBox(n)
Nexti
B.
Fori=1To4
Forj=1Toi
n=1
n=n*j
Nextj
MsgBox(n)
Nexti
C.
n=1
Forj=1To4
n=n*j
MsgBox(n)
Nextj
D.
n=1
j=1
DoWhilej<=4
n=n*j
MsgBox(n)
j=j+1
Loop
答案:
B
6.下面哪种不是循环结构()。
A.Try……Catch……EndTryB.For……Next
C.ForEach……NextD.Do……Loop
答案:
A
7.For-Next循环结构中,若循环控制变量的步长为0,则()。
A.形成无限循环B.循环体执行一次后结束循环
C.语法错误D.循环不执行即结束循环
答案:
A
8.“x是小于50的非负数”,用VB.NET表达式表示正确的是()。
A.0≤x<50B.0<=xAndx<50
C.0<=x<50D.0<=xOrx<50
答案:
B
9.以下程序输出1到1000之间所有的偶数之和,请补充完该程序。
PrivateSubCommand_Click()
DimxAsDouble
ForI=0To1000
If()Then
x=x+I
EndIf
NextI
Printx
EndSub
A.iMod2=0B.xMod2=0C.IMod2<>0D.xMod2<>0
答案:
A
10.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
c=1234
c1=Trim(Str(c))
fori=1to4
Print()
Next
EndSub
程序运行后,单击命令按钮,要求在窗体上显示如下内容:
1
12
123
1234
则在()处应填入的内容为()。
A.Right(c1,i)B.Left(c1,i)C.Mid(c1,i)D.Mid(c1,i,1)
答案:
B
11.阅读程序:
PrivateSubCommand1_Click()
a=0
Forj=1To15
a=a+jMod3
Nextj
Printa
EndSub
程序运行后,单击按钮,输出结果是()。
A.105B.1C.120D.15
答案:
D
二、填空题(共6题)
1.要使下列For语句循环执行20次,循环变量的初值应当是:
Fork=()To-5Step-2
答案:
33
2.下面程序段显示()个"*"。
Fori=1To5
Forj=2Toi
MsgBox("*")
Nextj
Nexti
答案:
10
3.下列第40句共执行了()次,第41句共执行了()次。
30Forj=1To12Step3
40Fork=6To2Step-2
41MsgBox(j&""&k)
42Nextk
43Nextj
答案:
4,12
4.输入任意长度的字符串,要求将字符顺序倒置。
例如,将输入的"ABCDEFG"变换成"GFEDCBA"。
SubButton1_Click(ByValsenderAst,
ByValeAsArgs)Handles
Dima$,I%,c$,d$,n%
a=InputBox$("输入字符串")
n=(
(1))
d=""
ForI=1To(
(2))
c=Mid(a,I,1)
d=d&c
NextI
MsgBox(d)
EndSub
答案:
(1)len(a)
(2)n
5.找出被3、5、7除,余数为1的最小的5个正整数。
SubButton1_Click(ByValsenderAst,
ByValeAsArgs)Handles
DimCountN%,n%
CountN=0
n=1
Do
n=n+1
If(
(1))Then
MsgBox(n)
countN=CountN+1
EndIf
Loop(
(2))
EndSub
答案:
(1)nMod3=1AndnMod5=1Andnmod7=1
(2)UntilcountN>=5
6.有个长阶梯,如果每步跨2阶最后剩1阶,如果每步跨3阶最后剩2阶,如果每步跨4阶最后剩3阶,如果每步跨5阶最后剩4阶,如果每步跨6阶最后剩5阶,只有当每步跨7阶时恰好走完,显示这个阶梯至少要有多少阶。
提示:
利用其肯定是7的倍数这个条件,然后根据同时满足除n余m(n=2,3,4,5,6;m=1,2,3,4,5)的逻辑关系即可。
SubButton1_Click(ByValsenderAst,
ByValeAsArgs)Handles
Dimn%,m%
Forn=7To10000Step7
IfnMod2=1And(
(1))Then
MsgBox(n)
(
(2))
EndIf
Next
EndSub
答案:
(1)nMod3=2AndnMod4=3AndnMod5=4AndnMod6=5
(2)ExitSub
三、应用题(共9题)
1.某班在一周中6天内考三门分别为x、y、z的考试课程,规定一天只能考一门,先考x,后考y,最后考z,最后一门最早周五考。
用计算机排考试,列出满足条件的方案数。
SubButton1_Click(ByValsenderAst,
ByValeAsArgs)Handles
Dimx%,y%,z%,n%
n=(
(1))
=""
Forx=1To4
Fory=(
(2))To5
Forz=5To6
If((3))Andy &=x&space(9)&y&Space(9)&z&vbCrlf ((4)) EndIf Next Next Next ((5))"满足条件的方案为;"&n EndSub 答案: (1)0 (2)2 (3)x (4)n=n+1 (5)Msgbox 2.某次大奖赛,有7个评委打分,以下程序是针对一名参赛者,输入7个评委的打分分数,去掉一个最高分、一个最低分,求出平均分,为该参赛者的得分。 SubButton1_Click(ByValsenderAst, ByValeAsArgs)Handles Dimmark! aver! max1! min1! aver=0 Fori=1To7 mark=InputBox("输入第"&i&"位评委的打分") Ifi=1Then max1=mark ( (1)) Else Ifmark ( (2)) ElseIfmark>max1Then ((3)) EndIf EndIf ((4)) Nexti aver=((5)) MsgBox(aver) EndSub 答案: (1)min1=mark (2)min1=mark (3)max1=mark (4)aver=aver+mark (5)(aver-min1-max1)/5 3.用下列多项式可求得π的近似值: 计算当n不超过300时π的近似值。 SubButton3_Click(…)Handles Dimpi#,t#,n#,s% pi=( (1)) n=1 s=1 Do n=n+2 t=( (2)) s=((3))'用于分式正负符号转换 pi=pi+s*t LoopWhile((4)) ="当n="&n-2&"时,"&"pi="+((5)) EndSub 答案: (1)1 (2)1/n (3)-s (4)n<=300 (5)4*pi 4.求1000以内满足如下条件的正整数N: 它的各个因子(包括1和N)之和sum是一个素数。 例如: 25的因子为1、5、25,其和1+5+25=31是素数。 程序的思想是选取正整数N,分解其因子,并累加,子过程Prime用于判断累加和是否是素数,若是素数,在文本框内显示所求结果。 SubButton1_Click(……)Handles DimflgAsBoolean,i%,sum%,n%,t$,m% ="" Forn=2To1000 sum=1: i=2 t="1"'存放各个因子之和表达式 DoWhile( (1))'求给定正整数的所有因子 IfnModi=0Then sum=( (2)) t&="+"&i EndIf i+=1 Loop t=t&"="&sum flg=((3)) Form=2ToSqrt(s) IfsumModm=0Then flg=((4)) ExitFor'非素数时,跳出 EndIf Next IfflgThen &=Str(n)&": "&((5))&vbCrLf EndIf Next EndSub 答案: (1)i*i<=n (2)sum+i (3)True (4)False (5)sum 5.李小姐忘记了自己的保险箱密码,但是她记得首尾数字为6和5(6□□5),密码能被69和95整除。 请您完善程序帮她找回密码! PrivateSubCommand1_Click() DimaAsLong Fora=6005To( (1))Step10 If(aMod69=0)And( (2))Then Printa EndIf Next((3)) EndSub 答案: (1)6995 (2)amod95 (3)a 6.输入若干个字符,统计有多少个元音字母,有多少个其他字母,直到按Enter键结束,显示结果,大、小写不区分。 其中CountY中放元音字母个数,CountC中放其他字符数。 DimCountY%,CountC% SubTextBox1_KeyPress(ByValsenderAsObject, ByValAsws.EventArgs)Handlesess DimcAsChar c=( (1)) If"A"<=cAndc<="Z"Then SelectCase( (2)) Case((3)) CountY=CountY+1 CaseElse ((4)) EndSelect EndIf If((5))Then MsgBox("元音字母有"&CountY&"个") MsgBox("其他字母有"&CountC&"个") EndIf EndSub 答案: (1)UCase(e.KeyChar) (2)c (3)"A","E","I","O","U" (4)CountC=CountC+1 (5)Asc(c)=13 7.编写程序并求所有的水仙花数。 (水仙花数: 该数是3位数,其各位数字的立方和等于该数,如153=1^3+2^3+3^3,所以153是一个水仙花数。 )编程结果如图所示: 参考答案: PrivateSubButton1_Click(ByValsenderAst,ByValeAsArgs)Handles Dimx,a,b,cAsInteger Forx=100To999 a=x\100 b=x\10Mod10 c=xMod10 Ifa^3+b^3+c^3=xThen =Trim(CStr(x))+","+ EndIf Nextx EndSub 8.我国古代数学家在《算经》中出了一道题: “鸡翁一,值钱五;鸡母一,值钱三;鸡雏三,值钱一。 百钱买百鸡,问鸡翁、母、雏各几何? ”编程,结果如图所示: 参考答案: PrivateSubButton1_Click(ByValsenderAst, ByValeAsArgs)Handles DimCock,Hen,ChickenAsInteger DimiAsInteger=0 ForCock=1To19 ForHen=1To33 Chicken=100-Cock-Hen If(ChickenMod3=0)Then If(Cock*5+Hen*3+Chicken/3=100)Then i=i+1 =+"方案"+CStr(i)_ +"公鸡: "+CStr(Cock)+"母鸡: "+CStr(Hen)_ +"小鸡: "+CStr(Chicken)+Chr(13)+Chr(10) EndIf EndIf NextHen NextCock EndSub 9.编写一个程序,用来输入一个直角三角形的斜边和一个直角边的长度,输出该直角边对应的角的正弦、余弦和正切值。 程序的运行界面如图所示: 参考答案: Imports PrivateSubButton1_Click(ByValsenderAst, ByValeAsArgs)Handles Dima,cAsSingle c=Val() a=Val() =CStr(a/c) =CStr(Sqrt(1-(a/c)^2)) =CStr(/) EndSub PrivateSubTextBox1_TextChanged(ByValsenderAst,ByValeAsArgs)Handleshanged () EndSub PrivateSubButton2_Click(ByValsenderAst,ByValeAsArgs)Handles End EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 单项 选择题 11