计算机二级(VB)47 真题-无答案.pdf

该【计算机二级(VB)47 真题-无答案 】是由【小屁孩】上传分享，文档一共【6】页，该文档可以免费在线阅读，需要了解更多关于【计算机二级(VB)47 真题-无答案 】的内容，可以使用淘豆网的站内搜索功能，选择自己适合的文档，以下文字是截取该文章内的部分文字，如需要获得完整电子版，请下载此文档到您的设备，方便您编辑和打印。计算机二级(VB)47(总分100,考试时间120分钟)选择题(每小题2分,共70分)下列各题四个选项中,有一个是正确的,请选择正确答案。()。Dimi,c(10),p(3)k=5Fori=0To10c(i)=iNextiFori=0To2p(i)=c(i*(i+1))NextiFori=0To2k=k+p(i)*:mand1_Click()b=10DoUntilb=-1a=InputBox("请输入a的值")a=Val(a)b=InputBox("请输入b的值")b=Val(b)a=a*bLoopPrintaEndSub程序运行后,依次输入数值30,20,10,-1,输出结果为()。.-.-,其标题会变灰,框架中所有的对象均被屏蔽?,可以是窗体或图片框,如果省略则清除当前窗体中显示的内容。,,,并把光标移到对象的左上角(0,0)=2,b=3,c=4,d=5,下列表达式的值是______。Nota<=cOr4*c=b^2Andb<>a+cA.-、Text2两个文本框(见下图)要求程序运行时,在Text1中输入1个分数后按回车键,则判断分数合法性,若分数为0—100的1个数,则光标移到Text2中,否则光标不动,并弹出对话框显示"分数错"。下面程序中正确的是【】(KeyAsciiAsInteger)IfKeyAscii=13Then回车符的ASCII码是13a=Val(Text1)Ifa>;0Ora<=:MsgBOX("分数错")(KeyAsciiAsInteger)IfKeyAscii=13Then回车符的ASCII码是13a=val(Textl)Ifa>=0Anda<=:MsgBOX("分数错")(KeyAsciiAsInteger)IfKeyAscii=13Then回车符的ASCII码是13a=val(Textl)Ifa<0Anda>:MsgBOX("分数错")(KeyAsciiAsInteger)IfKeyAscii=13Then回车符的ASCII码是13a=Val(Text1)Ifa>=0Anda<=:Msgbox("分数错")()。()。,―类是ActiveX控件,另一类是()。(mand1)和1个文本框(名称为Text1),然后编写如下事件过程:mand1_Click()x=Val()SelectCasexCase1,3y=x*xCaseIs>=10,Is<=-10y=xCase-10To10y=-xEndSelectEndSub程序运行后,在文本框中输入3,然后单击命令按扭,则以下叙述中正确的是______。=x*=-=x*x,再执行y=-,不能继续执行其他操作,这种对话框属于()。(模态),其标题会变灰,框架中所有的对象均被屏蔽?【】,【】,,应该动命令按钮的何种属性?,其中的窗体名称为Form1;之后又添加了1个名为Fonn2的窗体,,那么他需要做的工作是【】“启动对象",()。mandl_Click()DimXAsInteger,yAsIntegerx=12:y=20CallValue(x,y)PrintX;yEndSubPrivateSubValue(ByValmAsInteger,ByValnAsInteger)m=m*2:n=n-5Printm;,文本内容只能用什么属性来设置?【】,:i=0Whilei<=1i=i+3PrintiWend则运行后的输出结果是()。,mand1,然后编写如下事件过程:Privatemand1_Click()a=12345PrintFormat$(a,"")EndSub程序运行后,单击命令按钮,窗体上显示的是()。()。,mand1,然后编写如下事件过程:PrivateSubCommand1_Click()Dima1(4,4),a2(4,4)DimiAsInteger,jAsIntegerFori=1To4Forj=1To4a1(i,j)=i+ja2(i,j)=a1(i,j)+i+jNextjNextiPrinta1(3,3);a2(3,3)EndSub程序运行后,单击命令按钮,在窗体上输出的是______。,续行符是用来换行书写同一个语句的符号,用以表示续行符的是()。(名称为Form1)mand1的命令按钮,然后编写一个事件过程。程序运行后,如果在文本框中输入一个字符,则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是______。()="计算机等级考试"()Caption="计算机等级考试"()="计算机等级考试"()="计算机等级考试",mand1,然后编写如下程序:DimFlagAsmand1_Click()DimintNumAsIntegerintNum=InputBox("请输入:")IfFlagThenPrintf(intNum)EndIfEndSubFunctionf(XasInteger)AsIntegerIfX<10ThenY=XElseY=X+10EndIff=YEndFunctionPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XasSingle,YAsSingle)Flag=TrueEndSub运行程序,首先单击窗体,然后单击命令按钮,在输入对话框中输入5,则程序的输出结果为______。()。,()。a=75Ifa>60ThenScore=1Ifa>70ThenScore=2Ifa>80ThenScore=3Ifa>90ThenScore=4Print"Score=";(ASCII码),然后编写如下事件过程:mand1_Click()DimmAsInteger,nAsInteger,pAsIntegerm=3:n=5:p=OCallY(m,n,p)PrintStr(p)EndSubSubY(ByValiAsInteger,ByValjAsInteger,kAsInteger)k=i+jEndSub程序运行后,如果单击命令按钮,则在窗体上显示的内容是()。,错误的是______。,应设置的属性为()。<数据表名><数据表名><数据表名><数据表名>,mand1、Label1和Label2,然后编写如下事件过程:mand1_Click()a=0Fori=1To10a=a+1b=0Forj=1To10a=a+1b=b+=str(a)=str(b)EndSub程序运行后,单击命令按钮,在标签Label1和Label2中显示的内容分别是【】()。I=4x=5DoI=I+1X=K^2LoopUntilI>=7Print"I=";IPrint"x=";=4x==7x==6x==7x=,要求单击滚动条右端的鬻按钮一次,滚动块移动一定的刻度值,决定此刻度值的属性是【】()。()n=5:x=1DoX=X*II=I+1LoopWhileI<()n=5:X=1:I=1DoX=X*II=I+1LoopWhileI<()n=5:X=1:I=1DoX=X*II=I+1LoopWhileI<=()n=5:X=1:I=1DoX=X*II=I+1LoopWhileI>,错误的是()。,,(每空2分,共30分)【】为单位进行操作的。^2Mod36\2^5的值是【】:将数据1,2,…,,填空。请PrivateSubForm_Click()DimiAsIntegerOpen【】As#1Fori=1To10【】NextiClose#,在列表框List1中已经有若干人的简单信息,运行时在Text1文本框(即“查找对象”右边的文本框)输入一个姓或姓名,单击“查找”按钮,则在列表框中进行查找,若找到,则把该人的信息显示在Text2文本框中。若有多个匹配的列表项,则只显示第1个匹配项;若未找到,则在Text2中显示“查无此人”。填空。mand1_Click()DimkAsInteger,nAsInteger,foundAsBooleanfound=Falsen=Len(_________)k=0Whilek<=Left$((k),n)ThenText2=_________found=TrueEndIfk=k+1WendIfNotfoundThenText2="查无此人",统计并输出最高分和最低分,当输入负数时结束输入,输出结果。请补充完整下列程序段。Dimx,amax,aminAsSinglex=InputBox("Enterascore")amax=xamin=xDoWhile【】Ifx>amaxThenamax=xEndIfIf【】Thenamin=xEndIfx=InputBox("enterascore")LoopPrint"max=";amax,"min=";≤-5或x≥5所对应的布尔表达式是【】。【】。,把数据看成是二维表,每一个二维表称为一个_________。,RemoveItem方法的作用是【】。,然后判断能否同时被2,5和7整除,果能则输出该数及平方值。请填空。mand1_Click()DimnumXAsIntegernumX=Val(InputBox("请输入一个整数"))If【】【】。【】语句定义自己的数据类型。,即符号、【】和尾数。,应将Timer1控件的【】属性设置为【】。:若Text为1,则打印“您的成绩为优秀!”;若Text为2,则打印“您的成绩为良好!”;若Text为3,则打印“您的成绩为一般”;否则打印“您的成绩一般以下!”,请填空。mand1_Click()SelctCaseVal()Case【】Print"您的成绩为优秀!"Case【】Print"您的成绩为良好!"Case【】Print"您的成绩为一般!"CaseElsePrint"您的成绩为一般以下!"EndSelectEndSub