VB实验教材模拟练习(有答案)

模拟练习一第一部分计算机信息技术基础知识选择题（共20分，每题2分）1．IP地址通常分为固定IP地址和动态IP地址，目前国内大多数家庭上Internet网的用户的IP地址都是B的。A．相同B．动态C．可以相同D．固定2．下列四个不同进位制的数中，数值最大的是B。A．十进制数73.5B．二进制数1001101.01C．八进制数115.1D．十六进制数4C.43．下列关于台式PC机芯片组的叙述中，错误的是D。A．芯片组是主板上最为重要的部件之一，存储器控制、I/O控制等功能主要由芯片组实现B．芯片组与CPU同步发展，有什么样功能和速度的CPU，就需要什么样的芯片组C．芯片组决定了主板上能安装的内存最大容量及可使用的内存条类型D．同CPU一样，用户可以很方便，很简单地更换主板上的芯片组4．路由器（Router）用于异构网络的互连，它跨接在几个不同的网络之间，所以它需要使用的IP地址个数为_D_。A．1B．2C．3D．所连接的物理网络的数目5．为了既能与国际标准UCS(Unicode)接轨，又能保护现有的中文信息资源，我国政府发布了_C汉字编码国家标准，它与以前的汉字编码标准保持向下兼容，并扩充了UCS/Unicode中的其他字符。A．ASCIIB．GB2312C．GB18030D．GBK6．在下列有关通信技术的叙述中，错误的是C。A．目前无线电广播主要还是采用模拟通信技术B．数字传输技术最早是被长途电话系统采用的C．数字通信系统的信道带宽就是指数据的实际传输速率(简称“数据速率”)D．局域网中广泛使用的双绞线既可以传输数字信号，也可以传输模拟信号7．在下列有关商品软件、共享软件、自由软件及其版权的叙述中，错误的是C。A．通常用户需要付费才能得到商品软件的合法使用权B．共享软件是一种“买前免费试用”的具有版权的软件C．自由软件允许用户随意拷贝，但不允许修改其源代码和自由传播D．软件许可证确定了用户对软件的使用方式，扩大了版权法给予用户的权利8．下列有关Internet的叙述错误的是_A。A．随着Modem性能的提高，电话拨号上网的速度越来越快，目前可达1Mbps以上B．用户从不同的网站下载信息，其速度通常有所不同C．从Internet上搜索到的信息，有时不能下载到本地计算机D．网页上的图片大多为GIF和JPEG格式9．下面有关I／O操作的说法中正确的是_A_。A．为了提高系统的效率，I／O操作与CPU的数据处理操作通常是并行进行的B．CPU执行I／O指令后，直接向I／O设备发出控制命令，I／O设备便可进行操作C．某一时刻只能有一个I／O设备在工作D．各类I／O设备与计算机主机的连接方法基本相同10．在未压缩情况下，图像文件大小与下列因素无关的是A。A．图像内容B．水平分辨率C．垂直分辨率D．像素深度第二部分VisualBasic程序设计一、选择题（共10分，每题2分）1．数学表达式22101logcos(60)xxxye对应的VB表达式为B。A．Log(x)/Log(10)+Abs(Sqr(x^2+y^2))/(Exp(x+1)-Cos(60*3.14159/180))B．(Log(x)/Log(10)+Abs(Sqr(x*x+y*y)))/(Exp(x+1)-Cos(60*3.14159/180))C．(Log(x)+Abs(Sqr(x^2+y^2)))/(Exp(x+1)-Cos(60*3.14159/180))D．(Log(x)+Abs(Sqr(x*x+y*y)))/(e^(x+1)-Cos(60*3.14159/180))2．已知XY，AB，则下列表达式中，结果为True的是_C。A．Sgn(X-Y)+Sgn(A-B)=-1B．Sgn(X-Y)+Sgn(A-B)=-2C．Sgn(Y-X)+Sgn(A-B)=2D．Sgn(Y-X)+Sgn(A-B)=03．以下对数组参数的说明中，错误的是_A_。A．在过程中可以用Dim语句对形参数组进行声明B．形参数组只能按地址传递C．实参为动态数组时，可用ReDim语句改变对应形参数组的维界D．只需把要传递的数组名作为实参，即可调用过程4．在文本框Text1中输入数字12，在文本框Text2中输入数字34，执行以下语句，可在文本框Text3中显示46的是_B。A．Text3.Text=Text1.Text&Text2.TextB．Text3.Text=Val(Text1.Text)+Val(Text2.Text)C．Text3.Text=Text1.Text+Text2.TextD．Text3.Text=Val(Text1.Text)&Val(Text2.Text)5．Print方法可在_A上输出数据。①窗体②文本框③图片框④标签⑤列表框⑥立即窗口A．①③⑥B．②⑨⑤C．①②⑤D．③④⑥二、填空题（共20分，每空2分）1．执行下面程序，单击命令按钮Command1，在弹出的InputBox对话框中输入8，并按“确定”按钮，则a(1)的值是21，a(5)的值是_3_OptionExplicitOptionBase1PrivateSubCommand1_Click()Dima()AsInteger,iAsInteger,nAsIntegern=InputBox(输入N,,8)ReDima(n)Callprocess(a,1,1)Fori=1TonPrinta(i)NextiEndSubPrivateSubprocess(a()AsInteger,mAsInteger,nAsInteger)DimiAsIntegeri=UBound(a)a(i)=ma(i-1)=ni=i-2DoWhilei=1a(i)=a(i+1)+a(i+2)i=i-1LoopEndSub2．执行下面的程序，单击Command1，则数组元素a(1,2)的数值是15，a(2,3)的数值是9，a(4,3)的值是2。OptionExplicitPrivateSubCommand1_Click()Dima(4,4)AsInteger,iAsIntegerDimjAsInteger,kAsInteger,nAsIntegern=16:k=2DoFori=1To4Forj=1To4Ifi+j=kThena(i,j)=nn=n-1EndIfNextjNextik=k+1LoopUntilk8Fori=1To4Forj=1To4PrintRight(&a(i,j),3);NextjPrintNextiEndSub3．执行下面程序，单击按钮Command1，在窗体上第一行显示的内容是0.6，第三行显示的内容是5.4。OptionExplicitPrivateSubCommand1_Click()DimxAsSingle,iAsIntegerx=1.2Fori=1To3x=x*iPrintfun1(x)NextiEndSubPrivateFunctionfun1(xAsSingle)AsSingleStaticyAsSingley=y+xfun1=y/2EndFunction4．运行下面程序，单击CmdRun，在窗体上显示a的值是-25，b的值是14_，i的值是13_。OptionExplicitPrivateSubCmdRun_Click()DimiAsInteger,aAsInteger,bAsIntegera=1:b=10Fori=aTobStepa+1a=a-i–1:b=b+1:i=i+1NextiPrinta,b,iEndSub三、操作题（共50分）１．完善程序。（共12分）【要求】打开“C:\学生文件夹”中“P1.vbp”文件，按参考界面形式编辑窗体界面，完善程序后，直接保存所有文件。【题目】本程序的功能是，找出使用公式412mm（m=1~100）生成的一个数据序列中的所有非素数，分别输出这些非素数的全部真因子。所谓数据n的真因子是指除1和n之外的因子。OptionExplicitPrivateSubCommand1_Click()DimmAsInteger,pAsLongDimst1AsStringForm=1To100st1=_'p=m*m-m+41IfNotprime(p)ThenCallfac(p,st1)List1.AddItem第&m&项&p&:&st1EndIfNextmEndSubPrivateFunctionprime(nAsLong)AsBooleanDimkAsIntegerFork=2ToSqr(n)IfnModk=0Then_'ExitFunctionNextkprime=TrueEndFunctionPrivateSubfac()'nAsLong,stAsStringDimiAsIntegerFori=2Ton\2IfnModi=0Thenst='st&I&,EndIfNextist=Left(st,Len(st)-1)EndSub２．改错题（共16分）【要求】(1)打开“C:\学生文件夹”中“P2.vbp”文件，按参考界面形式编辑窗体界面，改正程序中的错误后，直接保存所有文件；(2)改错时，不得增加或删除语句，但可适当调整语句位置。【题目】求在区间[2，1000]上的完数。一个数如果恰好等于它的因子之和，这个数称为完数。一个数的因子是指除了该数本身以外能够被其整除的数。例如，6是一个完数，因为6的因子是1，2，3，而且6=1+2+3。OptionExplicitPrivateSubCommand1_Click()DimiAsInteger,jAsIntegerDimb()AsIntegerFori=2To1000Ifwanshu(i,b)=TrueThenPicture1.Printi;=;Forj=1ToUBound(b)Picture1.Printb(j);+;NextjPicture1.Printb(j)'输出最后一个因子EndIfNextiEndSubPrivateFunctionwanshu(xAsInteger,b()AsInteger)AsBooleanDimiAsInteger,jAsInteger,sumAsIntegerReDimb(1)b(1)=1j=1Fori=2Tox-1sum=1IfxModi=0Thensum=sum+ij=j+1ReDimb(j)b(j)=iEndIfNextiIfsum=xThenwanshu=TrueEndFunction3．编程题（22分）【要求】（1）打开“C:\学生文件夹”中“P3.vbp”文件，根据题目要求编写和调试程序后，直接保存所有文件。（2）程序代码书写应呈锯齿形，否则适当扣分。【题目】编写程序，生成两个均由两位随机整数组成的数组，每个数组中的10个元素互不相同，找出存在于这两个数组中的相同的数并输出。【编程要求】1．程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2．运行程序，按“生成”按钮，调用arry过程随机生成两个数组，并分别按图示格式输出到文本框1与文本框2中；按“查找”按钮，则找出两个数组中共同存在的数据，输出到文本框3中，若没有共同的数据，则输出“无共同元素”；按“清除”按钮，将3个文本框清空；3．程序中应定义一个名为arry的通用Sub过程，用于生成无重复数的两个数组。PrivateSubCommand1_Click()DimiAsIntegerCallarry(a(),b())Fori=1To10Text1=Text1&a(i)&Text2=Text2&b(i)&NextiEndSubPrivateSubCommand2_Click()DimiAsInteger,jAsIntegerFori=1To10Forj=1To10Ifa(i)=b(j)ThenText3=Text3&a(i)&NextjNextiIfLen(Text3)=0ThenText3=无相同元素EndSubPrivateSubCommand3_Click()Text1