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

《《VB程序设计基础》习题答案.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、程序设计基础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.FontNa

2、me="楷体_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，

3、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)

4、)(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=Inpu

5、tBox("请输入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_Clic

6、k()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*rMsgB

7、ox"圆面积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       

8、     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