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.A18.C19.A20.A21.D22.D第2章常用控件与界面设计一、选择题(一)窗体1.A2.B3.B4.A5.A6.A7.B8.B9.C10.C11.B12.A13.C14.C15.A(二)命令按钮16.B17.B18.B19.C20.B21.C(三)文本框22.C23.B24.D25.B26.B27.C28.C29.B30.B31.A(四)Label3

2、2.A33.C34.B35.D(五)列表框、组合框36.B37.C38.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.D68.D69.D70.D71.B72.A73.B74.D75.B76.B(八)滚动条、计时器77.A78.A79.A80.C81.A82.D83.C84.D85.D86.1000not

3、(label1.visible)timer1.enabelde=true(九)鼠标事件87.D88.C89.C90.A91.C(十)菜单92.B93.C94.C95.C96.C97.B98.A99.A100.B101.B102.A(十一)多窗体103.A104.A105.B(十二)通用对话框1.C2.D3.A4.A5.C6.A第3章数据、表达式与简单程序设计一、选择题1.B2.B3.C4.A5.A6.A7.D8.D9.D10.A11.C12.A13.B14.A15.D16.B17.C18.B19.D20.C2

4、1.D22.D23.B24,A25.B26.C27.B28.B29.B30.D31.D32.C33.B34.D35.B36.D37.D38.D39.C40.D41.D42.D43.C44.D45.A46.D47.C48.D49.B50.B51.A52.B53.C54.B55.C56.B57.D58.C59.B60.C61.B62.A63.A64.A65.B66.D67.D68.A69.C70.C71.C72.C73.A74.D75.B76.A77.C78.B79.B80.A81.C第4章选择分支与循环一、选择

5、题1.D2.C3.D4.A5.B6.D7.D8.D9.D10.B11.C12.D13.C14.B15.C16.B17.D18.D二、填空题1．57131214112.3153413.right(a$,i)4.45.6-i6.611102113347.514138.Iselseendselect9.a*(2*i-1)*(-1)*x/(2*i+2)i+110.0n-111.1t*(-1)*x^2/((2*k-1)*(2*k))Abs(t)>eps12.count1=count+1count1>013.sum=0s

6、um+jst&k&“+”14.9x三、编程题1.OptionExplicitPrivateSubCommand1_Click()DimsAsString,iAsInteger,chAsString*1DimaAsInteger,bAsInteger,cAsIntegers=Text1.TextFori=1ToLen(s)ch=Mid(s,i,1)If(ch>="0"Andch<="9")Thena=a+1ElseIf(ch>="A"Andch<="Z")Or(ch>="a"Andch<="z")Thenb=b

7、+1Elsec=c+1EndIfNextPrint"数字个数";aPrint"字符个数";bPrint"其他字符";cEndSub2.OptionExplicitPrivateSubCommand1_Click()DimiAsInteger,nAsIntegerDimaAsInteger,bAsInteger,cAsIntegerFori=1To50n=Int(Rnd*90+10)Printn;IfiMod10=0ThenPrintIfn<=40Thena=a+1ElseIfn<=70Thenb=b+1Els

8、ec=c+1EndIfNextiPrint"小于等于40的个数：";aPrint"大于40小于等于70的个数：";bPrint"大于70的个数：";cEndSub3.OptionExplicitPrivateSubCommand1_Click()DimxAsSingleDimtAsLong,nAsIntegerx=1t=1n=1DoWhile1/t>=0.0001x=x+1/tn=n+1t=t*nL