资源描述：
《vb实验教程答案解析》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、第一章答案：一、单项选择题1.B2.C3.D4.D5.D6.D7.D8.C9.B10.B11.A12.D13.B14.C二、判断题1.T2.T3.F4.F5.F6.T7.T8.T9.T10.T11.T第二章一、单项选择题1.B2.D3.A4.D5.B6.A7.D8.D9.D10.A11.A12.A13.C14.C15.A16.C17.A18.D19.A20.D21.B22.C23.B24.A25.B26.A27.C28.D29.D30.B31.C32.D33.B34.C35.C36.C37.C38.D39.C40.A41.D二、判断题1.True2.True
2、3.False4.False5.False6.False7.False第三章一、单项选择题1.A2.D3.D4.B5.B6.D7.C8.D9.B10.B11.D12.D13.C14.D15.A16.C17.B二、判断题1.T2.F3.T4.T5.F6.F7.F8.F9.F10.F11.T12.F13.F14.T15.F16.T17.T18.F.第四章一、单项选择题1.D2.A3.C4.C5.B6.C7.B8.B9.C10.B11.A12.A13.B14.C15.C16.D17.A18.D19.B20.A21.D22.B23.A24.D25.D26.B27.D
3、28.A29.D30.A31.D二、判断题1.F2.T3.F4.F5.T6.F7.T三、操作题1.参考代码：PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,kAsIntegerDimsumAsIntegerFori=2To10000sum=0Forj=1Toi/2k=iModjIf0=kThensum=sum+jEndIfNextjIfi=sumThenPrintiEndIfNextiEndSub2.参考代码：PrivateSubCommand1_Click()Dimn%,i%n=InputBox("请输
4、入天数：")x=1Fori=n-1To1Step-1x=(x+1)*2NextPrintxEndSub第五章一、单项选择题：1.B2.C3.C4.C5.D6.B7.A8.D9.D10.D11.D12.A13.D14.A15.A16.C17.B18.D19.C20.B21.A22.B23.B24.C25.B26.B27.A28.A29.D30.A二、多项选择题1.BCD2.ABD3.ABC4.ABC5.BCD三、判断题1.（F）2.（T）3.（T）4.（T）5.（T）6.(F)7.(F)8.(F)9.(F)10.(T)11.(F)12.(F)13.(T)14.
5、(F)15.(F)四、填空题1.数学日期时间字符串2.Str(x)Val(x)Asc(x)3.Sin(30*3.14/180)4.05.26.167.Right(x,5)8.123 123 12 09.Mid(S,6,4)10.Int(RndText1.Text*900)+100Mid(Text1.Text,3,1)&Mid(Text1.Text,2,1)&Mid(Text1.Text,1,1)或Reverse(Text1.Text)五、操作题1、求Sn=n+nn+nnn+nnnn+……nnnnnn…n(a个n)的和，其中a和n分别由随机函数产生的1～9之间
6、的正整数，现假设n=5，a=3，则Sn=5+55+555，求Sn。PrivateSubForm_Click()DimaAsInteger,nAsInteger,sAsLong,snAsLong,iAsIntegerClsRandomizea=Int(Rnd*9+1)'产生1~9之间的整数n=Int(Rnd*9+1)'产生1~9之间的整数Print"a=";a,"n=";nFori=1Tons=s+a*10^(i-1)sn=sn+sPrintsn'输出前i项之和，输出的最后一个数据为所求NextiEndSub2．利用shall函数调用“写完板”程序。界面设计如
7、下图：OptionExplicitPrivateSubCommand1_Click()'打开写字板Shell"c:winntsystem32write.exe",vbNormalFocus'打开写字板正常程序大小窗口EndSub第6章数组一、单项选择题1．B2.B3.D4.C5.B6.C7.D8.D9.D10.A11.B12.B13.B14.A15.C16.A17.C18.A19.C20.D二、多选题1．ABC2.BCD3.ACD4.ABD5.BCD三、判断题1.（F）2.（F）3.（T）4.（F）5.（F）6.（T）7.（T）8.（F）9.（T）10
8、.（T）四、填空题1.字符型2.ReDim3.24.
