2012年3月全国计算机等级考试二级笔试试卷

2012年3 计算机等级考试二级笔试试VisualBasic ） 外模 则由关系R和S得到关系T的操作是 ） D． ） 测 ） ） B．PAD图C．数据流图（DFD图）D．程序流程 case ） C．x>=0and D．x>=0or D．程序运行期间，可以改变Name属性值下面定义窗体级变量a的语句中错误的是 ）A．Dima% C．PrivateaAsInteger D．Statica% ）A． B．C． D． Dimarr（-2to2,0to3）AS ） SelectCaseCaseCaseIsCaseelseEnd

Ifx<0Elseifx<=5thenEndify=iif｛x<0，5，iif(x<=5，2*+1)｝D．Ifx<0ThenIfx<=5andx>=0theny=2*xIfx>5theny=x*x+1Print OptionBasePrivateSubDimaFori=4to1Step-1s=s+a(i)*xPrintsEndSub ） PrivateSubStaticxAsIntegerx=f(x+5)PrintxEndSubPrivateFunctionf(xAsInteger)AsIntegerf=x+xEnd ） 设计菜单是，菜单项的“有效”未选， 窗体上有一个名称为CommonDialog1的通用 框，一个名称为Command1 PrivateSubCommand1_Click()CommonDialog1.DefaultExt="doc"CommonDialog1.FileName="VB.txt"CommonDialog1.FilterIndex=1EndSub ） Dima(10)As ）A．PrivateSubp(aAs B．PrivateSubp(a()AsC．PrivateSubp(a(10)As D．PrivateSubp(a(n)As A．Listindex C．Text。PrivateSubText1_Change()End运行程序，在文本框Text1中原有字符之前输入a，Text2中显示的是 A． B． C． D．OptionBasePrivateSubCommand1_Click()Dimarr(10)ForEachaInarrIfa>50ThenSum=Sum+aEndIfNextaEndSub Nexta应改为10arr中，从键盘输入要删除的数组元素的下标，OptionBasePrivateSubCommand1_Click()Dimarr(10)ASIntegerFori=1to10arr(i)=int(Rnd*100)Printarr(i);Fori=x+1to10 Fori=1to10 Printarr(i);EndSub ) 列表框Dir1、文件列表框File1时，需要设置控件的 ）D．弹出式菜单通过窗体的Popup xAsStringyAsIntegerEndTypePrivateSubDimaAsstuPrintaEndSub ） 在窗体上画两个名称分别为Text1、Text2的文本框，一个名称为Lable1的 b所示。实现上述功能如下：图 图CallShowText(Text1)EndPrivateSubText2Change()CallShowText(Text2)EndPrivateSubshowText(TAsTextBox)EnbSub ）设有打开文件的语句为：Open“test.dat”ForRandomAs#1，要求把变量a中的数据 Input B．Write C．Put D．Get在长度为n的顺序 数为（ ） ）下面的事件过程执行时，可以把Text1文本框中的内容写到文件“file1.txt“中去。请填PivateSubOpen“file1.txt”For（6 print（7 ），Text1.TextClose#1End设窗体上有一个名称为Label1的。程序运行时，单击鼠标左键，再移动鼠标，鼠标的位置坐标会实时地显示在Label1中：单击鼠标右键则停止实时显示，并将中内容清除。下面的程序可实现这能，请填空。DimDownAsPrivateSubForm_MouseDown(ButtonAsInteger，ShiftAsInteger，xAsSingle，YAsSingle)SelectCase（8 Case1Case2EndSelectEndSubIf（ ）（ ）=”X=”&X&”Y=”&Endif窗体上有List1、List2两个列表框，程序运行时，在两个列表框中分别选中1个项目，如图a所示，单击名称为Command1的“交换”按钮，则把选中的项目互换，互换后的位置不限，如图b所示。下面的程序可实现这 PrivateSubIfList1.TextorList2.TextThenList1.AddItemList2.TextList2.RemoveItem（11 （ EndIfEndFork=1ToLen(Text1)IfNotfound(temp,ch)Thentemp=temp&（13）EndifNextText1=（14EndPrivateFunctionfound(strAsString,chAsString)AsBooleanForK=1ToLen(str) Found=（15 ExitFunctionEndIfNextEnd“abcd“foundstr中是否有字符chTrue，否则返回False