《vb程序设计基础与vba应用》1-5章答案

《《vb程序设计基础与vba应用》1-5章答案》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、《VB程序设计基础与VBA应用》P28习题一  二，单选题  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="

2、仿宋_GB2312"Form1.Print"中文字体仿宋"EndSub P57 习题二一，判断题    对:1,3，7，10，14   错:2，4，5，6，8，9，11，12，13 二，单选题  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  

3、 三，简答题1.(1)2*Cos(alfa)*Sin(alfa/(2*a)(2)Sqr(s*(s–a)*(s–b)*(s-c))(3)(A*A+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)Cos(alfa)^2+Atn(alfa)(8)Sqr(y^3+3*(a*a+b*b)/(x*x+y*y))2.(1)(a+b)Modc(2)Sqr(Abs(x))(3)Int(x)+1(4)Int(Rnd*101)+200   3。 （1） F  

4、 （2）T    (3)F   (4) T4．（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,bAsInteger,cAsIntegerDimyAsSinglea=InputBox("请输入正整数a的值")b=InputBox("请输入正整数b的

5、值")c=InputBox("请输入正整数c的值")y=(a+b+c)/3Print"平均值:";yEndSub2．PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsIntegerDimyAsSinglea=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)y=(a+b+c)/3Label1.Caption=Str(y)EndSub3.PrivateSubForm_Click()DimrAsInteger,sAsSingleConstPi=3.14159r

6、=InputBox("输入圆半径")s=Pi*r*rMsgBox"圆面积Area="+Str(s)EndSubP114习题三 一， 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       

7、     s=1            Abs(t)>=0.00001            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

8、=Sqr(x-5)+Log(x)/Lo