资源描述：
《【精品】vb课后习题答案》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、第一周作业：1.3(6,,8)1.42.3之1第二周作业：2.3之2,3,4,5,6第三周作业•P1O53.3Z1,2第四周作业•P1053.3之3,4,5•P1073.4之1,3第一章作业答案1.2c,b,d,c,a1.4编程题编写一个程序。要求设置窗体的标题是“这是我的第一个练习”，且在程序执行后，单击窗体显示如下一行文字：我可以用VisualBASIC编写程序了！解答：(1)用户界面设计：设计用户界面由一个窗体构成。(2)对用户界面上的控件对象的屈性进行设置：把窗体的Caption屈性值设置为“这是我的第一个练习”。(3)编写控件对彖的事件驱动程序：PrivateSubForm
2、Click()Print"我可以用VisualBASTC编写程序了！”EndSub第2章作业答案2.2选择题cdcdcbadcadbcb2.3下列符号哪些是正确的变量名1)5)6)9)12)都是正确的变量名。2.4把下列数学表达式写成VB表达式答案：1)l/(l+(l/(l+l/(x+y))))2)x*(x*(x*(a*x+b)+c)+d)+e3)Log(1+Abs((a+b)/(a-b))A10)4)Sqr(1+3.14159/2*Cos(48*3.14159/180))5)1/Tan((l-x*x)/(l+x*x))或者Cos((1-x*x)/(1+x*x))/Sin((1-x*
3、x)/(l+x*x))6)Log(a*a+2*a*b+b*b)/Log(10)2.5写出下列函数的值答案：I)-12352)12343)12.344)12355)1006)-17)28)Visual9)BASIC10)0II)$$$12)产生从整数1到整数100之间的随机整数2.6写出下列表达式的值答案：1)42)6)True7)0True3)28)True4)xyz4385)abcl23abc10)True9)False2.7设a1,a2,a3是布尔变量，其值依次为：True,True,False,写出下列布尔表达式的值答案：1)False2)True3)True4)False5)
4、True6)True2.8用关系表达式或逻辑表达式表示下列条件答案：1)iModj=02)n=-100Andy<=-10)AndNot(y>=10Andy<=100)6)Sqr((x-10)A2+(y-15)A2)<357)a+b>cAndb+c>aAndc+a>b8)YearMod4二0AndyearMod40000OrYearMod400=0第3章作业答案3.2选择题a,cbcb阅读下列程序，写出执行结果1.-3VisualBASICFalse.75-3VisualBASICFalse.75x二
5、12.342.-100200-300-100200-3003.12.3512.35012.3512・41235.00%$12.35+12.3512.35e+004.-12x=2x=8y=4y=9x=4x=15y=8y=2266.t=9457.x=105y=3848.s=369.1020213031323.4编程题1.PrivateSubCommand1Click()Dimscore!score=Vai(Textl.Text)Ifscore>=85ThenText2.Text="Verygood!，zElseTfscore>=60ThenText2.Text="Good!"ElseTe
6、xt2.Text="Nogood!"EndIfEndSubPrivateSubCommand2_Click()EndEndSub2.PrivateSubCommand1_Click()CisDima!,b!,c!,disc!,xl!,x2!,realpart!,imagpart!a=InputBoxC*请输入方程的系数a：”)b=InputBoxC请输入方程的系数b：”)c=InputBox(，z请输入方程的系数c：〃)Print:PrintPrintTab(10):"输入方程的系数为:";a;"b=";b;"c=";cPrintIfAbs(a)<=0.000001ThenPrint
7、Tab(15);"方程不是一个二次方程!"Elsedisc=b2-4*a*cIfAbs(disc)<=0.000001ThonPrintTab仃0);"方程冇两个相同的实根：”；"xl二x2二"；-b/(2*a)Elselfdisc>0.000001Thenxl=(~b+Sqr(disc))/(2*a)x2=(-b-Sqr(disc))/(2*a)PrintTab⑸；"方程冇两个实根：〃PrintTab(18);"xl=";xlPrintTab(18);"
