(25)以下叙述中正确的是 （ ） 。
A．一个 Sub 过程至少要一个 Exit Sub 语句
B．一个 Sub 过程必须有一个 End Sub 语句
C．可以在 Sub 过程中定义一个 Function 过程，但不能定义 Sub 过程
D．调用一个 Function 过程可以获得多个返回值
(26)有以下程序：
Sub subp(b()As Integer)
For i=1To4
B．(i)=2-i
Nexti
End Sub
Private Sub Command1_Click()
D．im a (1 To 4)As Integer
A) (1)=5
A) (2)=6
A) (3)=7
A) (4)=8
subpa()
For i=1 To4
Print a (i)
Next i
End Sub
运行上面的程序，单击命令按钮，输出结果为 （ ） 。
A．2 4 6 8
B．5 6 7 8
C．10 12 14 16
D ．出错
(27)设有如下通用过程：
Public Function Fun(xStr As String)
D．im tStr As String, srtL As Integer tStr+””
strL=Len(xStr)
i=1
D．o While i<=strL/2
tStr=tStr &Mid(xStr,i ,1)& Mid (xStr ,strL-i+1,1)
i=i+1
Loop
Fun=tStr
End Function
在窗体上画一个名称为 Textl 的文本框和一个名称为 Command1 的命令按钮，然后编写如下的事件过程：
Private Sub Command 1_ Click()
Dim S1 As String
S1=”abcdef”
Text1.Text=UCase(Fun(S1))
End Sub
程序运行后，单击命令按钮，则 Text1 中显示的是 （ ） 。
A．ABCDEF
B．abcdef
C．AFBECD
D．DEFABC
(28)在窗体上画一个名称为 TxtA 的文本框，然后编写如下的事件过程：
Private Sub TxtA_KeyPress(KeyAscii As Integer)
……
End Sub
假定焦点已经位一地文本框中，则能够触发 KeyPress 事件的操作是
A．单击鼠标
B．双击文本框
C．鼠标滑过文本框
D．按下键盘上的某个键
(29)在窗体上画一个命令按钮和两上文体，其名称分别为 Command1 、 Text1 和 Text2 ，然后编写如下程序：
D）im S1 As String, S2 As String
Private Sub Form_Load()
Text1. Text=””
Text2. Text=””
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
S2=s2 & Chr(KeyCode)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
S1=S1 & chr(KeyAscii)
End Sub
Private Sub Command1_Click()
Text1.Text=S2
Text2.Text=S1
S1= “”
S2= “”
End Sub
程序运行后，在 Text1 中输入“ abc ”，然后单击命令按钮，在文本框 Text1 和 Text2 中显示的内容分别为 （ ） 。
A．abc 和 ABC
B ．abc 和 abc
C．ABC 和 abc
D ．ABC 和 ABC
(30)以下说法正确的是 （ ） 。
A．任何时候都可以通过执行“工具”菜单中的“菜单编辑器”命令打开菜单编辑器
B．只有当某个窗体为当前活动窗体时，才能打开菜单编辑器
C．任何时候都可以通过单击标准工具栏上的“菜单编辑器”按钮打开菜单编辑器
D．只有当代码窗品为当前活动窗口时，才能找开菜单编辑器
(31)在窗体上画一个通用对话框，其名称为 CommonDialog1 ，然后画一个命令按钮，并编写如下事件过程：
Private Sub Command1_Click()
CommonDialog1. Filter=”All Files(*.*)|*.*Text Files”&_
“(*.txt)|*.txt| Executable Files(*.exe)|*.exe”
CommonDialog1. Filterindex=3
CommonDialog1. Show Open
MsgBox CommonDialog1. FileName
End Sub
程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是 （ ） 。
A．All Files(*.*)
B．Text files(*.txt)
C．Executable Files(*.ext)
D．不确定
(32)以下叙述错误的是
A．一个工程中可以包含多个窗体文件
B．在一个窗体文件中用 Public 定义的通用过程不能被其他窗体调用
C．窗体和标准模块需要分别保存为不同类型的磁盘文件
D．用 Dim 定义的窗体层变量只能在该窗体中使用
33 以下叙述中错误的是（）
A．语句“ Dim a, b As Integer ”声明了两个整型变量
B．不能在标准模块中定义 Static 型变量
C．窗体层变量必须先声明，后使用
D．在事件过程或通用过程内定义的变量是局部变量
34 设有语句： Open "d: ＼ Text.txt" For OutputAs#1 ，以下叙述中错误的是（）
A．若 d 盘根目录下无 Text.txt 文件，则该语句创建此文件
B．用该语句建立的文件的文件号为 1
C．该语句打开 d 盘根目录下一个已存在的文件 Text.txt ，之后就可以从文件中读取信息
D．执行该语句后，就可以通过 Print# 语句向文件 Text.txt 中写入信息
35 以下叙述中错误的是（）
A． 顺序文件中的数据只能按顺序读写
B．对同一个文件，可以用不同的方式和不同的文件号打开
C．执行Close 语句，可将文件缓冲区中的数据写到文件中
D．随机文件中各记录的长度是随机的
转贴于：计算机二级考试_考试大
【责编:drfcy 纠错】
[1] [2] [3] [4] [5] 
相关文章
2006-12-15
