Visual Basic程序设计 第二版 (张林峰 羊四清 著) 中国铁道出版社 课后答案

《Visual Basic程序设计 第二版 (张林峰 羊四清 著) 中国铁道出版社 课后答案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、课后答案网：www.hackshp.cn若侵犯了您的版权利益，敬请来信告知！www.hackshp.cn课后答案网您最真诚的朋友www.hackshp.cn网团队竭诚为学生服务，免费提供各门课后答案，不用积分，甚至不用注册，旨在为广大学生提供自主学习的平台！课后答案网：www.hackshp.cn视频教程网：www.efanjy.comPPT课件网：www.ppthouse.com课后答案网www.hackshp.cn课后答案网：www.hackshp.cn若侵犯了您的版权利益，敬请来信告知！www.hackshp.

2、cn第3章思考与练习题答案一、填空题1.:(冒号)，_(空格加下划线)2．变体类型3．“”，#4．Public，窗体或标准模块，Dim、Static、Private5.&和+，+二、选择题1.A2C3.B4.C5.B6.C7.C8.C9.A10.B11.C12.D13.D14.A15.B16.B三、思考题1.Public的有效范围是全局的，别的模块存取时在变量前加上窗体名。Dim的范围是该模块的所有过程。2.khdaw.com有效范围仅是该过程。不表示同一变量，虽然名字一样，但没有任何的联系。3.在标准模块中用Pub

3、lic4.算术运算符号是（按优先级排列）：^(指数)-、(负)、*(乘)/(除)、(整除)、mod(取余)、+(加)–(减)；关系运算符是（同级）：=(等于)、>(大于)、>=(大于等于，即不小于)、<(小于)、<=(小于等于，既不大于)、<>(不等于)、like(字符串匹配)、is(对象引用比较)；逻辑运算符是（按优先级）Not、and、or、xor、eqv、imp5.（1）（4）（6）（8）都是变量，（2）（5）（7）都是字符型常量，（3）是布尔型常量，（9）是日期型常量，（10）是实型常量6.合法变量名是A3

4、，a_b，End1，体重7.（1）S*(S-A)*(S-B)*(S-C)(2)(A1*(1-Q*N))/(1-Q)课后答案网(3)2*cos(60*3.1415926/180)*sin(1.5)(4)X^2*LOG(X)+exp(sin(2*x))www.hackshp.cnkhdaw.com若侵犯了您的版权利益，敬请来信通知我们！℡www.khdaw.com课后答案网：www.hackshp.cn若侵犯了您的版权利益，敬请来信告知！www.hackshp.cn第4章思考与练习题答案一、1．顺序结构，选择结构，循环结

5、构2．变量，属性3．Inputboxstringval4．Msgbox5.46.5二、1．C2．D3．D4.AC5.B6.C7．C8.A三、4.DimaAsSingle,bAsSingle,cAsSingle,xAsSingle,YAsSinglea=Val(Text1.Text)khdaw.comb=Val(Text2.Text)c=Val(Text3.Text)Ifa=0ThenMsgBox"该方程不是一元二次方程"ElseIf(b^2-4*a*c)>0Thenx=(-b+Sqr(b^2-4*a*c))/(2*a

6、)Y=(-b-Sqr(b^2-4*a*c))/(2*a)Text4.Text=Str(x)Text5.Text=Str(Y)课后答案网ElseIf(b^2-4*a*c)=0Thenx=(-b)/(2*a)Y=(-b)/(2*a)Text4.Text=Str(x)www.hackshp.cnText5.Text=Str(Y)ElseMsgBox"该一元二次方程无实根"EndEndIf5.dimiasinteger,sumasintegersum=0Fori=1to100step2sum=sum+inxetiprints

7、um6.DimmAsSingle,nAsSinglekhdaw.com若侵犯了您的版权利益，敬请来信通知我们！℡www.khdaw.com课后答案网：www.hackshp.cn若侵犯了您的版权利益，敬请来信告知！www.hackshp.cnn=0:m=1DoWhilem<=200000n=n+1m=(m*n)LoopMsgBoxnN=9khdaw.com7.PrintPrintTab(30);"*******九九乘法表**********"Fori=1To9Forj=1To9s=i&"×"&j&"="&i*jPri

8、ntTab((j-1)*9+3);s;NextjPrintNexti课后答案网8．Dimx(1To20)Dimmax,min,sumwww.hackshp.cnmax=0min=101Print"产生的20个数为:";Fori=1To20x(i)=Int(Rnd()*50+51)Printx(i);sum=sum+x(i)Ifx(i)>maxT