2014年计算机二级考试VB专家预测试卷及答案3

　　31.目录列表框的Path属性的作用是( )。

　　A.显示当前驱动器或指定驱动器上的某目录下的文件名

　　B.显示当前驱动器或指定驱动器上的目录结构

　　C.显示根目录下的文件名

　　D.显示该路径下的文件

　　32.以下叙述中错误的是( )。

　　A.在KeyPress事件过程中不能识别键盘的按下与释放

　　B.在KeyPress事件过程中不能识别回车键

　　C.在KeyDown和KeyUp事件过程中，将键盘输入的“A”和“a”视作相同的字母

　　D.在KeyDown和KeyUp事件过程中，从大键盘上输出的“1”和从右侧小键盘上输入的“1”被视作不同的字符

　　33.以下关于文件的叙述中，错误的是( )。

　　A.顺序文件中的记录一个接一个地顺序存放

　　B.随机文件中记录长度是随机的

　　C.执行打开文件的命令后，自动生成一个文件指针

　　D.LOF函数返回给文件分配的字节数

　　34.窗体上有1个名称为List1的列表框，其中已经输入了若干个项目，如图所示;还有

　　2个文本框，名称分别为Text1、Text2，1个名称为Command1的命令按钮，并有下列事件过程。

　　Private Sub Command1_Click()

　　Dim str As String，S As String.k As Integer

　　s=Text1

　　str =""

　　For k=Listl.ListCount-1 To 0 Step-1

　　If InStr(List1.List(k)，s)>0 Then

　　str=str & List1.List(k)&""

　　End If

　　Next k

　　If str=""Then

　　Text2="没有匹配的项目"

　　Else

　　Text2=str

　　End If

　　End Sub

　　程序运行时，在Text1中输入"京"，单击命令按钮，则在Text2中显示的内容是( )。

　　A.京

　　B.北京南京

　　C.南京北京

　　D.没有匹配的项目

　　35.以下关于KeyPress事件过程中参数KeyAscii的叙述正确的是( )。

　　A.KeyAscii参数是所按键的ASCII码

　　B.KeyAscii参数的数据类型为字符串

　　C.KeyAscli参数可以省略

　　D.KeyAscii参数是所按键上标注的字符

　　36.在窗体上画1个名称为Command1的命令按钮，然后编写下列程序：

　　Private Sub Command1_Click()

　　Print fun("ABCDEFG")

　　End Sub

　　Function fun(st As String)As string

　　stlen=Len(st)

　　temp=""

　　For k=1 To stlen/2

　　temp=temp+Mid(st，k，1)+Mid(st，stlen-k+1，1)

　　Next k

　　fun=temp

　　End Function

　　程序运行时，单击命令按钮，则在窗体上显示的是( )。

　　A.ABCDEFG

　　B.AGBFCE

　　C.GFEDCBA

　　D.AGBFCED

　　37.在窗体E先后画2个图片框，名称分别为Picture1和banana，banana中添加了香蕉

　　图片，如图1所示，且将banana.DragMode属性设置为1。要求程序运行时，可以用鼠标把banana拖拽到Picture1中，如图2所示。能实现此功能的事件过程是( )。

　　A.Private 3ub Form—DragDrop(Source As Control，X As Single，Y As Single)

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

　　End Sub

　　B.Private Sub banana_DragDrop(Source As Control，X As Single，Y As Single)

　　Source.Move Picture1.Left+X，Picture 1.Top+Y

　　End Sub

　　C.Private Sub Picturei_DragDrop(Source As Control，X As Single，Y As Single)

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

　　End Sub

　　D.Private Sub Picture1_DragDrop(Source As Control，X As Single，Y As Single)

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

　　End Sub

　　38.在窗体上面1个名称为Command1的命令按钮，然后编写下列事件过程

　　Option Base 1

　　Private Sub，Command1 Click()

　　Dim a(5，5)ks Integer

　　For i=1 To j

　　For j=1 To 5

　　a(i，j)=(i+j)*5\10

　　Next j

　　Next i

　　S=0

　　For i=1 To j

　　s=s+a(i，i)

　　Next i

　　Print s

　　End Sub

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

　　A.15

　　B.13

　　C.11

　　D.9

　　39.在窗体上从仨到右有Text1、Text2两个文本框，如图所示，要求程序运行时，在Text1 中输入1个分数后按回车键，则判断分数的合法性，若分数为0～100中的1个数，则光标移到Text2中;否则光标不动，并弹出对话框显示“分数错”。下列程序中正确的是( )。

　　A. Private Sub Text1_KeyPress(KeyAscii As Integer)

　　If KeyAscii==13 Then

　　’回车符的ASCIl码是13

　　a=Val(Text1)

　　If a>=0 Or a<=100 Then

　　Text2.SetFocus

　　Else

　　Text1.SetFocus：MsgBox("分数错")

　　End If

　　End If

　　End Sub

　　B. Private Sub Textl—KeyPress(KeyAscii As Integer)

　　If KeyAseii=13 Then

　　’回车符的ASCIl码是13

　　a=Val(Text1)

　　If a>=0 And a<=100 Then

　　Textl.SetFocus

　　Else

　　Text2.SetFocus：MsgBox("分数错")

　　End If

　　End If

　　End Sub

　　C.Private Sub Text1_KeyPress(KeyAscii As Integer)

　　If KeyAscii=13 Then

　　’回车符的ASCII码是13

　　a=Val(Text1)

　　If a<0 And a>100 Then

　　Text2.SetFocus

　　Else

　　Text1.SetFocus：MsgBox("分数错")

　　End If

　　End If

　　End Sub

　　D.Private Sub Text1_KeyPress(KeyAscii As Integer)

　　If KevAscii=13 Then

　　’回车符的ASCII码是13

　　a=Val(Textl)

　　If a>=0 Aad a<=100 Then

　　Text2.SetFocus

　　Else

　　Text1.SetFocus：MsgBox("分数错")

　　End If

　　End If

　　End Sub

　　40.在窗体上画2个命令按钮，名称分别为Command1、Command2，然后编写下列事件过程。

　　Const n=5.m=4

　　Dim a(m，n)

　　Private Sub+Command1 Click()

　　k=1

　　For i=1 To m

　　For j=1 To n

　　a(i，j)=k

　　k=k+1

　　Next j

　　Next i

　　End Sub

　　Private Sub Command2 Click()

　　summ=0

　　For i=1 To m

　　For j=1 To n

　　If i=1 Or i=m Then

　　summ=summ+a(i，j)

　　Else

　　If j=1 Or j=n Then

　　summ=summ+a(i，j)

　　End If

　　End If

　　Next j

　　Next i

　　Print summ

　　End Sub

　　过程Command1_Click()的作用是在二维数组a中存放1个m行n列的矩阵;过程Command2 Click()的作用是( )。

　　A.计算矩阵外围一圈元素的累加和

　　B.计算矩阵除外围一圈以外的所有元素的累加和

　　C.计算矩阵第1列和最后一列元素的累加和

　　D.计算矩阵第1行和最后一行元素的累加和

　　相关推荐：

　　2014年计算机二级C++考试精选试题及答案汇总

　　考试吧考后首发2014年3月计算机等考真题及答案通知

　　考试吧推荐：2014年3月计算机二级考前冲刺备考专题