VB课后习题答案汇总.docx
- 文档编号:9619868
- 上传时间:2023-02-05
- 格式:DOCX
- 页数:39
- 大小:31.10KB
VB课后习题答案汇总.docx
《VB课后习题答案汇总.docx》由会员分享,可在线阅读,更多相关《VB课后习题答案汇总.docx(39页珍藏版)》请在冰豆网上搜索。
VB课后习题答案汇总
课后习题参考答案
第1章VisualBasic6.0
一、判断题
1--5:
√×√×√6――10:
××√×√11――13:
√××
二、选择题
1――5:
ADBBB6――10:
.CACDB
三、填空题
1、图片框和框架
2、对象
3、控件屏幕
4、Load
5、LoadActivate
四、程序设计题
1、
PrivateSubCommand1_Click()
PrintText1.Text
EndSub
PrivateSubCommand2_Click()
End
EndSub
2、
PrivateSubCommand1_Click()
Form1.FontSize=Form1.FontSize+3
Print"青春无悔"
EndSub
PrivateSubCommand2_Click()
FontSize=FontSize-3
Print"青春无悔"
EndSub
PrivateSubCommand3_Click()
Form1.FontBold=True
Print"青春无悔"
EndSub
PrivateSubCommand4_Click()
FontBold=False
Print"青春无悔"
EndSub
3、
PrivateSubCommand1_Click()
Text1.Visible=False
EndSub
PrivateSubCommand2_Click()
Text1.Visible=True
Text1.FontName="楷体_gb2312"
Text1.FontSize=15
Text1.Text="我学会了创建一个应用程序了!
"
EndSub
第二章
判断题:
1~5
错错错错错
第3章顺序结构程序设计
一、思考题略
二、程序阅读题
1.A=2B=1C=2
2.12
3.BABCBACBC
4.12False
5.1-12-123-1234-
三、选择题
1.B2.D3.B4.B5.D6.C
四、程序设计题
1.
Privatesubform_click()
Dimr!
s!
R=val(inputbox(“r=”))
S=3.14159*r*r
Print“s=”;s
Endsub
2.
Privatesubform_click()
Dimxassingle
X=val(inputbox(“x=”))
Printfix(x*x*1000)/1000,fix(sqr(x)*1000)/1000
Endsub
第4章选择结构程序设计
一、判断题
1.错2.错3.错4.错5.对
二、选择题
1.A2.D3.A4.B5.A6.A
三、程序阅读题
1.
X=3y=7
2.
w=4
w=13
w=135
w=31
3.
X_`a12Uvw&
4.
129
四、程序填空题
1.
(1)chr(keyascii)
(2)chr(keyascii)=”)”(3)count1=count1-1(4)count1=0
(5)count1>0
2.
(1)max
(2)min(3)c>max(4)c 3. (1)xmod3=2andxmod5=3andxmod7=4then (2)text1.setfocus(3)text1.selstrat=0(4)text1.sellength=len(text1.text) 五、 1. PrivateSubCommand1_Click() DimyAsInteger y=Val(InputBox("y=")) If(yMod4=0AndyMod100<>0)Or(yMod400=0)Then Print"是闰年" Else Print"不是闰年" EndIf EndSub PrivateSubCommand1_Click() DimyAsInteger,y1asstring y=Val(InputBox("y=")) If(yMod4=0AndyMod100<>0)Or(yMod400=0)Then Y1="是闰年" Else Y1="不是闰年" EndIf ? y,y1 EndSub PrivateSubCommand1_Click() DimyAsInteger,y1asstring y=Val(InputBox("y=")) Y1="不是闰年" If(yMod4=0AndyMod100<>0)Or(yMod400=0)Then Y1="是闰年" EndIf ? y,y1 EndSub 2. PrivateSubCommand1_Click() Dima%,b%,c%,x! s! a=Val(InputBox("a=")) b=Val(InputBox("b=")) c=Val(InputBox("c=")) Ifa+b>cAnda+c>bAndb+c>aThen x=(a+b+c)/2 s=Sqr(x*(x-a)*(x-b)*(x-c)) Print"s=";s Else Print"不是三角形,重输a,b,c" EndIf EndSub PrivateSubCommand1_Click() Dima%,b%,c%,x! s! t% a=Val(InputBox("a=")) b=Val(InputBox("b=")) c=Val(InputBox("c="))‘a,b,c=3,4,5 t=0 Ifa+b>cAnda+c>bAndb+c>aThen x=(a+b+c)/2 s=Sqr(x*(x-a)*(x-b)*(x-c)) t=1 EndIf Ift=0then ? “不是“ endif EndSub 3. PrivateSubCommand1_Click() Dimx! y! x=Val(InputBox("x=")) y=x*x-x–x Ifx<0Andx<>-3Then y=x*x+x-6 ElseIf0<=xAndx<10Andx<>2Andx<>3Then y=x*x-5*x+6 EndIf Print"x=";x,"y=";y EndSub PrivateSubCommand1_Click() Dimx! y! x=Val(InputBox("x=")) Ifx<0Andx<>-3Then y=x*x+x–6 elseIf0<=xAndx<10Andx<>2Andx<>3Then y=x*x-5*x+6 else y=x^2-x-1 EndIf Print"x=";x,"y=";y EndSub Privatesubform_click() Dimy%,z%,dj%,p! t! Y=val(inputbox(“月”)) Z=val(inputbox(“订票数”)) Dj=val(inputbox(“票价”)) Selectcasey case7,8,9 Ifz>=20thenp=0.15elsep=0.05 case1to5,10,11 Ifz>20thenp=0.3elsep=0.2 Caseelse P=0.2 Endselect T=z*dj*p ? t endsub 5. privatesubform_click() dimm1%,m2%,m3%,dj$ m1=val(inputbox(“m1=”)): m2=val(inputbox(“m2=”)): m3=val(inputbox(“m3=”)) if(m1+m2+m3)/3>=95or(a=100andb=100andc>=80)or(a=100andc=100andb>=80)or(c=100andb=100anda>=80)then dj=”一等” elseif(m1+m2+m3)/3>=90or(a=100andb>=75andc>=75)or(b=100anda>=75andc>=75)or(c=100andb>=75anda>=75)then dj=”二等” elseifa>=75andb>=75andc>=75then dj=”三等” else dj=”没有” endif ? “dj=”;dj endsub 第5章循环结构程序设计 1.判断题 ×√√√××√× 2.选择题 BBBBCC 3.填空题 (1)7 (2)Do/LoopFor/NextWhile/Wend (3)-36 4.程序阅读题 1234 Sum=10 88 6886 (1) (2) ###### ##### #### ### ## # (3)4(4) 5.程序填空题 (1)①sign=1②Fori=2to19 (2)①Len(str1)②length-1③Mid(str1,i,2)④Sum=0 (3)①Imod7=5andiMod5=3AndiMod3=2②i<1000 (4)①last_one=last_two②last_two=this_one③i=i+1④i-2 (5)①I>int(sqr(m))②Int(Sqr(n-m)) 6.编程题 (1) PrivateSubForm_Click() DimiAsInteger,jAsInteger DimsAsDouble,SumAsDouble s=1 Sum=0 Fori=1To11Step2 Forj=1Toi s=s*j Nextj Sum=Sum+s Nexti PrintSum EndSub (2) PrivateSubForm_Click() Dimm%,n%,mn%,r%,t% m=Val(InputBox("m=")) n=Val(InputBox("n=")) Ifn<=0Orm<=0Then MsgBox"数据有误" End EndIf mn=m*n Ifm t=m: m=n: n=t EndIf DoWhile(n<>0) r=mModn: m=n: n=r Loop Form1.Print"最大公约数=";m Form1.Print"最小公倍数=";mn/m EndSub (3) PrivateSubForm_Click() Dimi%,j% Fori=1To5 PrintSpc(20-i); Forj=1To2*i-1 PrintTrim(Str(i)); Nextj Print Nexti Fori=4To1Step-1 PrintSpc(20-i); Forj=1To2*i-1 PrintTrim(Str(10-i)); Nextj Print Nexti EndSub (4) PrivateSubForm_Click() DimxAsInteger DimyAsInteger DimzAsInteger Forx=0To100 Fory=0To100-x z=100-x-y If5*x+3*y+z/3=100ThenPrintx,y,z Nexty Nextx EndSub (5) PrivateSubForm_Click() DimxAsSingle,yAsSingle,aAsSingle,iAsInteger x=Val(InputBox("输入x: ")) a=1: y=a: i=0 Whilea>=0.00001 i=i+1: a=a*x/i: y=y+a Wend Print"y=";y EndSub 第六章答案 一、判断题 1.错 2.错 3.错 4.错(可以为小数,不过仍然是当作整数来处理) 5.错 6.错 二、选择题 1.C 2.C 3.A 4.D 三、程序填空 1. (1)N-1 (2)T=A(J): A(J)=A(J+1): A(J+1)=T(3)PrintA(I) 2. (1)a(i,j)=1 (2)Print 四、程序阅读 1.5 2. 1234 1234 1234 1234 1111 2222 3333 4444 3.(前面空4个空格) 1121110 213169 314158 4567 第7章过程 判断题: 1、对2、错3、错4、错5、对6、对7、错 选择题: 1.B2、D3、D4、C5、A 程序阅读题: 1、y=5a=52、n=1z=4 y=15a=10n=2z=7 y=30a=15n=3z=10 3、32644、222 1664 864 464 5、A1=10B1=20 A2=20B2=10 程序填空题: 1、 (1)hwstring(str) (2)""(3)AsBoolean (4)n=len(strtxt)(5)True(6)False 2. (1)Xsch(Nman,Nkcen) (2)n (3)sum=sum+x(i,j)(4)tt/n(5)x(i,m+1)<1.2*verandx(i,m+1)>=1.1*ver 3. (1)number(i) (2)ByvalnasInteger(3)number=number+7*10^(i-1) 4. (1)temp=1 (2)temp(3)nFactor(i)(4)sum 程序设计题: 1、具体程序为: FunctionMaxnum(ByRefa()AsInteger,ByValnAsInteger)AsInteger DimiAsInteger Maxnum=a (1) Fori=2Ton Ifa(i)>MaxnumThenMaxnum=a(i) Nexti EndFunction FunctionAvenu(ByRefa()AsInteger,ByValnAsInteger)AsSingle DimiAsInteger,sumAsInteger Fori=1Ton sum=sum+a(i) Nexti Avenu=sum/n EndFunction SubSortrnum(ByRefa()AsInteger,ByValnAsInteger) DimiAsInteger,jAsInteger,kAsInteger DimtempAsInteger Fori=1Ton k=i Forj=i+1Ton Ifa(k)>a(j)Thenk=j Nextj Ifi<>kThen temp=a(i) a(i)=a(k) a(k)=temp EndIf Nexti EndSub PrivateSubForm_Click() Dimb(10)AsInteger,iAsInteger Fori=1To10 b(i)=InputBox("请输入整数","输入") Nexti CallSortrnum(b(),10) Print"从小到大排序为: " Fori=1To10 Printb(i); Next Print Print"最大数为: ";Maxnum(b(),10) Print"平均数为: ";Avenu(b(),10) EndSub 2、具体程序为: Functionfe(n%,x! )AsSingle DimtempAsSingle,iAsInteger fe=1 temp=1 Fori=1Ton temp=temp*x/i fe=fe+temp Nexti EndFunction PrivateSubForm_Click() DimnAsInteger,xAsSingle n=Val(InputBox("请输入n","输入")) x=Val(InputBox("请输入x","输入")) Print"e的值为: ";fe(n,x) EndSub 3、具体程序为: Subsort(a()AsSingle,nAsInteger) DimiAsInteger,jAsInteger,kAsInteger DimtempAsSingle Fori=1Ton k=i Forj=i+1Ton
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 课后 习题 答案 汇总