vb实验教材习题答案(1)

《vb实验教材习题答案(1)》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、第1章VB集成环境与VB概述一、选择题1.B2.A3.A4.B5.D6.B7.C8.A9.D10.A11.C12.B13.C14.D15.A16.D17.A1&C19.A20.A21.D22.D第2章常用控件与界面设计一.选择题（一）窗体1.A2.B3.B4.A5.A6.A7.B8.B9.C10.C11.B12.A13.C14.C15.A（二）命令按钮16.B17.B1&B19.C20.B21.C（三）文本框22.C23.B24.D25.B26.B27.C2&C29.B30.B31.A(四)Label32.A33.C34.B35.D（五）列表框、组合框36

2、.B37.C3&D39.B40.D41.D42.C43.C44.C45.B46.C47.D（六熔器48.C49.A50.A51.B52.A53.D54.C55.D56.B57.C（七）常用控件58.B59.B60.B61.B62.B63.B64.D65.A66.D67.D6&D69.D70.D71.B72.A73.B74.D75.B76.B（八）滚动条、计时器77.A7&A79.A80.C81.A82.D83.C84.D85.D86.1000not(labell.visible)timer1.enabelde=true（九）鼠标事件87.D8&C89.C9

3、0.A91.C（十）菜单92.B93.C94.C95.C96.C97.B98.A99.A100.B101.B102.A（十一）多窗体103.A104.A105.B（十二）通用对话框106.C107.D10&A109.A110.C111.A第3章数据.表达式与简单程序设计选择题l.B2.B3.C4.A5.A6.A7.D8.D9.D10.All.C12.A13.B14.A15.D16.B17.Cl&B19.D20.C21.D22.D23.B24,A25.B26.C27.B2&B29.B30.D31.D32.C33.B34.D35.B36.D37.D38.D39

4、.C40.D41.D42.D43.C44.D45.A46.D47.C48.D49.B50.B51.A52.B53.C54.B55.C56.B57.D5&C59.B60.C61.B62.A63.A64.A65.B66.D67.D6&A69.C70.C71.C72.C73.A74.D75.B76.A77.C7&B79.B80.A81.C第4章选择分支与循环一、选择题l.D2.C3.D4.A5.B6.D7.D8.D9.D10.Bll.C12.D13.C14.B15.C16.B17.Dl&D二、填空题1.5J7131214112.3_L534J.3.right(a

5、$,i)4.45.6-i6.6_U102113347.514138._jselseendselect1.a*(2*iJ)*(-1)*x/(2*i+2)i+12._0nJ.3.1_声(_])械八2/((2栋-1严(2猟))Abs(t)>eps4.countl=count+lcountl>05.sum二0sum+ist&k&6.9x三、编程题1.OptionExplicitPrivateSubCommandl_Click()DimsAsString,iAsInteger,chAsString*1DimaAsInteger,bAsInteger,cAsInteg

6、ers=Text1.TextFori=1ToLen(s)ch=Mid(s,i,1)If(ch>=”0”Andch<=”9”)Thena=a+1Elself(ch>=HAnAndch<=KZn)Or(ch>=nauAndch<=nzu)Thenb=b+1Elsec=c+1EndIfNextPrintM数字个数”;aPrint”字符个数”;bPrint”其他字符”;cEndSub2.OptionExplicitPrivateSubCommand1_Click()DimiAsInteger,nAsIntegerDimaAsInteger,bAsInteger,c

7、AsIntegerFori=1To50n=Int(Rnd*90+10)Printn;IfiMod10=0ThenPrintIfn<=40Thena=a+1Elselfn<=70Thenb=b+1ElseEndIfNextiPrint”小于等于40的个数：“；aPrintH大于40小于等于70的个数：”;bPrint11大于70的个数：“;cEndSubOptionExplicitPrivateSubCommand1_Click()DimxAsSingleDimtAsLong,nAsIntegerX=1t=1n=1DoWhile1/t>=0.0001X=X+

8、1/tn=n+1t=t*nLoopPrintxEndSub4.Op