《2022年计算机二级VB全真模拟题16.docx》由会员分享，可在线阅读，更多相关《2022年计算机二级VB全真模拟题16.docx（8页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、2022年计算机二级VB全真模拟题16单项选择题。1不能脱离控件(包括客体)而独立存在的过程是A)事件过程B)通用过程C)Sub过程D)函数过程2Sub过程与Function过程最根本的区别是A)Sub过程可以用Call语句直接使用过程名调用，而Function过程不可以B)Function过程可以有形参，Sub过程不可以C)Sub过程不能返回值，而Function过程能返回值D)两种过程参数的传递方式不同3单击命令按钮时，下列程序的执行结果为PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=12:y=32CallProc(x,y)Prin
2、tx;yEndSubPublicSubProc(nAsInteger,ByValmAsInteger)n=nMod10m=mMod10EndSubA)1232B)232C)23D)1234单击命令按钮时，下列程序的执行结果是PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsIntegera=3b=4c=5PrintSecProc(c,b,a)EndSubFunctionFirProc(xAsInteger,yAsInteger,zAsInteger)FirProc=2x+y+3zEndFunctionFunctionSecProc(xA
3、sInteger,yAsInteger,zAsInteger)SecProc=FirProc(z,x,y)+xEndFunctionA)20B)22C)28D)305下列程序的执行结果为PrivateSubCommand1_Click()DimFirStrAsStringFirSt=abcdefPrintPat(FirStr)EndSubPrivateFunctionPat(xStrAsString)AsStringDimtempStrAsString,strLenAsIntegertempStr=strLen=Len(xStr)i=1DoWhilei<=Len(xStr)-3tempS
4、tr=tempStr+Mid(xStr,i,1)+Mid(xStr,strLen-i+1,1)i=i+1LoopPat=tempStrEndFunctionA)abcdefB)afbecdC)fedcbaD)defabc6如下程序，运行的结果是PrivateSubForm_Click()DimmAsInteger,iAsInteger,x(10)AsIntegerFori=0to4x(i)=i+1NextiFori=1to2Callproc(x)NextiFori=0to4Printx(i);NextiEndSubPublicSubproc(a()AsInteger)StaticiAsInte
5、gerDoa(i)=a(i)+a(i+1)i=i+1LoopWhilei<2EndSubA)34756B)35745C)23445D)456787假设有以下程序段：ForI=1to3Forj=5to1Step-1PrintI*jNextjNextI则语句PrintI*j的执行次数I、j的值分别是A)1540B)1631C)1740D)18318在窗体上一个文本框，其名称为Text1,然后编写如下事件过程：PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimstrAsString,nAsIntegerstr=UCase(Chr(KeyAscii)n=
6、Len(str)Text1=String(n,str)EndSub程序运行后，如果在键盘上输入单字母K，则在文本框Text1中显示的内容为A)kkB)kKC)KKD)Kk9下列叙述不正确的是A)驱动器列表框是一种能显示系统中所有有效磁盘驱动器的列表框B)驱动器列表框的Drive属性只能在运行时被设置C)从驱动器列表框中选择驱动器能自动变更系统当前的工作驱动器D)要改变系统当前的工作驱动器需要使用ChDrive语句10窗体上有Text1、Text2两个文本框及一个命令按钮Command1,编写下列程序：DimyAsIntegerPrivateSubCommand1_Click()DimxAsIn
7、tegerx=2Text1.Text=p2(p1(x),y)Text2.Text=p1(x)EndSubPrivageFunctionP1(xAsInteger)AsIntegerx=x+y:y=x+yP1=x+yEndFunctionPrivateFunctionP2(xAsInteger,yAsInteger)AsIntegerP2=2*x+yEndFunction当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别是A)2424B)2448C)10105858D)4488C第8页 共8页第 8 页 共 8 页第 8 页 共 8 页第 8 页 共 8 页第 8 页 共 8 页第 8 页 共 8 页第 8 页 共 8 页第 8 页 共 8 页第 8 页 共 8 页第 8 页 共 8 页第 8 页 共 8 页