vb第一阶段复习题含答案.docx
- 文档编号:20187441
- 上传时间:2023-04-25
- 格式:DOCX
- 页数:18
- 大小:94.35KB
vb第一阶段复习题含答案.docx
《vb第一阶段复习题含答案.docx》由会员分享,可在线阅读,更多相关《vb第一阶段复习题含答案.docx(18页珍藏版)》请在冰豆网上搜索。
vb第一阶段复习题含答案
Vb第一阶段复习题
一、选择题(单选题)
1、在VisualBasic语言中,对象能够执行的动作是
A)事件B)方法C)属性D)事件过程
2、要求窗体文件main.frm运行后,将焦点设置到name=text1的控件上,命令是:
__
A.name.setfocusB.text1.setfocus
C.name.setfocus=trueD.text1.setfocus=true
4、将数学表达式写成VisualBasic的表达式,其正确的形式是:
A)5*exp
(2)+Sin(a+b)^2B)5*exp
(2)+Sin^2(a+b)
C)5*ln
(2)+Sin(a+b)^2D)5*ln
(2)+Sin^2(a+b)
6、将变量va的值输出到标签控件上显示,使用的语句是:
___
A.text1.value=vaB.text1.caption=va
C.label1.caption=vaD.label1.value=va
8、设置按钮command1用鼠标单击不发生click事件,设置属性语句是:
_____
A.command1.visible=true B.command1.visible=false
C.command1.enabled=true D.command1.enabled=false
10、在文本框text1中输入数据,当焦点一旦离开,就能引发对象事件过程的执行的事件是:
_______
A.clickB.changeC.lostfocusD.gotfocus
11、对象.Print 方法是vb程序中用于输出数据的方法,对象1是指:
____
A.form,picturebox,printer,label1
B.form,picture1,printer,debug
C.form,picture1,label1,text1
D.form,picture1,label1,printer
12、下面程序的运行结果是:
PrivateSubForm_Click()
Dimmoney!
tax!
money=Val(InputBox("money=","input","3500"))
SelectCasemoney
CaseIs<=1000
Print"money=";money,"Tax=";0
Case1000To3000
Print"money=";money,"Tax=";(money-1000)*0.1
Case3000To6000
Print"money=";money,"Tax=";(money-3000)*0.15+200
CaseElse
Print"money=";money,"Tax=";(money-6000)*0.2+650
EndSelect
EndSub
A.money=1000tax=0B.money=3500tax=275
C.money=4500tax=425D.money=6500tax=750
13、下面程序的运行结果是:
PrivateSubForm_Click()
Dimyear1%,leap!
year1=Val(InputBox("nowyear=","input","2004"))
Ifyear1Mod100=0Then
Ifyear1Mod400=0Then
leap=1
Else
leap=0
EndIf
ElseIfyear1Mod4=0Then
leap=1
EndIf
If(leap)Then
Printyear1;"isleap"
Else
Printyear1;"isnotleap"
EndIf
EndSub
A.2004isleapB.2004is1C.2004isnotleapD.2004isnot0
14、下面程序的运行结果是:
PrivateSubForm_Click()
Dimm%,n%
m=1
Forn=1To10Step2
m=m+n
n=n+1
Nextn
Print"n=";n,"m=";m
EndSub
A.n=10m=22B.n=11m=23
C.n=13m=36D.n=13m=23
16、下面程序的运行结果是:
PrivateSubForm_Click()
Dimnum%,sum%,n%
sum=0:
n=1:
num=6
Whilen IfnumModn=0Then Print"+";n; sum=sum+n EndIf n=n+1 Wend Print"=";sum EndSub A.sum=6B.1;2;3=6C.+1+2+3=6D.+1+2+3+4+5+6=21 18、下面程序的运行结果是: PrivateSubform_click() Dims%,t%,m%,n%,K% m=3: s=0 Print"s="; Forn=1Tom Print"+";n;"! "; t=1 ForK=1Tom t=t*K NextK s=s+t Nextn Print"=";s EndSub A.s=6B.S=+1+2+3=6 C.S=+1! +2! +3! =18D.+1! +2! +3! =18 19、下面程序的运行结果是: PrivateSubForm_Click() Dimstr1$,chr1$ str1=InputBox("string=","input","Visual_basic是可视化面向对象的结构化高_级程序设计语言") chr1=Left(str1,1)+Mid(str1,8,1)+Right(str1,6) Printchr1 EndSub A.Va计语言B.Vb程序设计语言 C.V+a+计语言D.V+b+程序设计语言 20、下面程序的运行结果是: PrivateSubForm_Click() Dimstr1$,n Text1.Text="microsoft_visual_basic_programming" Text1.SelStart=17 Text1.SelLength=5 Text1.SelText="Foxpro" str1=Text1.Text n=Len(str1) Printstr1,nEndSub A.microsoft_visual_basic_programming34 B.Foxpro6 C.microsoft_visual_Foxpro_programming35 D.Foxpro_programming 二: 程序结果分析试题,将程序结果填于答卷对应位置. 1、 privatesubform_click() dimm%,n%,p% m=24: n=36 printm,n while(n<>0) p=mmodn: m=n: n=p printm,n,p wend endsub 2、 privatesubform_click() dima%,b%,sum%,k% a=0: b=1: sum=a+b fork=1to3 a=a+b: b=a+b: sum=sum+a+b print“+”;a;”+”;b; nextk print“=”;sum endsub 5.Privatesubform-click() Dimk1,k2,sum,try,tem,red,yu k1=2005 try=k1Mod10: k1=k1\10 tem=k1Mod10: k1=k1\10 red=k1Mod10: k1=k1\10 yu=k1Mod10 sum=yu+red+tem+try k2=try*1000+tem*100+red*10+yu Print"k1=";k1,"k2=";k2 Print"sum=";sum Endsub 本程序输出结果是: _________ 6. PrivateSubform_click() Dimsum%,p%,m%,i%,K% m=3: sum=0 Print"sum="; Fori=1Tom Print"+";i;"! "; p=1 ForK=1Tom p=p*K NextK sum=sum+p Nexti Print"=";sum EndSub 本程序输出结果是: _________ 7. PrivateSubform_click() Dima%,b%,c% a=5: b=9: c=12 a=a+b c=c-b ifa-c>b-cthena=b+c ifa-b>b-cthenb=a-c printa,b,c EndSub 8.下面程序的运行结果是: ________________________ Privatesubform_click() Dimstr1$,letter%,number%,other%,n% Letter=0: number=0: other=0 Str1=inputbox$(“输入字符串=”,”输入框”,”ab3+c,d_5$”) Forn=1tolen(str1) Selectcasemid$(str1,n,1) Case“a”to“z” Letter=letter+1 Case1to9 Number=number+1 Caseelse Other=other+1 Endselect Nextn Print“letter=”;letter,”number=”;number,”other=”;other Endsub 9.下面程序的运行结果是: ________________________ privatesubform_click() Dimsum%,C%,m%,n%,K% m=3: sum=0 Print"sum="; Forn=1Tom Print"+";n;"! "; C=1 ForK=1Ton C=C*K NextK sum=sum+C Nextn Print"=";sum endsub 11.下面程序的运行结果是: ___________ PrivateSubCommand1_Click() DimaAsInteger,sAsInteger a=8 s=1 Do s=s+a a=a-1 LoopWhilea<=0 Prints;a EndSub 12.下面程序的运行结果是: ___________ OptionBase1 PrivateSubCommand1_Click() d=0 c=10 x=Array(10,12,21,32,24) Fori=1To5 Ifx(i)>cThen d=d+x(i) c=x(i) Else d=d-c EndIf Nexti Printd EndSub 14.下面程序的运行结果是: ___________ PrivateSubCommand1_Click() Forn=1To12 IfnMod3<>0Thenm=m+n\3 Nextn Printn EndSub 三: 程序设计题 1.编程,输入x值,按下式计算并输出y值。 PrivateSubForm_Click() OnErrorGoToErrorHandler DimxAsSingle DimyAsSingle DimmStringAsString x=InputBox("请输入数字","提示",0) Ifx<=0Then y=0 mString="Y=0" ElseIfx>0Andx<1Then y=Sqr(x) mString="Y=X的平方根" ElseIfx>=1Andx<=3Then y=x*x mString="Y=X的平方" Else y=x+3 mString="Y=X+3" EndIf Print"X="&Format(x,"#0.0#")&","&mString Print"Y="&y Print ExitSub ErrorHandler: MsgBox"未知的错误"&Str(Err.Number)&"发生: "&Err.Description,vbCritical,"错误" EndSub 正确: PrivateSubForm_Click() x=InputBox("请输入x的值") Ifx<=0Then y=0 ElseIfx>0Andx<1Then y=x^(1/2) ElseIfx>=1Andx<=3Then y=x*x Else y=x+3 EndIf Printy EndSub 2.从键盘上输入二个正整数m、n,求它们的最大公约数cd和最小公倍数cm 提示: 1)对输入的数字要求过滤: 若输入为非正整数,或是其它符号,信息框提示“数据错误! ”, 并能立即清除文本框内容。 2)使用do循环结构编写程序。 PrivateSubCommand1_Click() Dimm%,n%,t%,r%,s% m=Val(InputBox("请输入一个正整数")) n=Val(InputBox("请输入一个正整数")) 'IfNotIsNumeric(Text1.Text)OrVal(Text1.Text)<0Then 'Text1.Text="" 'MsgBox"wrong" 'EndIf s=m*n Ifm m=n: n=t Do r=mModn m=n n=r LoopUntilr=0 Print"最大公约数cd是";m cm=s/m Print"最小公倍数cm是";cm EndSub 3.编程计算: 求 的近似值,直到最后一项的绝对值小于10-4为止。 PrivateSubCommand1_Click() Dimp,s,xAsDouble DimnAsInteger s=0: n=1 DoWhile1/(2*n-1)>=0.0001 p=1/(2*n-1) s=s+(-1)^(n-1)*p n=n+1 Loop Prints Prints*4 EndSub 4.如图示窗体: 输入三角形的三边长数据,若这组数据能构成三角形,计算出三角形的面积,不能构成三角形,弹出信息框“不能构成三角形”, [重试]: 重新输入数据,[取消]结束程序。 DimaAsSingle,bAsSingle,cAsSingle,pAsSingle,SAsSingle PrivateSubCommand1_Click() OnErrorGoToe a=InputBox("a=") b=InputBox("b=") c=InputBox("c=") p=(a+b+c)/2 Ifa S=Sqr(p*(p-a)*(p-b)*(p-c)) MsgBoxS Else GoToe EndIf ExitSub e: MsgBox"不能构成三角形" EndSub 正确: DimaAsSingle,bAsSingle,cAsSingle,pAsSingle,SAsSingle PrivateSubCommand1_Click() OnErrorGoToe a=Text1.Text b=Text2.Text c=Text3.Text p=(a+b+c)/2 Ifa S=Sqr(p*(p-a)*(p-b)*(p-c)) Text4.Text=S Else GoToe EndIf ExitSub e: MsgBox"不能构成三角形" EndSub 5.打印输出100-300之间所有的素数。 PrivateSubForm_Click() Dimi,j,kAsInteger Fori=101To300 k=Int(Sqr(i)) j=2 DoWhilej<=k IfiModj=0ThenExitDo j=j+1 Loop Ifj>kThenPrinti; Nexti EndSub 6.从键盘输入10个数,并使用冒泡法对其进行排序(从小到大)。 PrivateSubCommand1_Click() DimtAsInteger Dima(1To10)AsInteger Fori=1To10 a(i)=Int(Rnd*41+10) Nexti Fori=1To9 Forj=i+1To10 Ifa(i)>a(j)Then t=a(i) a(i)=a(j) a(j)=t EndIf Nextj Nexti Fori=1To10 Printa(i); Nexti EndSub 正确: PrivateSubCommand1_Click() Dima(1To10) Fori=1To10 a(i)=Val(InputBox("请输入第"&i&"个数")) Printa(i); Nexti Print Fori=1To9 Forj=10Toi+1Step-1 Ifa(j) a(j)=a(j-1): a(j-1)=b Nextj Nexti Fori=1To10 Printa(i); Nexti Print EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 第一阶段 复习题 答案