计算机二级VB模拟试题与答案三.docx

计算机二级VB模拟试题与答案三.docx

《计算机二级VB模拟试题与答案三.docx》由会员分享，可在线阅读，更多相关《计算机二级VB模拟试题与答案三.docx（17页珍藏版）》请在冰豆网上搜索。

计算机二级VB模拟试题与答案三

2014年计算机二级VB模拟试题及答案（四）

一、选择题

　　1、任何控件都有的属性是（）。

　　A.BackColor

　　B.Caption

　　C.Name

　　D.BorderStyle

　　2、设计数据库的存储结构属于（　　）

　　A.需求分析

　　B.概念设计

　　C.逻辑设计

　　D.物理设计

　　3、某人创建了1个工程，其中的窗体名称为Form1;之后又添加了1个名为Form2的窗体，并希望程序执行时先显示Form2窗体，那么，他需要做的工作是（　　）。

　　A.在工程属性对话框中把"启动对象"设置为Form2

　　B.在Forml的Load事件过程中加入语句LoadForm2

　　C.在Form2的Load事件过程中加入语句Form2.Show

　　D.把Form2的TabIndex属性设置为l，把Form1的TabIndex属性设置为2

　　4、设有如下通用过程：

　　PublicFunctionFun（xStrAsString）AsString

　　DimtStrAsString，strLAsInteger

　　tStF=""

　　strL=Len（xStr）

　　i=1DoWhilei<=strL/2

　　tStr=Tstr&Mid（xStr，i，1）&Mid（xStr，strL-i+1，1）

　　i=i+l

　　Loop

　　Fun=tStr

　　EndFunction

　　在窗体上画一个名称为Command1的命令按钮。

然后编写如下的事件过程：

　　PrivateSubCommandI_Click（）

　　DimS1AsString

　　S1="abedef"

　　PrimUCase（Fun（S1））

　　EndSub

　　程序运行后，单击命令按钮，输出结果是（　　）。

　　A.ABCDEF

　　B.abcdef

　　C.AFBECD

　　D.DEFABC

　　5、下列关于栈的描述正确的是（　　）。

　　A.在栈中只能插入元素而不能删除元素

　　B.在栈中只能删除元素而不能插入元素

　　C.栈是特殊的线性表，只能在一端插入或删除元素

　　D.栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素

　　6、下列程序段的运行结果是（　　）。

　　Subsele（　　）

　　DimnAsInteger

　　i=21：

n=3

　　DoWhilei>n

　　i=i-n

　　Loop

　　Printi

　　EndSub

　　A.2

　　B.4

　　C.5

　　D.3

　　7、复选框的Value属性为0时，表示该复选框（　　）。

　　A.未被选中

　　B.被选中

　　C.框内有灰色的勾

　　D.操作有误

　　8、在窗体上有一个名称为Check1的复选框数组（含4个复选框），还有一个名称为Text1的文本框，初始内容为空。

程序运行时，单击任何复选框，则把所有选中的复选框后面的方字罗列在文本框中（见图）。

下面能实现此功能的事件过程是（　　）。

　　A.PrivateSubCheck1_Click（IndexAsInteger）

　　Text1.Text=""

　　Fork=0To3

　　IfCheck1（k）.value=1Then

　　Text1.Text=Text1.Text&Check1（k）.Caption&""双引号中是空格EndIfNextk

　　EndSub

　　B.PrivateSubCheck1_Click（IndexAsInteger）

　　Fork=0To3

　　IfCheck1（k）.Value=1Then

　　Text1.Text=Text1.Text&Check1（k）.Caption&""双引号中是空格

　　EndIf

　　Nextk

　　EndSub

　　C.PrivateSubCheck1_Click（IndexAsInteger）

　　Text1.Text=""Fork=0To3IfCheck1（k）.Value=1Then

　　Text1.Text=Text1.Text&Check1（Index）.Caption&""双引号中是空格

　　EndIf

　　Nextk

　　EndSub

　　D.PrivateSubCheck1_Click（IndexAsInteger）

　　Text1.Text=""Fork=0To3

　　IfCheck1（k）.Value=1Then

　　Text1.Text=Text1.Text&Check1（k）.Caption&""双引号中是空格

　　ExitFor

　　EndIf

　　Nextk

　　EndSub

　　9、在窗体上添加一个命令按钮，名为Command1，其单击事件中有下列程序段，则事件过程执行后，文本框中输出

　　（　　）。

　　Fori=1To4

　　Forj=1To3

　　x=3

　　Fork=1To2

　　x=x+3

　　Nextk

　　Nextj

　　Nexti

　　Textl.Text=Str（x）

　　A.3

　　B.6

　　C.9

　　D.12

　　10、下列关于Sub过程的叙述正确的是（　　）。

　　A.一个Sub过程必须有一个ExitSub语句

　　B.一个Sub过程必须有一个EndSub语句

　　C.在Sub过程中可以定义一个Function过程

　　D.可以用Goto语句退出Sub过程

11、下列叙述中正确的是（）。

　　A.在窗体的Form_Load事件过程中定义的变量是全局变量

　　B.局部变量的作用域可以超出所定义的过程

　　C.在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程

　　D.在调用过程时，所有局部变量被系统初始化为0或空字符串

　　12、编写如下两个事件过程：

　　PrivateSubForm_KeyDown（KeyCodeAsInteger，ShiftAsInteger）

　　PrintChr（KeyCode）

　　EndSub

　　PrivateSubForm_KeyPress（KeyAsciiAsInteger）

　　PrintChr（KeyAscii）

　　EndSub

　　在一般情况下（即不按住Shift键也未锁定大写键时）运行程序，如果按键盘上的"A"键，则程序输出的结果是（　　）。

　　A.A

　　a

　　B.a

　　A

　　C.A

　　A

　　D.a

　　a

　　13、在窗体上画一个命令按钮，名称为Command1，然后编写下列代码：

　　OptionBase0

　　PrivateSubCommand1_Click（）

　　DimA1（4）AsInteger，A2（4）AsInteger

　　Fork=0To2

　　A1（k+1）=InputBox（"请输入一个整数"）

　　A2（3-k）=A1（k+1）

　　NextkPrintA2（k）

　　EndSub

　　程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为（　　）。

　　A.0

　　B.1

　　C.2

　　D.3

　　14、下面语句正确的是（　　）。

　　A.Ifx<3*yAndx>yTheny=x^3

　　B.Ifx<3*yAndx>yTheny=3x

　　C.Ifx<3*y：

x>yTheny=x^3

　　D.Ifx<3*yAndx>yTheny=x**3

　　15、下面程序的输出结果是（　　）。

　　PrivateSubCommand1_Click（）

　　Ch$="ABCDEF"

　　procch：

Printch

　　EndSub

　　PrivateSubproc（chAsString）

　　s=""

　　Fork=Len（ch）To1Step-1

　　s=s&Mid（ch，k，1）

　　Nextk

　　ch=s

　　EndSub

　　A.ABCDEF

　　B.FEDCBA

　　C.A

　　D.F

　　16、语句Dima（-3To4，3To6）AsInteger定义的数组元素个数是（　　）。

　　A.18

　　B.28

　　C.21

　　D.32

　　17、以下叙述中错误的是（　　）。

　　A.一个工程中只能有一个SubMain过程

　　B.窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体

　　C.窗体的Hide方法和Unload方法的作用完全相同

　　D.若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体

　　18、在窗体上先后画2个图片框，名称分别为Picture1和banana，banana中添加了香蕉图片，如图1所示，且将banana.DragMode属性设置为1。

要求程序运行时，可以用鼠标把banana拖拽到Picture1中，如图2所示。

能实现此功能的事件过程是（　　）。

　　A.PrivateSubForm_DragDrop（SourceAsControl，XAsSingle，YAsSingle）

　　banana.MovePicture1.Left+X，Picture1.Top+Y

　　EndSub

　　B.PrivateSubbanana_DragDrop（SourceAsControl，XAsSingle，YAsSingle）

　　Source.MovePicture1.Left+X，Picture1.Top+Y

　　EndSub

　　C.PrivateSubPicture1_DragDrop（SourceAsControl，XAsSingle，YAsSingle）

　　Source.MovePicture1.Left+X，Picture1.Top+Y

　　EndSub

　　D.PrivateSubPicture1_DragDrop（SourceAsControl，XAsSingle，YAsSingle）

　　banana.Movebanana.Left+X，banana.Top+Y

　　EndSub

　　19、用Print方法在Forml窗体中显示出4个#号的正确代码为（　　）。

　　A.Debug.Print"####"

　　B.Print"####"

　　C.Forml-Print"####"

　　D.Forml.Print"####"

　　20、一个模块内部各个元素彼此结合的紧密程度的度量称为（　　）

　　A.耦合性

　　B.内聚性

　　C.复杂性

　　D.数据传输特性

21、函数值和余弦函数值，角度为1，2，3，…，90。

请在空白处填入适当的内容，将程序补充完整。

　　PrivateTypeAng

　　KAsInteger

　　SinxAsSi