上学吧题库

2013年9月全国计算机等级《二级VB》命题预测试卷二

试卷预览
以下程序运行后的窗体如图所示,其中组合框的名称是Combo1,已有列表项如图所示;命令按钮的名称是Command1。Private,Sub Command1_Click(  )If Not Check(Combo1.Text)ThenMsgBox("输入错误")Exit SubEnd IfFor k=0 To Comb01.ListCount-1If Comb01.Text=Combo1.List(k)ThenMsgBOX("添加项目失败")Exit SubEnd IfNext kCornbol.AddItem Combo1.TextMsgBOX("添加项目成功")End SubPrivate Function Check(ch As String)As Booleann=Len(ch)For k=1 To nc$=Ucace(Mid(ch,k,1))If c<"A"Or c>"Z"ThenCheck=FalseExit FunctionEnd IfNext kCheck=True End Function程序运行时,如果在组合框的编辑区中输入“Java”,则单击命令按钮后产生的结果是(  )。

A.显示“输入错误”

B.显示“添加项目失败”

C.显示“添加项目成功”

D.没有任何显示

下列关系表达式中,其值为True的是( )。

A."XYZ">"XYz"

B."VisualBasic"<>"visualbasic"

C."the"="there"

D."Integer"<"Int"

如果一个变量未经定义就直接使用,则该变量的类型为(  )。

A.Inieger

B.Byte

C.Boolean

D.Variant

Fibonacci数列的规律是:前2个数为1,从第3个数开始,每个数是它前2个数之和,即1,1,2,3,5,8,13,21,34,55,89,…某人编写了下面的函数,判断大于1的整数X是否是Fibonacci数列中的某个数,若是,则返回True,否则返回False。Function Isfab(x As Integer)As Boolean Dim ii As Integer,b As Integer,C As Integer,flag As Boolean flag=False a=1:b=1 Do While x<bc=a+ba=bb=cIf x=b Then flag=True Loop  Isfab=flagEnd Function测试时发现对于所有正整数X,函数都返回False,程序需要修改。下面的修改方案中正确的是(  )。

A.把a=b与b=C的位置互换

B.把c=a+b移到b=C之后

C.把Do While xb

D.把If x=b Then flag=True改为If x=a Then flag True

下面可以产生20~30(含20和30)的随机整数的表达式是(  )。

A.Int(Rnd*10+20)

B.Int(Rnd*11+20)

C.Int(Rnd*20+30)

D.Int(Rnd*30+20)

设有如下变量声明语句:Dim a,b As Boolean则下面叙述中正确的是(  )。

A.a和b都是布尔型变量

B.a是变体型变量,b是布尔型变量

C.a是整型变量,b是布尔型变量

D.a和b都是变体型变量

如果一个直线控件在窗体上呈现为一条垂直线,则可以确定的是(  )。

A.它的Y1、Y2属性的值相等

B.它的 X1、X2属性的值相等

C.它的X1、Y1属性的值分别与X2、Y2属性的值相等

D.它的 X1、X2属性的值分别与Y1、Y2属性的值相等

若窗体上的图片框中有一个命令按钮,则此按钮的Left属性是指(  )。

A.按钮左端到窗体左端的距离

B.按钮左端到图片框左端的距离

C.按钮中心点到窗体左端的距离

D.按钮中心点到图片框左端的距离

执行语句Dim X,Y As Integer后,( )。

A.X和Y均被定义为整型变量

B.X和Y均被定义为变体类型变量

C.X被定义为整型变量,Y被定义为变体类型变量

D.X被定义为变体类型变量,Y被定义为整型变量

要求生产10个随机整致,存放在数组arr中。从键盘输入要删除的数组元素的下标,将该元素中的数据删除,后面元素中的数据依次前移,并显示删除后剩余的数据。现有如下程序:Option Base 1Privare Sub Command1 Click(  )Dim arr(10)As IntegerFor i=1To 10循环1Arr(i),=Int(Rnd*100)Print arr(i);Next ix=InputBox("输入1—10的一个整数:")For i=X+1 To 10循环2arr(i-1)=arr(i)Next iFor i=x-1 To 10 循环3Print arr(i)Next iEnd Sub程序运行后发现显示的结果不正确,应该进行的修改是(  )。

A.产生随机数时不使用Int函数

B.循环2的初值应为i= x

C.数组定义改为Dim a(11)As Integer

D.循环3的循环终值应改为9

在名称为Form1的窗体上画两个名称分别为Text1和Text2、内容都为空的文本框,再画一个命令按钮,其名称为Command1、标题为“判断”。编写适当的事件过程,要求程序运行后,如果在Text1中输入一个数,单击命令按钮Command1,判断输入的是否为偶数,如图7-2所示。要求:不得使用任何变量。注意:存盘时必须存放在考生文件夹下,工程文件名为sj2.vbp,窗体文件名为sj2.frm。
在名为Form1的窗体上画一个框架,名称为Frame1,标题为“框架”,高度为2 500,宽度为3 500,框架内建立一文本框,距左边框500,距框架的上边框1 000,文本框中的初始内容设置为“文本框”。运行界面如图8—2所示。注意:保存时必须存放在考生文件夹下,窗体文件名为sj2.frm,工程文件名为sjZ.vbp。
在窗体上绘制一个名称为Text1的文本框和一个名称为Cmd1、标题为“计算”的命令按钮,如图4-3所,示。程序运行后,单击“计算”命令按钮,通过在对话框输入整数12,放人整型变量a中,然后汁算a!.(提示:运算结果应放人Lon9型变量中),在文本框中显示结果,如图4—4所示,并把结果存入文件out.txt中。考生文件夹中有一个标准模块mode.bas,该模块中提供了保存文件的过程putdata,考生可以直接调用。注意:保存时必须存放在考生文件夹下,窗体文件名为sj3.frm,工程文件名为sj3.vbp。
在考生文件夹中有一个工程文件sj4.vbp及窗体文件sj4.frm。在名为Form1的窗体上有两个容器,其中一个容器中有两个单选按钮,另一个容器中有两个复选框,窗体上还有一个标题为“确定”的命令按钮和一个初始内容为空的文本框。所有控件已经全部画出。程序的功能是:在运行时,如果选中一个单选按钮和一个或两个复选框,则对文本框中的文字进行相应的设置,如图4-5所示。窗体上的控件已经绘制出,但没有给出主要程序内容,请编写适当的事件过程,完成上述功能。注意:不能修改已经给出的程序部分和已有的控件;在结束程序运行之前,必须选中一个单选按钮和至少一个复选框,并单击“确定”按钮;必须通过单击窗体右上角的“关闭”按钮结束程序,否则无成绩。最后,按原文件名并在原文件夹中保存修改后的文件。
在名称为Form1的窗体上有两个命令按钮(名称分别为Command1和Command2、标题分别为“读取”和“保存”)和一个文本框(名称为Text1、MultiLine属性为True、ScrollBars 属性为2)。要求程序运行后,如果单击“读取”按钮,则读入in.txt文件中的50个整数,放入一个数组中(数组下界为1),并在文本框Text1中显示出来,运行界面如图6-5所示。如果单击“保存”按钮,则把数组中的前30个数据在文本框Textl中显示出来,并存入考生文件夹中的文件result.txt中。(考生文件夹中有标准模块mode5.bas,其中的writeData过程可以把指定个数的数组元素存人result.txt文件。)注意:在考生乏件夹中有工程文件si5.vbp及其窗体文件sj5.frm,该程序是不完整的,请在有“?”的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“b”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。文件必须存放在考生文件夹下,窗体文件名为sis.frm,工程文件名为sj5.vbp,结果存入result.txt文件,否则没有成绩。在考生文件夹中有工程文件sis.vbp及其窗体文件sis.frm,该程序是不完整的,请在有“?”的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。