vb实验指导后题目答案

-.z...期末自测题〔A卷〕文件局部的选择题要做，其它类型的题目不用做，不作考察选择题其它局部还没有时间做一、单项选择题〔每题1分，共25分〕1、是Internet上的()。(A)IP地址(B)域名(C)密码(D)软件编号2、在以下四个网址中，〔〕网址不符合网址书写规则。(A).163.

(B).

(C).863.net.(D).3、以下字符中，其ASCII码值最小的一个是〔〕。(A)A(B)a(C)Z(D)*4、以下软件中属于浏览器的是〔〕。(A)E*cel(B)InternetE*plorer(C)QQ(D)VisualBasic5、电子()地址的正确形式是〔〕。(A)用户名域名(B)用户名*域名(C)用户名/域名

(D)用户名.域名6、下面变量名不合法的是〔〕。(A)a2(B)abcd(C)a$*(D)Cd_E7、以下表达式中，正确的Visual

Basic表达式是〔〕。(A)2sin45°(B)∏*R2(C)*÷y×5(D)〔*+1〕/〔*^2+1〕/28、下面逻辑表达式的值为真的是〔〕。(A)"A">"a"(B)"abc">"bc"(C)"That">"Thank"(D)12>12.19、以下过程定义语句说明不合法的是〔〕。(A)Subf1(ByRefn()AsInteger)(B)Subf1(ByRefnAsInteger)(C)Subf1(ByValn()AsInteger)(D)Subf1(ByValnAsInteger)10、执行下面的4个打印语句，将出错的是〔

〕。(A)Printa=3+5(B)Print"a=";3+5(C)Print"a=3+5"(D)Printa=;3+511、语句Fori=-3To20Step4的循环次数为〔〕。(A)5(B)6 (C)7 (D)812、以下表达中错误的选项是〔〕。(A)列表框与组合框都有List属性(B)列表框与组合框都有Selected属性(C)列表框和组合框都有Te*t属性(D)列表框与组合框都有Enabled属性13、窗体Form1里有两个对象，分别是图片框P1和标签L1。则下面关于Print方法的使用中，错误的语句为〔〕。(A)P1.Print

147(B)Print

147(C)Form1.Print

147(D)L1.Print14714、通过设置图像框Image的〔〕属性，可以自动调整图形的大小，以适应图像框Image的尺寸。(A)Autosize(B)Stretch(C)AutoRedraw(D)Appearance15、执行语句PrintLeft("VisualBasic",3)，在窗体上显示的内容是〔〕。(A)VVV(B)Vis(C)s(D)sualBasic16、以下表达中正确的选项是〔〕。(A)窗体的Name属性指定窗体的名称，用来标识一个窗体(B)窗体的Name属性的值是显示在窗体标题栏中的文本(C)可以在运行期间改变对象的Name属性的值(D)对象的Name属性值可以为空17、设*是整型变量，与函数IIf(*>0,-*,*)有一样结果的代数式是〔〕。(A)|*|(B)-|*|(C)*(D)-*18、将组合框bo1当前选中的工程内容赋值给变量S，正确的语句是〔〕。(A)S=bo1.Te*t(B)S=bo1.Value(C)S=bo1.List(D)S=bo1.List(0)19、建立一个图书资料管理输入界面，要求选择图书的借阅情况(借出/未借)、语种〔中文/英文/日文/其他〕及分类〔8类，存在重复分类，一本图书既属于1类，也同时属于2类〕。应如何在窗体中利用单项选择钮和复选框实现〔〕。(A)用一组14个复选框来实现(B)将8种分类用一组8个复选框、借阅情况和语种用一组6个单项选择钮实现(C)将8种分类用一组8个单项选择钮、借阅情况和语种用6个复选框实现(D)将8种分类用一组8个复选框、借阅情况用一组2个单项选择钮、语种用一组4个单项选择钮实现20、A、B、C中C最小，则判断A、B、C可否构成三角形三条边长的逻辑表达式是〔〕。(A)A>=BAndB>=CAndC>0(B)A+C>BAndB+C>AAndC>0(C)(A+B)>=CAndA-B<=C)AndC>0(D)A+B>CAndA-B>CAndC>021、执行〔〕后，会弹出如以下图所示的窗口。(A)*=InputBo*("输入框","请输入VB数据")(B)InputBo*("输入框","请输入VB数据")(C)*=InputBo*("请输入VB数据","输入框")(D)InputBo*("请输入VB数据","输入框")22、窗体有Te*t1文本框和mand1命令按钮，并有以下代码：PrivateSubmand1_Click()DimnIfTe*t1.Te*t<>"123456"Thenn=n+1Print"口令输入错误"&n&"次！"EndIfEndSub希望程序运行时假设输入口令不正确，显示出错的次数〔如下面图〕，但实际运行时没有出现预期效果〔如上面图〕。修改方案中正确的选项是〔〕。(A)在Dimn后添加一句：n=0(B)将Dimn改为Dimn%(C)将Dimn放到“通用〞-“声明〞处(D)将Print"口令输入错误"&n&"次！"改为Print"口令输入错误"+n+"次！"23、刚建立一个新的标准E*E工程后，不在工具箱中出现的控件是〔〕。(A)单项选择按钮(B)图片框(C)通用对话框(D)文本框24、设有语句Open"c:\Test.Dat"ForOutputAs*1，则以下错误的表达是〔〕。(A)该语句翻开C盘根目录下一个已存在的文件Test.Dat(B)该语句在C盘根目录下建立一个名为Test.Dat的文件(C)该语句建立的文件的文件号为1(D)执行该语句后，就可以通过Print*语句向文件Test.Dat中写入信息25、滚动条产生Change事件是因为〔〕值改变了。(A)Ma*(B)Min(C)Value(D)Caption二、程序阅读题〔每题3分，共15分〕1、执行下面的程序段后，列表框List1中余下的两项为1和3。Fori=1To4List1.AddItemiNe*tiFori=1To2List1.RemoveItemiNe*ti2、执行下面的程序段后，输出结果为2121。*=5ForI=1To20Step2*=*+I\5Ne*tIPrint*,I3、执行下面的程序段后，则在Te*t1中显示的值为24。DimA%(10,10),i%,j%Fori=1To10Forj=1To10A(i,j)=i+jNe*tNe*tTe*t1.Te*t=A(5,A(2,3))+A(7,A(3,4))4、执行下面的程序段后，在输入对话框中分别输入321和456，则窗体上的输出结果为321456。a=InputBo*("请输入一个整数")b=InputBo*("请输入一个整数")Printa+b5、程序运行后，单击命令按钮，则两个标签中显示的内容分别为518。PrivateSubmand1_Click()Dim*%,y%*=5:y=3Callproc(*,y)Label1.Caption=*Label2.Caption=yEndSubPrivateSubproc(ByValaAsInteger,bAsInteger)a=a*bb=a+bEndSub三、填空题〔每空2分,共40分〕1、请完善程序，功能是：随机生成一个8位数的整数，统计0～9这10个数字在生成的8位整数中出现的次数，并显示统计结果。Dimi%,s&,j%,a(0To9)AsIntegers=___int(rnd*9+1)&_int(rnd*10)&__int(rnd*10)_&_int(rnd*10)&_int(rnd*10)&_int(rnd*10)&_int(rnd*10)&_int(rnd*10)___Print"这个八位数是";sPrint"其中"Forj=1To8c=Val(Mid(s,j,1))a(c)=__a(c)+1___Ne*tjFori=0To9Ifa(i)<>0ThenPrinti;"出现的次数";___a(i)______endif_____Ne*ti2、窗体上有一个名为List1的列表框，一个名称为Te*t1的文本框，一个命令按钮，标题分别为“计算〞。编写代码实现：1〕程序启动时，将所有的3位素数添加到列表框中。函数Prime用于判断一个数是否为素数。请完善程序。2〕单击“计算〞按钮，则对List1中的数进展累加求和，并在文本框中显示计算结果。请完善程序。FunctionPrime(n%)AsBoolean'判断素数函数

Dimi%Prime=true

Fori=2ToSqr(n)Ifnmodi=0Then

Prime=False

Ne*tEndFunction

PrivateSubForm_Load()Dimi%,j%,tAsBooleanFori=100To999Ifprime(i)=trueThenList1.AddItemiNe*tiEndSubPrivateSubmand1_Click()‘计算Dimi%，sum%Fori=0ToList1.ListCount-1Sum=sum+Val(List1.List(i))Ne*tTe*t1.Te*t=SumEndSub3、将“ABC〞添加到列表框List1中第三项的语句为：List1.AddItem"ABC",2。4、求分段函数的值，可用y=IIf(*>=0,1+*,*^2+abs(2**))。5、设置文本框Te*t1中的文本字体颜色为红色的语句为：Te*t1.ForeColor=vbRed。6、命令按钮mand1左移200，实现语句是mand1.Movemand1.Left-200。7、将D:根目录下的顺序文件t1.t*t内容读入变量S，并显示在文本框Te*t1中；继而将其中的字母〔包括大小写〕、数字及其它字符的分别串成不同的字符串，最后将结果显示在图形框P1中。请完善程序段。Dims$,i%,c$,n1$,n2$,n3$Open"D:\t1.t*t"For【15】As*1DoWhile【16】s=【17】'文件的内容逐个读入变量sTe*t1.Te*t=Te*t1.Te*t&sLoopClose*1Fori=1ToLen(s)c=Mid(【18】)SelectCasecCase【19】n1=n1&cCase"0"To"9"n2=n2&c【20】n3=n3&cEndSelectNe*tP1.Print"字母串为：";n1P1.Print"数字串为：";n2P1.Print"其它字符串为：";n3四、程序设计题〔每题10分，共20分〕1、编程计算圆周率Pi的近似值。计算公式如下，一直到1/i小于0.0000001为止。2、编写程序，形成数列1，1，1，3，5，9，17，……的前N项〔该数列的规律是从第四项开场，每一项为哪一项前三项之和〕，直到*项的值超过50000。期末自测题〔B卷〕一、单项选择题〔每题1分，共25分〕1、是Internet上的()。(A)IP地址(B)域名(C)密码(D)软件编号2、..是Internet上的()。(A)IP地址(B)域名(C)密码(D)软件编号3、计算机病毒是〔〕。(A)一种令人生畏的传染病(B)一种使硬盘无法工作的细菌(C)一种可治的病毒性疾病(D)一种使计算机无法正常工作的破坏性程序4、以下表示存储容量的数据中，〔〕是最大的。(A)1.44MB(B)20480KB(C)1GB(D)48657Byte5、以下设备中，不能作为计算机输出设备的是〔〕。(A)显示器(B)绘图仪(C)扫描仪(D)打印机6、以下字符序列中，可以作为变量名的是〔〕。(A)a24(B)ab*d(C)a$*(D)CdE7、表达式5Mod3+3\5*2的值是〔〕。(A)0(B)2(C)4(D)68、改变控件在窗体中的上下位置，应修改控件的〔〕属性。(A)Top(B)Left(C)Width

(D)Right9、以下语句错误的选项是〔〕。(A)E*itFor(B)E*itIf(C)E*itDo(D)E*itSub10、在默认情况下，InputBo*函数返回值的类型为〔〕。(A)数值(B)字符串(C)变体(D)数值或字符串(视输入的数据而定)11、窗体上有一水平滚动条，其Ma*为1，Min为100。以下表达中正确的选项是〔〕。(A)程序运行时，假设使滚动块向左移动，滚动条的Value属性值会增大(B)程序运行时，假设使滚动块向左移动，滚动条的Value属性值会减小(C)由于滚动条的Ma*值小于Min值，程序出错(D)由于滚动条的Ma*值小于Min值，程序运行时滚动条的长度会缩为一点，滑块无法移动12、在窗体上有两个名分别为Op1、Op2的单项选择按钮，一个名称为Ck1的复选框。程序运行后，要求Op1和Ck1被选中，以下能实现上述操作的程序段是〔〕。(A)Op1.Value=TrueCk1.Value=True(B)Op1.Value=TrueCk1.Value=1(C)Op1.Value=FalseCk1.Value=0(D)Op1.Value=TrueCk1.Value=213、设*=30,执行语句y=IIf(*>10,*+10,IIf(*<0,*^2,*^3))后，y值是〔〕。(A)30(B)40(C)900(D)270014、以下定义数组或给数组元素赋值的语句中，正确的选项是〔〕。〔A〕DimaAsVarianta=Array(1,2,3,4,5)〔B〕Dima(10)AsIntegera=Array(1,2,3,4,5)〔C〕Dima%(10)a(1)="ABCDE"〔D〕Dima(3),b(3)AsIntegera(0)=0:a(1)=1:a(2)=2:b=a15、以下语句中错误的选项是〔〕。(A)Te*t1.Te*t=List1.Te*t(B)Label1.Caption=List1.Te*t(C)List1.Name=List1.Te*t(D)mand1.Caption=List1.Te*t16、以下表达中错误的选项是〔〕。(A)列表框与组合框都有List属性(B)列表框有Selected属性，而组合框没有(C)列表框和组合框都有Style属性(D)组合框有Te*t属性，而列表框没有17、如果要在菜单中添加一个分隔线，则应将其Caption属性设置为〔〕。(A)=(B)*(C)&(D)-18、将组合框bo1当前选中的工程下标赋值给变量S，正确的语句是〔〕。(A)S=bo1.Te*t(B)S=bo1.ListInde*(C)S=bo1.List(D)S=bo1.List(0)19、要向文件t1.t*t添加数据，正确的文件翻开命令是〔〕。(A)Open"t1.t*t"ForWriteAs*1(B)Open"t1.t*t"ForAppendAs*1(C)Open"t1.t*t"ForInputAs*1(D)Open"t1.t*t"ForOutputAs*120、表达式Abs(-5)+Len("ABCDE")的值是〔〕。(A)-5ABCDE(B)5ABCDE(C)0(D)1021、执行语句PrintMid("VisualBasic",3)，在窗体上显示的内容是〔〕。(A)s(B)Vis(C)sua(D)sualBasic22、VB中窗体、图片框或图像框装入图形可使用〔

〕函数。(A)LoadPicture(B)PictureLoad(C)LoadImage(D)Imageload23、有如下声明语句：Dimstr1AsString*5，则执行语句Str1="VisualBasic"后，str1的值是〔〕。(A)Visual(B)Visua(C)VisualBasic(D)V24、窗体上有两个列表框List1和List2，List1中有假设干工程〔如以下图所示〕，并有下面程序：PrivateSubmand1_Click()Fork=0ToList1.ListCount-1IfList1.Selected(k)ThenList2.AddItemList1.List(k)List1.RemoveItemkEndIfNe*tkEndSub程序运行时假设按图示在List1中选中2个工程并单击命令按钮，则产生的结果是〔〕。(A)在List2中添加了“物理〞、“计算机〞两项(B)在List1中删除了“物理〞、“计算机〞两项(C)同时产生(A)和(B)的结果(D)出现错误提示25、能表示身高H超于1.7米且体重W小于62.5千克的逻辑表达式是〔〕。(A)H>1.7AndW<=62.5(B)H<=1.7OrW>=62.5(C)H>1.7AndW<62.5(D)H>1.7OrW<62.5二、程序阅读题〔每题3分，共15分〕1、程序运行后，单击命令按钮，输出结果为135。PrivateSubmand1_Click()DimnumAsIntegernum=1DoUntilnum>6Printnum;num=num+2.4LoopEndSub2、以下程序片段运行后输出a的值是3。a=0Fori=1To3Forj=1To3Ifj<iThena=a+1Ne*tjNe*tiPrinta3、程序运行后，单击命令按钮，则两个标签中显示的内容分别为253。PrivateSubmand1_Click()Dim*%,y%*=5:y=3Callproc(*,y)Label1.Caption=*Label2.Caption=yEndSubPrivateSubproc(aAsInteger,ByValbAsInteger)a=a*ab=b+bEndSub4、程序运行后，单击命令按钮，则变量a的值是负。PrivateSubmand1_Click()temp=Int(-0.8)SelectCasetempCaseIs<0a="负"Case0a="零"CaseIs>0a="正"EndSelectEndSub5、执行下面的程序段后，输出结果为93。DimA%(10,10),i%,j%Fori=1To10Forj=1To10A(i,j)=i*jNe*tNe*tPrintA(5,A(2,3))+A(7,A(3,3))三、填空题〔共40分，每空2分〕1、要使用以下For循环执行20次，请在下划线处填入正确的值。Fork=99To–2Step-52、命令按钮mand1右移200，实现语句是mand1.Movemand1.Left+200。3、设a、b、c都是整型变量，判断“a和b中有一个小于c〞的表达式是iif(a>b,b<c,a<c)。4、请完善程序，功能是：在文本框Te*t1中输入一串字符，在窗体上输出其中出现频率最高的字母〔不区分大小写〕及其出现次数。例如：输入“Thisisabeautifulworld.〞则输出“使用频率最高的是i，共出现3次。〞PrivateSubmand1_Click()Dims$,a%(65To90),i%,ma*%,n%s=Te*t1.Te*tFori=1ToLen(s)n=Asc(Ucase(mid(s,I,1)))Ifn>=65Andn<=90ThenA(n)=a(n)+1EndIfNe*tma*=65Fori=65to90Ifa(i)>a(ma*)Thenma*=iNe*tPrint"使用频率最高的是:"&chr(ma*)&",共出现"&a(ma*)&"次。"EndSub5、窗体上有一个名为List1的列表框，一个名称为Te*t1的文本框，一个命令按钮，标题分别为“计算〞。1〕程序启动时，将1000以内完数添加到列表框中。函数PerfNum用于判断一个数是否为完数(一个数如果恰好等于它的因子之和，这个数就被称为“完数〞。一个数的因子是指除了该数本身以外能够被其整除的数)。请完善程序。2〕单击“计算〞按钮，则对List1中的数进展累加求和，并在文本框中显示计算结果。请完善程序。FunctionPerfNum(n%)AsBoolean'判断