《VB程序设计基础》习题答案.doc 7页

135.50 KB
2022-04-22 11:21:07 发布

《VB程序设计基础》习题答案.doc

关闭预览

7页
当前文档由用户上传发布，收益归属用户

下载提示
文本预览

1、本文档共5页，可阅读全部内容。
2、本文档内容版权归属内容提供方，所产生的收益全部归内容提供方所有。如果您对本文有版权争议，可选择认领，认领后既往收益都归您。
3、本文档由用户上传，本站不保证质量和数量令人满意，可能有诸多瑕疵，付费之前，请仔细先通过免费阅读内容等途径辨别内容交易风险。如存在严重挂羊头卖狗肉之情形，可联系本站下载客服投诉处理。
文档侵权举报电话：19940600175。

'程序设计基础P16习题一一，判断题 1，错 2，对 3，错 4，错 5，6，7，对二，单选题 1，B 2，B 3，D 4，A 5，D 6，B 7，B 8,C 9,D 三,程序设计题5,PrivateSubCommand1_Click()Form1.FontName="宋体"Form1.Print"中文字体宋体"EndSubPrivateSubCommand2_Click()Form1.FontName="楷体_GB2312"Form1.Print"中文字体楷体"EndSubPrivateSubCommand3_Click()Form1.FontName="仿宋_GB2312"Form1.Print"中文字体仿宋"EndSub P42 习题二一，判断题 1,2，3，7，10，对 4，5，6，8，9，11，12，13，14 错二，单选题 1，A 2，C 3，C 4，B 5，B 6，A 7，B 8，C 9，B 10，C 11，C 12，D 13，B 14，A 15，D 16，B 17，B 18，C 19，B 20，B 21，B 22，D 23，A 24，C 25，B 26，A 27，D 28，B 三，简答题1.(1)2*Cos(alfa)*Sin(alfa/(2*a)(2)Sqr(s*(s–a)*(s–b)*(s-c))(3)(A^2+B*C*(X+Y))/(A+B)(4)(2*3.14159*r+Exp(-5))*Log(x)(5)1/(x+1/(y+1))(6)k/(1+a*Exp(-b*x))(7)5+6*x/(3*(x^2-1)-2*x)(8)Sqr(y^3+3*(a^2+b^2)/(x^2+y^2))2.(1)(a+b)Modc(2)Sqr(Abs(x))(3)Int(x)+1(4)Int(Rnd*101)+2003.PrivateSubForm_Click()DimaAsInteger,bAsIntegerDimcAsInteger,yAsLonga=InputBox("请输入a的值")b=InputBox("请输入b的值")c=InputBox("请输入c的值")y=a^2+2*b^2+2*c^2Print"y=";yEndSub 4。（1） F （2）T (3)F (4) T5.（1）1<=xAndx<12（2）T+3<>V-2And(T+V)>100（3）(a+b)>=cor(a-c)<=c（4）a>0AndInt(a)=aAndb>0AndInt(b)=bora<0Andb<0（5）x<=yOrx>=z（6）a=0Andb<>0ora<>0Andb=0四,编程题1.PrivateSubForm_Click()DimaAsInteger,bAsIntegerDimcAsInteger,yAsSinglea=InputBox("请输入正整数a的值")b=InputBox("请输入正整数b的值")c=InputBox("请输入正整数c的值")y=(a+b+c)/3Print"平均值y=";yEndSub2.PrivateSubForm_Click()DimrAsInteger,sAsSingleConstPi=3.14159r=InputBox("输入圆半径","输入",10)s=Pi*r*rMsgBox"圆面积Area="&Str(s)EndSubP78习题三一， 1，A 2，B 3，B 4，A 5，C 二， 1， 37，55，64，28，19 2， y=KIGECA 3， 1 121 12321 1234321 123454321 12345654321 4， cHINA！三， 1， t As Double s=1 Abs(t)>=1e-5 s=s+t 2, s+c -1 s 3, m=n mTon Sum=Sum+j Sum=i四，1，PrivateSubForm_Click()DimxAsSingle,fAsSinglex=InputBox("输入x:")Ifx<-5Thenf=3*x*x+2*x-1ElseIfx<=5Thenf=x*Sin(x)+2^xElsef=Sqr(x-5)+Log(x)/Log(10)EndIfLabel1.Caption=fEndSub2.PrivateSubForm_Click()DimiAsInteger,flagAsIntegerDimtAsDouble,yAsDoubley=0flag=1t=0.5i=1WhileAbs(t)>=0.00001t=1/i/(i+1)y=y+flag*tflag=-flagi=i+1WendPrint"y=";yEndSubY=0.3862893854756693.PrivateSubForm_Click()DimnAsInteger,iAsInteger,flagAsInteger,sAsSingle,tAsIntegern=InputBox("请输入n的值：")sum=0t=1flag=-1Fori=1Tonflag=-flagt=t*is=s+flag*i/tNextiPrint"s=";sEndSub4.PrivateSubCommand1_Click()Fori=1To9Forj=1ToiPrinti;"*";j;"=";i*j;NextjPrintNextiEndSub5.PrivateSubForm_Click()Fori=1To5PrintTab(6-i);Forj=1To2*i-1Print"*";NextjPrintNextiFori=4To1Step-1PrintTab(6-i);Forj=1To2*i-1 Print"*";NextjPrintNextiEndSubP104练习四一、单选题1，D2,C3,C4,C5,D二、程序阅读题1，121092，0112323、div=3三、程序填空题1、Len(str1)Mid(str1,i,1)p=ji<>p2、l=Len(St$)a(i)=Mid(St$,i,1)p=s-96x(p)=x(p)+13、a(1To4,1To5)s=0a(i,5)=s/4四、程序设计题1.PrivateSubForm_Click()Dima(50)AsIntegerFori=1To50a(i)=Int(Rnd*71)+30Printa(i);IfiMod5=0ThenPrintNextiMin=a(1):Max=a(1):s=0Fori=2To50IfMin>a(i)ThenMin=a(i)IfMax0Andmax<>0ThenExitForNextiFori=1TonIfa(i)Mod2=0Andmin>a(i)Thenmin=a(i)ElseIfa(i)Mod2=1Andmax=90Thenscore(1)=score(1)+1ElseIfa(i)>=80Thenscore(2)=score(2)+1ElseIfa(i)>=70Thenscore(3)=score(3)+1ElseIfa(i)>=60Thenscore(4)=score(4)+1Elsescore(5)=score(5)+1EndIfNextiFori=1To5Printscore(i)NextiEndSubP126练习五一．对：1，2，3,4，6，7，9错：5，8二．1，D2，C3，A4，B5，D6，？7，？8，D三．1，1）a()AsSingle,mAsInteger2）j=i+1Tom3）a(i)xmaxThenxmax=x(i,j):ki=i:kj=jNextjNextiEndSubP153练习六一，对：5错：1，2，3，4，6，7，8，9,10二．1，D2，D3，题目有错（应改为True）A4，C5，C6，D7，C8，D9，与2重复10，C11，B12，B13，B14，B三．1．（1）DimaAsInteger,bAsInteger（2）Str(n)+Str(n_error)（3）KeyPress（4）KeyAscii<>13（5）Command1.Enabled=True2．（1）1To2*i–1（2）Command2.Enabled=True（3）Command2.Enabled=False四．1．GFEDCBA2．小，你好！小李，你好！3．您好欢迎使用VisualBasic!五．1．PrivateSubCommand1_Click(IndexAsInteger)DimyAsSingleSelectCaseIndexCase0y=Val(Text1.Text)+Val(Text2.Text)Label4.Caption=Text1.Text+"+"+Text2.Text+"="+Str(y)Case1y=Val(Text1.Text)-Val(Text2.Text)Label4.Caption=Text1.Text+"-"+Text2.Text+"="+Str(y)Case2y=Val(Text1.Text)*Val(Text2.Text)Label4.Caption=Text1.Text+"*"+Text2.Text+"="+Str(y)Case3y=Val(Text1.Text)/Val(Text2.Text)Label4.Caption=Text1.Text+"/"+Text2.Text+"="+Str(y)EndSelectEndSub PrivateSubForm_Load()Text1.Text=""Text2.Text=""Label1.Caption="数一"Label2.Caption="数二"Label3.Caption="结果表达式："Label4.Caption=""Command1(0).Caption="加"Command1(1).Caption="减"Command1(2).Caption="乘"Command1(3).Caption="除"EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAsciiAsc("9")Then"判断为非数字键KeyAscii=0"改变键入文本框的显示为空字符，即不显示EndIfEndSubPrivateSubText2_KeyPress(KeyAsciiAsInteger)IfKeyAsciiAsc("9")ThenKeyAscii=0EndIfEndSubP176练习七一，对：2，4，5，6，9，10错：1，3，7，8二，1，B2，C3，D4，C5，B6，D7，A8，A9，D三，1．（1）List3.Clear（2）List1.ListCount–1（3）List2.ListCount–1（4）ExitFor（5）jAsc("9")3，（1）b=Picture1.Point(x,y)（2）r=Int(cMod256)（3）Nextj,I四， 1．2．3．4．月亮环饶太阳转P234练习九一，1，A2，B3，C4，D5，B6，B7，A二，1，m1.Visible=FalseFalseCommonDialog1.ColorCommonDialog1.FontItalicPopupMenum1,22，StaticiAsIntegerButton=1P251练习十一，1，B2，D3，A4，B5，B二，NO13NO24NO37NO411NO518三、1.list1.clearinput#1,nprime(nasinteger)asboolean2.Filter=“文本文件|*.txt”noteof(1)四、3.PrivateSubCommand2_Click()Open"g:myfile1.txt"ForInputAs#1Open"g:myfile2.txt"ForOutputAs#2DoWhileNotEOF(1)Input#1,c$,n1%,n2%,n3%Sum%=n1%+n2%+n3%ave%=Sum/3Write#2,c$,n1%,n2%,n3%,Sum%,ave%LoopCloseEndSubPrivateSubCommand1_Click()Text1.Text=""Open"g:myfile1.txt"ForInputAs#1DoWhileNotEOF(1)LineInput#1,sText1.Text=Text1.Text&s&Chr(13)&Chr(10)LoopClose#1EndSub'

《VB程序设计基础》习题答案.doc 7页

《VB程序设计基础》习题答案.doc

您可能关注的文档

相关文档

最近下载