1. 您所在位置：首页 > 互联网通信 > 手机电话 > 《VB程序设计基础》习题答案.doc

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

  • 135.50 KB
  • 2022-04-29 14:03:12 发布

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

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

您可能关注的文档

相关文档

最近下载