《vb程序设计实验教程与习题选解---王杰华-郑国平-主编》由会员分享，可在线阅读，更多相关《vb程序设计实验教程与习题选解---王杰华-郑国平-主编（91页珍藏版）》请在金锄头文库上搜索。
1、第一章 B开发环境与V概述 习题答案习题一、选择题1.2.3.4.5.6.7.8.9.10.11.12.13.14.BABDACBCAD第二章 常用控件与界面设计 习题答案习题一、选择题15.16.17.18.19.20.21.22.23.24.25.26.27.28.29.CBCABBCCDB30.31.32.33.34.35.36.37.38.39.40.41.42.43.44.BCCDBBCBBC45.46.47.48.49.50.51.52.53.54.55.56.57.58.59.BBBDBDDBABABBD60.61.62.63.64.65.66.67.68.69.70.71.72
2、.73.74.ABDCDDCDDCACB75.B第三章实验与习题实验实验31算术运算Privtb oand1_Clc() Cont Asie= 3, s Singe=2, s Sing =-1, A nge = 6 m As Sinle， y As Sigle， z As Single,m s gle x = 2： y = 1: z =1: m = 1 i1.Cer List1AdItm a/ (b / ) List1Addtem （ + Sqr( + 1) ( / 3） List1.ddIem (2 y) / （a *+ b * y) * （a * x - b * y) List1.AddI
3、tem + 1 /(1 + m） Lst.Adtm /2 * (d/ 3) (2 * ) it1.AddItm Lo(y + Cos(） ) it1.ddIemAb(（Exp（x)+ Sin（x) ) / （+ ) Lst1.AdIteLg(Exp（x* y) +Abs(1 / an() + C(x） 3）)/ （ + y - z） Li1AddIt Sin(4 * 141 1) + (Exp(10) + Lo(10)） / S( +y+ 1) List1.Addtem Log() / o(b）End Sub关系运算PvaeSub Cod2_lk() Lis1.le List1.AdIm Mi
4、d(VisuaBasic， 1, 2)= Right(Langag VisuBasic， 2） List1.AItem ARG=bcde List1.AddIte Int(34.69) = CInt(49) Lst.AddItm .9 / .7 0 ist1Adte(x% = And % =） Or (x% 0 An% 90 And C2 90 And C3 80 Sub实验3_2略实验3_略实验3_4零售结算rivt Subomand1_Clc() Dm A ingle, sl As igle, je As Sigle， n As Inteer Labl1.Capio = 金额： dj np
5、utx(请输入商品的单价:, 单价框) l =InputBox（请输入商品的数量：, 数量框, 1) j =dj s n sgox(合计金额=& j, vbKCac vbIfotio，成果） fn bOK hen ab1.aptio = 金额: & Str(je）元Edub产生随机数rivate Sb Cman2_Click（） im m Intge, n s ntg i x1 s Igr， x2AIteger, 3As neg = Vl(Tex1.ext): n=x2T Randmze x1=Int(nd * (n m+ 1) m) x2 =t(R* ( - m+1)+ m) x3 Int（
6、Rnd * (n m + 1)+ m) Lael4.Capton=成果为：& Str(x1) & St(x2)& Sr(3) S求逆序数Prvat ub ommnd3_Cick() Di a As Intge,h As Itgr, t As Itege, ns Intgr Rndomize In(Rd * （99 - 100 + 1)+100） = Mid(CStr(）, 1, 1) t Mid(Sr(a）, 1) Right（CSr(a), ) Lael5.Capion=a & Fort( 0+t * 0 +， 00)nd Sub实验5略习题选择题-20: DBB DDBC DDD DB_B
7、21-40: DCDAA B_AC BCAA B_BCD46:CC CADBA CBDDD ABA61-8:BBCAB BDAAA CDD CBDAD81-9:BBB BAD填空题1、2 -326832762、整型 长整型 单精度 双精度3、0 False “”4、Chr(Int(Rn*(sc（“”)-（“”）+A(“C”)）) x An y O x=” nd c=”Ac=” x=10 And x20 z Xoz5、Fase 2 True s True Tru True rue6、18 65 7547、= b=1 a=2 =1= b= a4 =8、Y o=0And Yo 1000OrYMd 4
8、00 =09、H Sid，“d rning”.10、EDE11、(A0 And AIn(A）) nd （B0AndBIt(B)1、+b+cd(ab+c+d)/smaver13、（f-h）/(4h-f)/2简答题1、略、rivate Sub For_Clik() Const g 9.8 Dim V As ingle, t As Single Di S As Single V0 = IpBox(请输入0的值:） t Ipuox(请输入时间t的值:) S = (1 / 2) g *t 2 + V0 Bx (位移量为:& S)nd Su3、riteSub Coma1_lik() Di l sSinge
9、, w AsSingle，ASngle Dm Asgle l =Tx1.Tt w = Txt.Tt h ex3.Tex s= (l * w + l*h+ w * h)*2 Lbel1Caption = sEn Sub第四章选择分支与循环实验答案实验4- 措施一： 5; y措施二：Is2；CseEse实验4-2Sape.ckCorvbRed；Inter=15;Ie=Inter-1;Inter; 实验4-3 c =a =k实验4-4措施二: s*; ts=1-; (-1）(n+1）*m实验4-6 x2=3; 10-6实验4-实验4-8i+5*k=0; n 实验9题目一：a） b)i=16 p=1 n=5c)9 =8 n=题目二:20 10实验4-0N=1; =*&+
