试卷2

职业技能鉴定国家题库

称 名 位 单 名 姓 号 证 考 准 区 地计算机系统操作工高级理论知识试卷

注 意 事 项

线 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 页

A. 默认情况下，属性Visible的值为False

B. 如果设置控件的Visible属性为False，则运行时控件会隐藏 C. Visible的值可设为True或者False

D. 设置Visible属性同设置Enabled属性的功能是相同的，都是使控件处于失效状态 18、下列各控件不包含滚动条的控件是( )

A. ListBox B. ComboBox C. TextBox D. LabelBox

19、 如果在程序中要将c定义为静态变量，且为整型数，则应使用的语句是( ) A. Redim a As Integer B. Static a As Integer C. Public a As Integer D. Dim a As Integer 20、声明一个变量为局部变量应该用( )

A) Global B) Private C) Static D) Public

21、执行x$=InputBox(\请输入x的值\时，在弹出的对话框中输入123，在列表框List1选中1 个列表项(数据为456) ，使有的值使123456的语句是( ) A. y=x$+List1.List(0) B. y=x$+List1.List(1)

C. y=Val(x$) +Val(List1.List(0) ) D. y=Val(x$) & Val(List1.List(1) ) 22、 以下各项中，Visual Basic不能接收的图形文件是( )

A. .ico文件 B. .jpg文件 C. .psd文件 D. .bmp文件 23、下面的属性中，用于自动调整图像框中图形内容的大小的是( ) A.Picture B. CurentY C. CurrentX D. Stretch 24、 下面有关注释语句的格式，错误的是( )

A. Rem注释内容 B. ′注释内容 C. a=3:b=2 ′对a、b赋值 D. Private Sub Command1_MouseDown(button As Integer , shift As Integer , _ Rem 鼠标按下事件的命令调用过程 X As Single ,Y As Single)

25、只有将组合框的Style属性设置为何值时，才能触发DblClick事件？( ) A. 0 B. 1 C. 2 D. 3

26、以下属于Visual Basic合法的数组元素是( ) A.x8 B. x［8］ C.s(0) D. v［8］ 27、 编写如下两个事件过程：

Private Sub Form_KeyDown (KeyCode As Integer, Shift As Integer) Print Chr(KeyCode) End Sub

Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub

在一般情况下(即不按住Shift键和锁定大写键时) 运行程序，如果按\键，则程序输出的结果是

( )

A. A A B. a A

C. A A D. a a

28、 要使菜单项MenuOne在程序运行时失效，使用的语句是( ) A. MenuOne.Visible=True B. MenuOne.Visible=False C. MenuOne.Enabled=True D. MenuOne.Enabled=False 29、在窗体上建立通用对话框需要添加的控件是( )

试卷编码： 07GL10000000-80000059330002 第 6 页 共 10 页

A. Data控件 B. From控件

C. CommonDialog控件 D. VBComboBox控件

30、在Visual Basic中，要将一个窗体加载到内存进行预处理但不显示，应使用的语句是( ) A. Load B. Show C. Hide D. Unload 31、 运行下列程序段后，显示的结果为( ) J1=23 J2=32

If J1

A. If A≠B Then Print \不等于B\ B. If A<>B Then Printf \不等于B\C. If A<>B Then Print \不等于B\ D. If A≠B Print \不等于B\ 33、下面语句正确的是( )

A. If x<3y And x>y Then y=x^3 B. If x<3y And x>y Then y=3x C. If x<3y:x>y Then y=x^3 D. If x<3y And x>y Then y=x* *3 34、计算z的值，当x大于y时，z=x；否则z=y。下列语句错误的是( ) A. If x>=y Then z=x : z=y B. If x>=y Then z=x Else z=y C. z=y : If x>=y Then z=x D. If x<=y Then z=y Else z=x 35、 下列程序段执行结果为( ) x=5 y=-6

If Not x>0 Then x=y-3 Else y=x+3 Print x-y; y-x

A. -3 3 B. 5 -9 C. 3 -3 D. -6 5

36、 不能脱离控件(包括客体) 而独立存在的过程是( )

A) 事件过程 B) 通用过程 C) Sub过程 D) 函数过程 37、 Sub过程与Function过程最根本的区别是( )

A. Sub过程可以用Call语句直接使用过程名调用，而Function过程不可以 B. Function过程可以有形参，Sub过程不可以 C. Sub过程不能返回值，而Function过程能返回值 D. 两种过程参数的传递方式不同

38、单击命令按钮时，下列程序的执行结果为( ) Private Sub Command1_Click() Dim x As Integer, y As Integer x=12:y=32 Call Proc(x,y) Print x; y End Sub

Public Sub Proc(n As Integer, ByVal m As Integer) n=n Mod 10 m=m Mod 10 End Sub

A. 1232 B.232 C. 23 D. 123 39、 单击命令按钮时，下列程序的执行结果是( )

试卷编码： 07GL10000000-80000059330002 第 7 页 共 10 页

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer a=3 b=4 c=5

Print SecProc(c, b, A) End Sub

Function FirProc(x As Integer, y As Integer, z As Integer) FirProc=2x+y+3z End Function

Function SecProc(x As Integer, y As Integer, z As Integer) SecProc=FirProc(z, x, y) +x End Function

A. 20 B. 22 C. 28 D. 30 40、下列程序的执行结果为( ) Private Sub Command1_Click() Dim FirStr As String FirSt=\ Print Pat(FirStr) End Sub

Private Function Pat(xStr As String) As String Dim tempStr As String, strLen As Integer tempStr=\ strLen=Len(xStr) i=1

Do While i<=Len(xStr) -3

tempStr=tempStr+Mid(xStr, i, 1) +Mid(xStr, strLen -i+1, 1) i=i+1 Loop Pat=tempStr

End Function

A. abcdef B.afbecd C. fedcba D. defabc 二、填空题(第41题～第50题。每题2分，满分20分。)

41、 以下过程的作用是将26个小写字母逆序打印出来，请补充完整。 Sub Inverse()

For i=122 To ___________ Print ___________ ; Next i End Sub

42、在窗体上加上一个文本控件PCSTextBox，画一个命令按钮，当单击命令按钮的时候将显示\打开文件\对话框，设置该对话框只用于打开文本文件，然后在文本控件中显示打开的文件名。请填空。 Private Sub Command1_Click()

CommonDialog1.Filter= ______________ CommonDialog1.ShowOpen

试卷编码： 07GL10000000-80000059330002 第 8 页 共 10 页

PCSTextBox.Text= _____________ End Sub

43、 随机文件使用Put语句写数据，使用 _____________ 语句读数据。

44、下列程序的功能是：将数据1，2，…，8写入顺序文件Num.txt中，请补充完整。 Private Sub Form_Click() Dim i As Integer

Open \ For i=1 To 8 _____________ Next i Close #1 End Sub

45、 新建一个工程，内有两个窗体，窗体Form1上有一个命令按钮Command1，单击该按钮，Form1窗体消失，显示Form2窗体，程序如下： Private Sub Command1_Click() _____________

Form2. _____________ End Sub

46、用户可以用 _____________语句定义自己的数据类型。 47、在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0

Do Until x=-1

a=InputBox(\请输入第一个数字a的值\ a=Val(A)

b=InputBox(\请输入第二个数字b的值\ b=Val(b)

x=InputBox(\请输入第三个数字x的值\ x=Val(x) a=a + b + x Loop Print a End Sub

在程序运行后，单击命令按钮，在对话框中分别输入5，4，8，5，8，-1，输出结果为 _____________ 。 48、当对象得到焦点时，会触发 _____________ 事件，当对象失去焦点时将触发 _____________事件。

49、把窗体的KeyPreView属性设置为True，并编写如下两个事件过程： Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print KeyCode End Sub

Private Sub Form_KeyPress(KeyAscii As Integer) Print KeyAscii End Sub

程序运行后，如果按下B键，则在窗体上输出的数值是_____________和 _____________ 。

试卷编码： 07GL10000000-80000059330002 第 9 页 共 10 页

50、在文件对话框中，假定有一个名为\的文件，它位于\＼pp\目录下，则\属性的值为 _____________；FileTitle属性的值为 _____________ 。

试卷编码： 07GL10000000-80000059330002 第 10 页 共 10 页

本文来源：https://www.bwwdw.com/article/vpo3.html