vb实验教程答案

第一章答案：一、单项选择题1.B 2.C 3.D 4.D 5.D 6.D 7.D 8.C 9.B 10.B 11.A 12.D 13.B 14.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.True 2.True 3.False 4.False 5.False 6.False 7.False第三章一、单项选择题1.A 2.D 3.D 4.B 5.B 6.D 7.C 8.D 9.B 10.B 11.D 12.D 13.C 14.D 15.A16.C 17.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.B 9.C10.B11.A12.A13.B14.C15.C16.D17.A18.D19.B20.A21.D22.B23.A24.D25.D26.B27.D28.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("请输入天数：")x=1Fori=n-1To1Step-1x=(x+1)*2NextPrintxEndSub第五章一、单项选择题：1.B2.C3.C4.C5.D6.B7.A8.D9.D10.DD12.A13.D14.A15.A16.C17.B18.D19.C20.B21.A22.B23.B24.C25.B26.B27.A28.A29.D30.A二、多项选择题1.BCD

2.ABD

3.ABC

4.ABC

5.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.(F)15.(F)四、填空题1.数学 日期时间 字符串Str(x)Val(x)Asc(x)Sin(30*3.14/180)0216Right(x,5)123123120Mid(S,6,4)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之间的正整数，现假设n=5，a=3，则Sn=5+55+555，求Sn。PrivateSubForm_Click()DimaAsInteger,nAsInteger,sAsLong,snAsLong,iAsIntegerClsRandomizea=Int(Rnd*9+1)n=Int(Rnd*9+1)Print"a=";a,"n=";nFori=1Tons=s+a*10^(i-1)sn=sn+sPrintsn 'NextiEndSub

'

'

产生1~9之间的整数产生1~9之间的整数输出前i项之和，输出的最后一个数据为所求2．利用shall

函数调用“写完板”程序。界面设计如下图：OptionExplicitPrivateSubCommand1_Click()'

打开写字板Shell"c:\winnt\system32\write.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.（T）四、填空题1.字符型2.ReDim3.24.45.二公司6.12347.第一次第二次第三次1112131112131112138.169.310.33五、操作题：1．编写程序，建立并输出一个 10*10矩阵，该矩阵两条对角线元素为 1，其它元素均为 0。OptionBase1OptionExplicitPrivateSubForm_Load()ShowDima(10,10)AsIntegerDimxAsInteger,yAsIntegerForx=1To10Fory=1To10a(x,y)=0Ifx=yOrx+y=11Thena(x,y)=1EndIfPrinta(x,y);Spc(2);NextyPrintNextxEndSub2．产生随机函数二维数组 a(1to10,1to10) 赋予0到99之间的整数，求出每行 a的最大值并把这些最大数放到一维数组 b中并用比较交换法降序排列输出各值。OptionExplicitPrivateSubForm_Click()Dima%(1To10,1To10),b%(1To10),i%,j%,max%,t%Fori=1To10Forj=1To10a(i,j)=Int(Rnd*99+1)PrintTab(5*j);a(i,j);NextjPrintNextiPrint" 各行最大值为："Fori=1To10max=a(i,1)Forj=1To10Ifa(i,j)>maxThenmax=a(i,j)Nextjb(i)=maxPrintb(i)NextiPrintPrint" 对各行最大值降序排列后 ";Fori=1To9Forj=i+1To10Ifb(j)>b(i)Thent=b(i):b(i)=b(j):b(j)=tNextjPrintb(10)NextiEndSub3．输入一系统字符串，并按递减顺序排列。OptionBase1OptionExplicitDimn%,i%,j%,pAsIntegerDima()AsString---------------------------------------------------------PrivateSubCommand1_Click()ReDima(n)Fori=1Tona(i)=InputBox(" 输入原字符串给数组元素 "&"a("&i&")")NextiFori=1TonList1.AddItema(i)NextiEndSub-----------------------------------------------------------PrivateSubCommand2_Click()DimtAsStringFori=1Ton-1p=iForj=i+1TonIfa(j)>a(p)Thenp=jNextjt=a(i):a(i)=a(p):a(p)=tNextiFori=1TonList2.AddItema(i)NextiEndSub-----------------------------------------------------------PrivateSubCommand3_Click()List1.ClearList2.ClearEndSub------------------------------------------------------------PrivateSubForm_Load()n=Val(InputBox(" 请输入要排序的字符串的个数 ",,0))EndSub第七章一、单项选择题1.B2.A3.D4.A5.B6.B7.C8.D9.B10.B11.A12.C13.B14.D15.D16.B17.C18.D19.A20.B21.C22.C23.A24.B25.A26.A27.B二、判断题1.T2.F3.F4.T5.F6.F7.F8.T9.F10.T11.F12.F13.F14.T15.F16.T17.F18.F19.F20.T21.T22.F23.F24.F25.T26.T27.F28.F第八章一、单项选择题1.C2.B3.C4.B5.B6.D7.B8.C9.B10.B11.D12.C13.A14.B15.D16.D17.D18.C二、判断题1.T2.F3.F4.T5.F6.T7.T8F.9.T10.F11.T12.F13.T14.T 15.T16.T17.T18.F 19.T 20.T21.F22.T第九章一、单项选择题1.D2.C3.B4.A5.D6.B7.A8.B9.B10.C11.A12.D二、1.T2.T3.F4.T5.F第十章一、单项选择题1.A2.A3.C4.B5.B6.D7.A8.D9.C10.C11.A12.B13.B14.C15.A16.D二、判断题1.T2.F3.F4.T5.T6.F7.T8.T三、填空题1．Caption,Name,Index,Checked,Enabled,Visible2．标题－3．&4．向下移一个等级5．PopupMenu6．MicrosoftWindowsCommonControls6.0 ToolBar7．Align8．ImageListvbModel或1第十一章一、单项选择题1.A2.B3.C4.B5.D6.B7.A8.B9.C10.B11.B12.C13.D14.C15.C16.D17.B18.D19.C20.B21.C22.C23.A24.D25.B26.B27.A28.D29.D30.B31.C32.A33.D34.B35.C二、判断题1.T2.F3.T4.T5.T6.T7.F8.T9.T10.T11.F12.F13.T14.F15.T三、填空题1.Input2.NotEOF(1)3.IfInputdata=“$”then4.Output5.Print#1,Count第十二章参考答案一、单选题1 2 3 4 5 6 7 8 9 10D C C D A C D B A B二、填空题【1】不会【2】ScaleHeight、ScaleWidth【3】(300，-150)【4】