vb实验教程答案

第一章答案：1、单项选择题1.B2.C3.D4.D5.D6.D7.D8.C9.B10.B11.A12.D13.B14.C2、判断题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.True3.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、单项选择题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.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.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.(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之间的正整数，现假设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函数调用“写完板”程序。界面设计如下图：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.T15.T16.T17.T18.F19.T20.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.0ToolBar7．Align8．ImageList9.vbModel或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 10 D C C D A C D B A B　　二、填空题 【1】 不会 【2】 ScaleHeight、ScaleWidth 【3】 (300，-150) 【4】 右 【5】 默认 【6】 AutoSize 【7】 B 【8】 0~2π 【9】 DrawStyle、DrawWidth 【10】 Shape第十三章一、单项选择题1.B2.A3.C4.A5.D6.D7.A8.C9.A10.D11.D12.C13.D14.B15.C16.C17.D18.B19.A20.A21.C22.C23.A24.D25.D26.D27.C28.A29.A30.B31.B32.A33.A二、判断题1.F2.T3.T4.F5.T6.F7.T8.F9.F10.T11.T