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行和最后一行元素的累加和

首页 1 2 尾页