搜索
二级VisualBasic笔试试卷（A）第1页共7页二级VisualBasic语言笔试试题(A)注意事项：1.一、二、三题为客观题目，请将答案涂在机读答题卡上2.四、五、六题为主观题目，请将答案做在答题纸上一．单项选择题（每小题1分，共25分）1．下面不是窗体方法的是（）(A)Cls(B)Click(C)Print(D)Move2．在VB中，当运行程序时，系统自动执行窗体的（）事件过程。（A）Load（B）UnLoad（C）Click（D）GotFocus3.下面各项中合法的VB标识符是（）(A)a123(B)123a(C)a12-1(D)a+b4.下面各项中合法的VB常量是（）(A)E+3(B)12^3(C)1.E+3(D)a+b5.若要在文本框Text1中显示变量a和b的值，应选用的语句是（）。（A）a+b=Text1（B）Text1.Text=a&b（C）Text1.Caption=a,b（D）Text1.Text=a,b6.在VB中用来表示注释信息的符号是（）。（A）星号(*)（B）单引号(')（C）斜线(/)（D）双斜线(//)7.在VB语言中，用来表示“回车”的符号常量是（）。（A）Enter（B）Return（C）CrLf（D）vbCrLf8.设X为小于100的非负数（包括0），下面表达式为True的是（）(A)0=XAndX100(B)0XAndX100(C)0=XAndX=100(D)0XOrX=1009.语句PrintSqr(16)=;Sqr(16)的输出结果为（）（A）Sqr(16)=Sqr(16)（B）Sqr(16)=4（C）4=4（D）4=Sqr(16)10.下面各项中不支持DblClick事件的控件是（）(A)CommandButton(B)PictureBox(C)Label(D)TextBox11.执行下述语句之后，变量n的值应为（）s=2009年第二次计算机等级考试n=Len(Mid(s,5))（A）4（B）5（C）10（D）1112.函数表达式Val(int126)的值为（）（A）126(B)1(C)出错信息(D)013.以下程序段的运行结果是（）ConststAsString=ABCDst=1234Picture1.Printst(A)在窗体上输出字符串1234(B)在图片框上输出字符串1234(C)在图片框上输出ABCD(D)显示出错信息14.执行下面的代码，表述正确的是（）DimaAsIntegera=Rnd*75Printa（A）a的值始终介于0到75之间，但不能是75（B）a的值始终介于0到75之间，但不能是75和0（C）a的值始终介于0到75之间，但不能是0（D）a的值始终介于0到75之间，包含0和75二级VisualBasic笔试试卷（A）第2页共7页15.在VB中，计时器控件Timer支持的事件是（）(A)Change(B)Scroll(C)Load(D)Timer16．VisualBasic图形系统中默认的坐标原点位于窗体工作区的（）(A)左上角(B)左下角(C)右上角(D)右下角17．若希望TextBox控件显示多行文本信息，应设置它的（）属性为True（A）HideSelection（B）Locked（C）Multiline（D）WordWrap18.若要使命令按钮不可见，则应将其()属性设置为False。（A）Enabled（B）Visible（C）BackColor（D）Caption19.在窗体上有一个控件数组，用于标识各个控件数组元素的参数是()（A）Index（B）Tag（C）Name（D）TabIndex20.语句Circle(1000,1000),500,8,-6，-3执行后，绘制的图形是（）(A)圆(B)椭圆(C)圆弧(D)扇形21.关于列表框属性和方法使用不正确的是（）(A)List1.Clear(B)List1.AddItemabcd(C)PrintList1.Count(D)PrintList1.ListCount22.若要将某个命令按钮设置为焦点，应使用的方法是（）。（A）Print（B）SetFocus（C）GotFocus（D）LostFocus23.在VB中，计时器Timer支持的事件是（）(A)Change(B)Scroll(C)Load(D)Timer24.要使过程调用后返回两个参数s和t的值，下列正确的过程定义语句是（）(A)SubMySub1(ByRefs,ByValt)(B)SubMySub1(ByVals,ByValt)(C)SubMySub1(ByRefs,ByReft)(C)SubMySub1(ByVals,ByReft)25.当使用Append方式打开一个文件后，文件指针指向()。(A)文件头(B)文件尾(C)一个随机位置(D)没有文件指针二．多项选择题（每小题1分，共5分）（下面各小题有2个或2个以上正确答案，请选出全部正确答案，错选或漏选均不得分）1．下面能表述“如果a＞0则输出a，否则输出-a”的语句是（）(A)Ifa0ThenPrintaElsePrint-a(B)PrintIIf(a0,a,-a)(C)Ifa0ThenPrintaElsePrint–aEndIf(D)PrintAbs(a)(E)Ifa0ThenPrintaElsePrint-a2.在默认情况下，能正确定义具有101个元素的数组b的语句有（）(A)Dimb(1TO100)(B)Dimb(-50TO50)(C)Dimb()：n=100：Redimb(n)(D)Dimb(100To200)(E)Dimb(100)3.下列（）是SelectCase语句中Case关键字后面的取值方式。（A）x5（B）″a″To″z″（C）Is=0（D）1,3,5（E）x2andx104.下列VB函数中，返回值为数值的有（）。(A)Len(“BASIC”)(B)Str(-26.3)二级VisualBasic笔试试卷（A）第3页共7页(C)Left(“1234”,2)(D)Val(“16Year”)(E)Val(Mid(“34565”,2,2)5．VB中鼠标事件的参数Button取值可以为（）(A)0(B)1(C)2(D)3(E)4三．分析判断题（正确的选择√，错误的选×，每小题1分，共10分）1．在VB中，事件可以由用户触发，也可由系统触发。()2．在VB程序中的变量必须先声明然后才能使用（）3．使用滚动条控件时，必须设置min、max属性值，否则该滚动条就不能接受事件（）4．在VB中，运算符的优先级从高到底的顺序是：算术运算→关系运算→字符串运算→逻辑运算。（）5．在通用段中声明的变量对该窗体的所有过程有效。()6．使用框架对控件分组时，可以先在窗体上画出控件再画框架（）7．程序中的变量是内存中的不可见空间，标签是窗体上的可见空间，二者均能存放数据（）8．Line方法既可以画直线，也可以画矩形。()9．VB语言程序中也可以使用用户自定义的控件对象。（）10．在窗体上按下鼠标左键并拖动鼠标，可以多次触发Form_MouseMove事件。（）四、程序填空（每空2分，共20分）1.程序功能是输出100～1000范围内所有能同时被3和7整除的自然数，请填空完成该程序。PrivateSubCommand1_Click()DimnAsIntegerList1.ClearForn=100To1000If⑴ThenList1.AddItemn⑵NextEndSub2.在文本框Text1中输入一个正整数，按命令按钮Command1则计算阶乘值，并将结果显示在标签Label1中。PrivateSubCommand1_Click()⑶P=⑷ForK=1ToNP=P*KNextKLabel1.Caption=PEndSub3.简易点菜系统如下图所示，单击左侧列表框中任意菜名，被单击菜名及价格就依次出现在右侧图片框中（允许重复选择，选择之后不能退回），单击“结帐”按钮就计算出总价，也在图片框中输出。二级VisualBasic笔试试卷（A）第4页共7页DimsumAsIntegerPrivateSubCommand1_Click()Picture1.Print总价=;sum;元EndSubPrivateSubList1_Click()s=List1.Textn=InStr(s,)price=⑸Picture1.Printssum=⑹EndSub4.编程产生10个50～99之间的随机整数存于一维数组a中，并在窗体上显示成一行；然后将a数组中的元素依次向后移动一个位置，最后一个元素移动到第一个元素的位置上，再将数组中的元素在窗体上显示成另一行。请填空完善程序。PrivateSubForm_Click()⑺Fori=1To10a(i)=Int(Rnd*50+50)Printa(i);NextiPrinttemp=a(10)Forj=9To1Step-1⑻Nextja(1)=tempFork=1To10Printa(k);NextkPrintEndSub二级VisualBasic笔试试卷（A）第5页共7页5.下面事件过程能生成并在窗体上输出如图所示矩阵，请完善程序。PrivateSubForm_Click()Dima(5,5)AsInteger,iAsInteger,jAsIntegerFori=1To5Forj=1To5If⑼Thena(i,j)=0Elsea(i,j)=1Printa(i,j);;Nextj⑽NextiEndSub五、阅读分析程序，并选择答案（每小题4分，共20分）1．运行下面程序，单击窗体，在窗口上显示的结果为（）。PrivateSubForm_Click()A=3:B=5C=A:A=B:B=CPrintA;B;CEndSub(A)533(B)355(C)353(D)5352．运行下面程序，单击窗体后，输出的结果是（）。PrivateSubForm_Click()Fork=1To15Ifk=20Thena=2*k+200Ifk=30Thena=k+10NextkPrintk;aEndSub（A）15230（B）1625（C）1525（D）162303．执行下面程序，单击窗体后，窗体上显示的内容是（）PrivateSubForm_Click()ForI=0To10Step-2I=I+2NextPrintIEndSubA.10B.-2C.0D.24．执行下面程序后，变量i的值为（）PrivateSubCommand1_Click()DimB(10)B(0)=10Fori=1To10B(i)=B(i-1)+10IfB(i)50ThenExitForNext二级VisualBasic笔试试卷（A）第6页共7页PrintiEndSubA.10B.5C.11D.505．下面程序运行后，单击命令按钮Command1，窗体上显示的内容是（）FunctionJisuan(ByValAAsInteger)b=0A=A+2b=b+2Jisuan=A+bEndFunctionPrivateSubCommand1_Click()DimiAsIntegerFori=1To3PrintJisuan(i)NextiEndSub（A）3（B）5（C）5（D）467649974六．程序设计（每小题10分，共20分）1．编写程序，在文本框中输入任意可打印字符，单击“显示”命令按钮，则在图片框中输出如图所示的规则图形。2．已知两个三位数相加之和abc+cba=1333，编程计算并输出能满足这个条件的所有a、b、c的值。二级VisualBasic笔试试卷（A）第7页共7页一、单项选择题（每小题1分，共25分）1-5：BAACB6-10：BDABA11-15：DDDDD16-20：ACBAD21-25：CBDCB二、多项选择题（每小题1分，共5分）1、ABCD2、BCDE3、BCD4、ADE5、BCE三、正误判断题（每小题1分，共10分）1-5：√×××√6-10：×√√√