计算机二级考试VB2014年试题4

　　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)＆"" www.examzz.com
　　    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行和最后一行元素的累加和