职业技能鉴定国家题库
称 名 位 单 名 姓 号 证 考 准 区 地计算机系统操作工高级理论知识试卷
注 意 事 项
线 1、考试时间：120分钟。
2、本试卷依据2001年颁布的《计算机系统操作工 国家职业标准》命制。
3、请首先按要求在试卷的标封处填写您的姓名、准考证号和所在单位的名称。 此4、请仔细阅读各种题目的回答要求，在规定的位置填写您的答案。 5、不要在试卷上乱写乱画，不要在标封区填写无关的内容。
一 二 总 分 过 得 分
得 分 超评分人
一、单项选择(第1题～第40题。选择一个正确的答案，将相应的字母填入题内的括号中。 每题2分，满分80分。) 准
得 分 评分人 不 1、 语句Print 5/4*6＼5 Mod 2的输出结果是( ) A. 0 B.1 C. 2 D. 3
2、在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1, 题然后编写如下两个事件过程： Private Sub Command1_Click() strText=InputBox(\请输入\ Text1.Text=strText 答End Sub
Private Sub Text1_Change()
Label1.Caption=Right(Trim(Text1.Text) ,3) 生End Sub
程序运行后，单击命令按钮，如果在输入对话框中输入abcdef,则在标签中显示的内容是( ) A. 空 B. abcdef C. abc D. def
3、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： 考Private Sub Command1_Click() x=-5
If Sgn(x) Then y=Sgn(x∧2) Else y=Sgn(x)
试卷编码： 07GL10000000-80000059330002 第 1 页 共 10 页
End If Print y End Sub
程序运行后，单击命令按钮，窗体上显示的是( ) A. -5 B.25 C.1 D. -1
4、一个工程中含有窗体Form1、Form2和标准模块Model1,如果在Form1中有语句Public X As Integer,在Model1中有语句Public Y As Integer。则以下叙述中正确的是( ) A. 变量X、Y的作用域相同 B. Y的作用域是Model1 C. 在Form1中可以直接使用X D. 在Form2中可以直接使用X和Y
5、在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是( )
A. Drive1_Change B.Drive1_Click C. Dir1_Click D. Dir1_Change
6、 在窗体上画一个命令按钮(其Name属性为Command1) ，然后编写如下代码： Option Base 1
Private Sub Command1_Click() Dim a s=0
a=Array(1,2,3,4) ; j=1 For i=4 To 1 Step-1 s=s+a(i) *j j=j*10 Next i Print s End Sub
运行上面的程序，单击命令按钮，其输出结果是( ) A. 4321 B. 1234 C.34 D.12
7、 在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是( )
A. Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii<65 Or KeyAscii>90 Then MsgBox\请输入大写字母\ KeyAscii=0 End If End Sub
B. Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode<65 Or KeyCode>90 Then MsgBox\请输入大写字母\ KeyCode=0 End If End Sub
C.Private Sub Text1_MouseDown(Button As Integer,Shift As Integer, X As Single, Y As Single) If Asc(Text1.Text) <65 Or Asc(Text1.Text) >90 Then
试卷编码： 07GL10000000-80000059330002 第 2 页 共 10 页
MsgBox\请输入大写字母\End If End Sub
D. Private Sub Text1_Change()
If Asc(Text1.Text) >64 And Asc(Text1.Text) <91 Then MsgBox\请输入大写字母\ End If End Sub
8、 假定在窗体(名称为Form1) 的代码窗口中定义如下记录类型： Private Type animal animalName As String *20 aColor As String *10 End Type
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim rec As animal
Open \＼vbTest.dat\ rec.animalName=\ rec.aColor=\ Put #1,,rec Close #1 End Sub
则以下叙述中正确的是( )
A. 记录类型animal不能在Form1中定义，必须在标准模块中定义 B. 如果文件c:＼vbTest.dat不存在，则Open命令执行失败
C. 由于Put命令中没有指明记录号，因此每次都把记录写在文件的末尾 D. 语句\将animal类型的两个数据元素写到文件中
9、 在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：
Private Sub Command1_Click() n=Val(Text1.Text) If n＼2=n/2 Then f=f1(n) Else f=f2(n) End If Print f ;n End Sub
Public Function f1(ByRef x) x=x*x f1=x+x End Function
Public Function f2(ByVal x) x=x*x
试卷编码： 07GL10000000-80000059330002 第 3 页 共 10 页
f2=x+x+x End Function
程序运行后，在文本框中输入6，然后单击命令按钮，窗体上显示的是( ) A. 72 36 B.108 36 C. 72 6 D.108 6
10、 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() c=1234
c1=Trim(Str(C) ) For i=1 To 4 Print Next End Sub
程序运行后，单击命令按钮，要求在窗体上显示如下内容： 1 12 123 1234
则在下划线处应填入的内容为( )
A.Right(c1,i) B.Left(c1,i) C.Mid(c1,i,1) D.Mid(c1,i,i)
11、在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：
Private Sub Command1_Click() n=Val(Text1.Text) For i=2 To n For j=2 To Sqr(i)
If i Mod j=0 Then Exit For Next j
If j>Sqr(i) Then Print i Next i End Sub
该事件过程的功能是( )
A. 输出n 以内的奇数 B. 输出n 以内的偶数 C. 输出n 以内的素数 D. 输出n以内能被j整除的数 12、 以下描述中正确的是( )
A. 标准模块中的任何过程都可以在整个工程范围内被调用
B. 在一个窗体模块中可以调用在其他窗体中被定义为Public的通用过程 C. 如果工程中包含Sub Main过程，则程序将首先执行该过程
D. 如果工程中不包含Sub Main过程，则程序一定首先执行第一个建立的窗体
13、在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：
Private Function f(m As Integer) If m Mod 2=0 Then f=m Else
试卷编码： 07GL10000000-80000059330002 第 4 页 共 10 页
f=1 End If End Function
Private Sub Command1_Click() Dim i As Integer s=0 For i=1 To 5 s=s+f(i) Next Print s End Sub
程序运行后，单击命令按钮，在窗体上显示的是( ) A. 11 B.10 C. 9 D. 8
14、 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click() Dim array1(10,10) As Integer Dim i As Integer, j As Integer For i=1 To 3 For j=2 To 4 array1(i,j) =i+j Next j Next i
Text1.Text=array1(2,3) +array1(3,4) End Sub
程序运行后，单击命令按钮，在文本框中显示的值是( ) A. 15 B. 14 C. 13 D. 12
15、 在窗体上画4个文本框(如图所示) 并用这4个文本框建立一个控件数组，名称为Text1(下标从0开始，自左至右顺序增大) ，然后编写如下事件过程： Private Sub Command1_Click() For Each TextBox In Text1 Text1(i) =Text1(i) ?Index i=i+1 Next End Sub
程序运行后，单击命令按钮，4个文本框中显示的内容分别为( )
A. 0 1 2 3 B. 1 2 3 4 C. 0 1 3 2 D. 出错信息 16、 结构化程序设计的3种结构是( )
A. 顺序结构、选择结构、转移结构 B. 分支结构、等价结构、循环结构 C. 多分支结构、赋值结构、等价结构 D. 顺序结构、选择结构、循环结构 17、关于Visual Basic\方法\的概念错误的是( )
A. 方法是对象的一部分 B. 方法是预先定义好的操作 C. 方法是对事件的响应 D. 方法用于完成某些特定的功能 18、下列说法有错误的是( )
试卷编码： 07GL10000000-80000059330002 第 5 页 共 10 页