《2022年计算机二级VB全真模拟题17.docx》由会员分享，可在线阅读，更多相关《2022年计算机二级VB全真模拟题17.docx（8页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、2022年计算机二级VB全真模拟题17单项选择题。1在Activate事件过程中，写入下面的程序：OptionBase1PrivateSubForm_Activate()DimtAsIntegerDima()AsVarianta=Array(2,4,6,8,10,1,3,5,7,9)Fori=1to102t=a(i)a(i)=a(10-i+1)a(10-i+1)=tNextiForj=1to10Printa(j);NextjEndSub运行程序后，显示的结果是A)24681013579B)13579246810C)97531108642D)108642975312在Activate事件过程中，
2、写入下面的程序：PrivateSubForm_Activate()DimSAsString,aAsString,bAsStringa=*:b=$Fori=1to4Ifi/2=Int(i/2)ThenS=String(Len(a)+i,b)ElseS=String(Len(a)+i,a)EndIfPrintS;NextiEndSub运行程序后，显示结果是A)$*$*B)*$*$*$*$C)*$*$D)$*$*$*$*3在窗体上设置相应的控件，并在代码窗口编写下列程序：PrinteSubForm_Click()DimaAsLong,bAsLonga=InputBox(请输入若干个整数)CallP(
3、a,b)PrintbEndSubPrivateSubP(xAsLong,yAsLong)DimnAsInteger,jAsString*1,sAsStringk=Len(Trim(Str(x)s=Fori=KTo1Step-1j=Mid(x,i,1)s=s+jNextiy=Val(s)EndSub运行程序，在InputBox框中输入123456,然后单击确定按钮，则输出结果是A)123456B)654321C)135246D)2461354设定文本框内的文字内容是否允许修改的属性是A)TextB)LockedC)PasswordCharD)Multiline5要建立一个学生成绩的随机文件，如下
4、定义了学生的记录类型，由学号、姓名、三门课程成绩（百分制）组成，下列程序段正确的是A)TypestudlnoAsIntegernameASStringscore(1to3)AsSingleEndTypeB)TypestudlnoAsIntegernameAsString*10score()AsSingleEndTypeC)TypestudlnoAsIntegernameAsString*10score(1to3)AsStngleEndTypeD)TypestudlnoAsIntegernameAsStringscore(1to3)AsStringEndType6为了暂时关闭计时器，应把该计时器
5、的某个属性设置为False，这个属性是A)VisibleB)TimerC)EnabledD)Interval7为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为A）Get文件号，记录号，变量名B）Get文件号，变量名，记录号C）Put文件号，变量名，记录号D）Put文件号，记录号，变量名8对窗体编写如下事件过程：PrivateSubForm_MouseDown(ButtonAsInteger,_ShiftAsInteger,XAsSingleYAsSingle)IfButton=2ThenPrintAAAAAEndIfEndSubPrivateSubForm_MouseUp(
6、ButtonAsInteger,_ShiftAsInteger,XAsSingle,YAsSingle)PrintBBBBBEndSub程序运行后，如果单击鼠标右键，则输出结果为A)AAAAAB)BBBBBC)AAAAAD)BBBBBBBBBBAAAAA9为了在运行时能显示窗体左上角的控制框（系统菜单），必须A)把窗体的Contro1Box属性设置为Fale,其他属性任意B)把窗体的ControlBox属性设置为True,并且把BoderStyle属性设置为1-5C)把窗体的ControlBox属性设置为False,同时把BoderStyle属性调协为非0值D)把窗体的ControlBox属性
7、设置为True,同时把BoderStyle属性设置为0值10对窗体编写如下代码：OptionBase1PrivateSubForm_KeyPress(KeyAsciiAsInteger)a=Array(237,126,87,48,498)m1=a(1)m2=1IfKeyAscii=13ThenFori=2To5Ifa(i)>mlThenm1=a(j)m2=iEndIfNextiEndIfPrintm1Printm2EndSub程序运行后，按回车键，输出结果为A)48B)237C)498D)4984154第8页 共8页第 8 页 共 8 页第 8 页 共 8 页第 8 页 共 8 页第 8 页 共 8 页第 8 页 共 8 页第 8 页 共 8 页第 8 页 共 8 页第 8 页 共 8 页第 8 页 共 8 页第 8 页 共 8 页