大一新生请问计算机考级的事
kuaidi.ping-jia.net 作者：佚名 更新日期：2024-06-28
我是大一新生，想问问大学的计算机等级考试是怎么回事？
2003年9月计算机二级VB笔试
一、 选择题（（1）~（20）每小题2分，（21）~（30）每小题3分，共70分）
（1）以下叙述中错误的是
A）Visual Basic 是事件驱动型可视化编程工具
B）Visual Basic应用程序不具有明显的开始和结束语句
C）Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性
D）Visual Basic中控件的某些属性只能在运行时设置
（2）以下叙述中错误的是
A）在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件
B）以.BAS为扩展名的文件是标准模块文件
C）窗体文件包含该窗体及其控件的属性
D）一个工程中可以含有多个标准模块文件
（3）以下叙述中错误的是
A）双击鼠标可以触发DblClick事件
B）窗体或控件的事件的名称可以由编程人员确定
C）移动鼠标时，会触发MouseMove事件
D）控件的名称可以由编程人员设定
（4）以下不属于Visual Basic系统的文件类型是
A）.frm B）.bat C）.vbg D）.vbp
（5）以下叙述中错误的是
A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件
B）保存Visual Basic程序时，应分别保存窗体文件及工程文件
C）Visual Basic应用程序只能以解释方式执行
D）事件可以由用户引发，也可以由系统引发
（6）以下能正确定义数据类型TelBook的代码是
A）Type TelBook B）Type TelBook
Name As String*10 Name As String*10
TelNum As Integer TelNum As Integer
End Type End TelBook
C）Type TelBook D）Typedef TelBook
Name String*10 Name String*10
TelNum Integer TelNum Integer
End Type TelBook EndType
（7）以下声明语句中错误的是
A）Const var1=123 B）Dim var2 = ABC
C）DefInt a-z D）Static var3 As Integer
（8）设窗体上有一个列表框控件Lis选中的列表项内容的是t1，且其中含有若干列表项。则以下能表示当前被
A）List1.List B）List1.ListIndex C）List1.Index D）List1. Text
（9）程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是
A）MouseDown B）MouseUp C）Load D）Click
（10）设a=10，b=5，c =1，执行语句Print a > b > c后，窗体上显示的是
A）True B）False C）1 D）出错信息
（11）如果要改变窗体的标题，则需要设置的属性是
A）Caption B）Name C）BackColor D）BorderStyle
（12）以下能判断是否到达文件尾的函数是
A）BOF B）LOC C）LOFD）EOF
（13）如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是
A）如果工程中含有Sub Main过程，则程序一定首先执行该过程
B）不能把标准模块设置为启动模块
C）用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体
D）任何时刻最多只有一个窗体是活动窗体
（14）窗体的MouseDown事件过程
Form_MouseDown (ButtSingle)
on As Integer, Shift As Integer, X As Single, Y As
有4个参数，关于这些参数，正确的描述是
A）通过Button参数判定当前按下的是哪一个鼠标键
B）Shift参数只能用来确定是否按下Shift键
C）Shift参数只能用来确定是否按下Alt和Ctrl键
D）参数x,y用来设置鼠标当前位置的坐标
（15）设组合框Combo1中有3个项目，则以下能删除最后一项的语句是
A）Combo1.RemoveItem Text
B）Combo1.RemoveItem2
C）Combo1.RemoveItem 3
D）Combo1.RemoveItemCombo1.Listcount
（16）以下关于焦点的叙述中，错误的是
A）如果文本框的TabStop属性为False，则不能接收从键盘上输入的数据
B）当文本框失去焦点时，触发LostFocus事件
C）当文本框的Enabled属性为False时，其Tab顺序不起作用
D）可以用TabIndex属性改变Tab顺序
（17）如果要在菜单中添加一个分隔线，则应将其Caption属性设置为
A）= B）* C）& D）-
（18）执行语句Open "数据能够执行的操作是Tel.dat" For Random As #1 Le
n = 50后，对文件Tel.dat中的
A）只能写，不能读 B）只能读，不能写
C）既可以读，也可以写 D）不能读，不能写
（19）在窗体上画一个本框，然后编写如下事件过
名称为Command1的命令按钮和两程：个名称分别为Text1、Text2的文
Private Sub Command1_Click()
n = Text1.Text
Select Case n
Case 1 To 20
x = 10
Case 2, 4, 6
x = 20
Case Is < 10
x = 30
Case 10
x = 40
End Select
Text2.Text = x
End Sub
程序运行后，如果在文内容是本框Text1中输入10，然后单击命令按钮，则在Text2中显示的
A）10 B）20 C）30 D）40
（20）设有以下循环结构
Do
循环体
Loop While <条件>
则以下叙述中错误的是
A）若"条件"是一个为0的常数，则一次也不执行循环体
B）"条件"可以是关系表达式、逻辑表达式或常数
C）循环体中可以使用Exit Do语句
D）如果"条件"总是为True，则不停地执行循环体
（21）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim num As Integer
num = 1
Do Until num > 6
Print num;
num = num + 2.4
Loop
End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是
A）1 3.4 5.8 B）1 3 5
C）1 4 7 D）无数据输出
（22）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a As Integer, sAs Integer
a = 8
s = 1
Do
s = s + a
a = a－1
Loop While a <= 0
Print s; a
End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是
A） 7 9 B） 34 0
C） 9 7 D）死循环
（23）设有如下通用过程：
Public Function f(x As Integer)
Dim y As Integer
x = 20
y = 2
f = x * y
End Function
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Static x As Integer
x = 10
y=5
y = f(x)
Print x; y
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是
A）10 5 B）20 5
C）20 40 D）10 40
（24）设有如下通用过程：
Public Sub Fun(a(), ByVal x As Integer)
For i = 1 To 5
x = x + a(i)
Next
End Sub
在窗体上画一个名称为Text1的文本下的事件过程：框和一个名称为Command1的命令按钮，然后编写如
Private Sub Command1_Click()
Dim arr(5) As Variant
For i = 1 To 5
arr(i) = i
Next
n = 10
Call Fun(arr(), n)
Text1.Text = n
End Sub
程序运行后，单击命令按钮，则在文本框中显示的内容是
A）10 B）15 C）25 D）24
（25）在窗体上画一个名称为Command1的命令按钮，然后编写如下代码：
Option Base 1
Private Sub Command1_Click()
d = 0
c = 10
x = Array(10, 12, 21, 32, 24)
For i = 1 To 5
If x(i) > c Then
d = d + x(i)
c = x(i)
Else
d = d－c
End If
Next i
Print d
End Sub
程序运行后，如果单击命令按钮，则在窗体上输出的内容为
A）89 B）99 C）23 D）77
（26）在窗体上画两个别为Label1、Label2、Labe显示"A"、"B"、"A*B"等文Label3 显示A*B的计算结果。当单击命令按钮"计算"时Label3中。以下不能实现上滚动条，名称分别为Hscroll1l3、Label4、Label5、Label6，字信息，标签Label1、Label2分。如图所示。当移动滚动框时，，对标签Label1、Label2中显示述功能的事件过程是、Hscroll2；六个标签，名称分其中标签Label 4~ Label6分别别显示其右侧的滚动条的数值，在相应的标签中显示滚动条的值的两个值求积，并将结果显示在
A）Private Sub Command1_Click()
Label3.Caption = Str(Val(Label1.Caption )*Val( Label2.Caption))
End Sub
B）Private Sub Command1_Click()
Label3.Caption = HScroll1.Value * HScroll2.Value
End Sub
C）Private Sub Command1_Click()
Label3.Caption = HScroll1 * HScroll2
End Sub
D）Private Sub Command1_Click()
Label3.Caption = HScroll1. Text * HScroll2.Text
End Sub
（27）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
For n = 1 To 20
If n Mod 3 <> 0 Thenm = m + n 3
Next n
Print n
End Sub
程序运行后，如果单击命令按钮，则窗体上显示的内容是
A）15 B）18 C）21 D）24
（28）在窗体上画一个名称为Text1的文本框，并编写如下程序：
Private Sub Form_Load()
Show
Text1.Text = ""
Text1.SetFocus
End Sub
Private Sub Form_MouY As Single)seUp(Button As Integer, Shift As Integer, X As Single,
Print "程序设计"
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Print "Visual Basic";
End Sub
程序运行后，如果按"A"键，然后单击窗体，则在窗体上显示的内容是
A）Visual Basic B）程序设计
C）A程序设计 D）Visual Basic程序设计
（29）设有如下程序：
Private Sub Command1_Click()
Dim sum As Double, xAs Double
sum = 0
n = 0
For i = 1 To 5
x = n / i
n = n + 1
sum = sum + x
Next
End Sub
该程序通过For循环计算一个表达式的值，这个表达式是
A）1+1/2+ 2/3+3/4+4/5 B）1+1/2+2/3+3/4
C）1/2+2/3+3/4+4/5 D）1+1/2+1/3+1/4+1/5
（30）以下有关数组定义的语句序列中，错误的是
A） Static arr1(3)
arr1(1) = 100
arr1(2) = "Hello"
arr1(3) = 123.45
B）Dim arr2() As Integer
Dim size As Integer
Private Sub Command2_Click()
size = InputBox("输入：")
ReDim arr2(size)
．．．．．．
End Sub
C）Option Base 1
Private Sub Command3_Click()
Dim arr3(3) As Integer
．．．．．．
End Sub
D）Dim n As Integer
Private Sub Command4_Click()
Dim arr4(n) As Integer
．．．．．．
End Sub
二、填空题（每空2分，共30分）
（1）执行下面的程序段后，i的值为〖1〗 ，s的值为 〖2〗 。
s = 2
For i = 3.2 To 4.9 Step 0.8
s = s + 1
Next i
（2）把窗体的KeyPreview属性设置为True，然后编写如下两个事件过程：
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
程序运行后，如果直接分别是 〖3〗 和 〖4〗 。按键盘上的"A"键（即不按住Shift键），则在窗体上输出的字符
（3）在窗体上画一个标签（名称为L写如下几个事件过程：abel1）和一个计时器（名称为Timer1），然后编
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 〖5〗
End Sub
Private Sub Form_Click()
Timer1.Enabled = 〖6〗
End Sub
Private Sub Timer1_Timer()
Label1.Caption = 〖7〗
End Sub
程序运行后，单击窗体，将在标签中填空。显示当前时间，每隔1秒钟变换一次（见图）。请
——————————————————————
14：54：41
——————————————————————
（4）在窗体上画一个Label1和Command1，然后编文本框、一个标签和一个命令按写如下两个事件过程：钮，其名称分别为Text1、
Private Sub Command1_Click()
S$ = InputBox("请输入一个字符串")
Text1.Text = S$
End Sub
Private Sub Text1_Change()
Label1.Caption = UCase(Mid(Text1.Text, 7))
End Sub
程序运行后，单击命令"VisualBasic"，则在标签按钮，将显示一个输入对话框，中显示的内容是 〖8〗 。如果在该对话框中输入字符串
（5）在窗体上画一个列表框、一个Command1和Label1，通过属性窗口把列表、"第三个项目"、"第四个项目"。程序运钮，即可将所选择的项目删除，并在标签选择"第三个项目"的情况)。下面是实现命令按钮和一个标签，其名称分别为List1、框中的项目设置为："第一个项目"、"第二个项目"行后，在列表框中选择一个项目，然后单击命令按中显示列表框当前的项目数，运行情况如图所示(上述功能的程序，请填空。
Private Sub Command1 _Click()
If List1.ListIndex >= 〖9〗 Then
List1.RemoveItem 〖10〗
Label1.Caption = 〖11〗
Else
MsgBox "请选择要删除的项目"
End If
End Sub
—————————— ———————————
第一个项目
第二个项目 COMMAND1
第三个项目
3
—————————————————————
（6）设有程序：
Option Base 1
Private Sub Command1_Click()
Dim arr1, Max as Integer
arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43)
〖12〗 = arr1(1)
For i = 1 To 8
If arr1(i) > Max Then 〖13〗
Next i
Print "最大值是: "; Max
End Sub
以上程序的功能是：用Array函数建组中元素的最大值。请填空。立一个含有8个元素的数组，然后查找并输出该数
（7）以下程序的功能在文本框Text1中显示出来是：把当前目录下的顺序文件sm。请填空。text1.txt的内容读入内存，并
Private Sub Command1_Click()
Dim inData As String
Text1.Text = ""
Open ".smtext1.txt"〖14〗 As #1
Do While 〖15〗
Input #1, inData
Text1.Text = Text1.Text & inData
Loop
Close #1
End Sub
2003年9月全国计算机等级考试二级VB语言笔试试卷参考答案
一、 选择题
（1） C （2） A （3） B （4） B （5） C
（6） A （7） B （8） D （9） C （10）B
（11）A （12）D （13）A （14）A （15）B
（16）A （17）D （18）C （19）A （20）A
（21）B （22）C （23）C （24）A （25）C
（26）D （27）C （28）D （29）C （30）D
二、 填空题
（1） 〖1〗 5.6 〖2〗 5
（2） 〖3〗 A 〖4〗 a
（3） 〖5〗 1000 〖6〗 True 〖7〗 Time
（4） 〖8〗 BASIC
（5） 〖9〗 0 〖10〗List1.ListIndex 〖11〗 List1.ListCount
（6） 〖12〗 Max 〖13〗 Max = arr1(i)
（7） 〖14〗 For Input 〖15〗 Not EOF(1)
考试时间我也不知道我估计应该是90分钟。
考试内容有;
全国计算机等级考试二级公共基础知识
基本要求
1. 掌握算法的基本概念。
2. 掌握基本数据结构及其操作。
3. 掌握基本排序和查找算法。
4. 掌握逐步求精的结构化程序设计方法。
5. 掌握软件工程的基本方法，具有初步应用相关技术进行软件开发的能力。
6. 掌握数据的基本知识，了解关系数据库的设计。
考试内容
一、 基本数据结构与算法
1. 算法的基本概念；算法复杂度的概念和意义（时间复杂度与空间复杂度）。
2. 数据结构的定义；数据的逻辑结构与存储结构；数据结构的图形表示；线性结构与非线性结构的概念。
3. 线性表的定义；线性表的顺序存储结构及其插入与删除运算。
4. 栈和队列的定义；栈和队列的顺序存储结构及其基本运算。
5. 线性单链表、双向链表与循环链表的结构及其基本运算。
6. 树的基本概念；二叉树的定义及其存储结构；二叉树的前序、中序和后序遍历。
7. 顺序查找与二分法查找算法；基本排序算法（交换类排序，选择类排序，插入类排序）。
二、 程序设计基础
1. 程序设计方法与风格。
2. 结构化程序设计。
3. 面向对象的程序设计方法，对象，方法，属性及继承与多态性。
三、 软件工程基础
1. 软件工程基本概念，软件生命周戎概念，软件工具与软件开发环境。
2. 结构化分析方法，数据流图，数据字典，软件需求规格说明书。
3. 结构化设计方法，总体设计与详细设计。
4. 软件测试的方法，白盒测试与黑盒测试，测试用例设计，软件测试的实施，单元测试、集成测试和系统测试。
5. 程序的调试，静态调试与动态调试。
四、 数据库设计基础
1. 数据库的基本概念：数据库，数据库管理系统，数据库系统。
2. 数据模型，实体联系模型及E-R图，从E-R图导出关系数据模型。
3. 关系代数运算，包括集合运算及选择、投影、连接运算，数据库规范化理论。
4. 数据库设计方法和步骤：需求分析、概念设计、逻辑设计和物理设计的相关策略。
考试方式
1、 公共基础的考试方式为笔试，与C语言（VisualBASIC、Visual FoxPro、Java、Access、Visual C++）的笔试部分合为一张试卷。公共基础部分占全卷的30分。
2、 公共基础知识有10道选择题和5道填空题。
本科新生计算机分级考试
答：大学计算机考试有两种。第一种是国家的第二种是省上的，分为一级二级三级（省上的没三级），级数越高就越好。一级为专科必须要求过的，二本要求是二级（省上的或者国家的都可以）。如果把国家三级过了就相当于过了英语四级，即使英语四级没过也能拿到学位证书。你现在才大一有很多时间一定要把这些级...
我是大一新生,大学里要考计算机 ,请问是计算机什么证书···具体的...
答：如果是计算机专业的，一般至少要考个二级证书，VB\C++\PB\C语言等；三级是信息技术方面的，像网络管理员等；四级的比较好考，都是笔试加机试。其他专业的没有规定，一级就行了，一般不作要求的。
大一新生计算机考试有什么用啊?和分班不会也有关系吧??如何应付呢?_百...
答：只指计算机一级考试吧？这个考试是教育部规定的，和四级一样，需要通过考试拿到证书了，才能毕业取得学位，其他没有什么关系。这个计算机一级考试很简单，基本上要求掌握的软件就是Photoshop、dreamwaver、office等常用软件，只要上计算机可的时候自己认真操作，都能学会的。一些比较基础的知识，在考试前买一些...
大学新生入学英语,计算机分级考试是怎么回事?
答：无需准备，计算机分级考试只不过测试你下你的水平 ，分分班，到时候就轻松地去考就好，跟你以后在学校的具体成绩没关系。我们班大部分的人都是在最低的那个班的啦，从头学起，好准备考国家计算机等级考试。我们班那个考得最好到a班的还不是常常溜到c班看我们上课。因为好像考虑到学生的水平已经比较高...
大一入学考试计算机考什么,上机还是笔试?
答：我是在大一下学期考的，也许是学校的制度不一样吧？考试内容是电脑随机给的，要上机的 内容有FrontPage,Access,Excel,PowerPoint,Word,IE,Outlook,在这些里随机出几个。应该会出三个。一定有的是选择题（有单选也有多选），还有5分钟打字。我不知道你的学校会如何要求的，但应该也是这些内容里的 加油哦...
大学计算机等级考试的问题
答：120001 天津医学高等专科学校 河西区柳林路14号 60276889 120004 天津师范大学主校区 西青区宾水西道393号天津师范大学主校区博理楼D103 23766024 120007 天津青年职业学院电子工程系（天津团校） 南开区水上公园西路43号综合楼电子工程系 23627632、23671493 120008 天津理工大学计算机科学与技术学院 南开区...
我是一名大一新生,想考计算机证,
答：考一级就可以啦，在学校报名，学校会摆出来报名的，你报名就可以了，准备好好看上机题吧
大一新生如何考英语四六级和计算机等级证 证?
答：很多大学是能够直接在大一的时候参加学校考点的四六级的考试的，这个学校会通知的，然后是计算机等级证，你直接在那种网站报名就行了啊，这个是很好考的，稍微准备下，连接一些基本知识就行了。
新大一计算机基础考什么?
答：大学生新生入学计算机考试的内容和要求可能会因学校和专业而有所不同。一般来说，这种考试旨在测试学生对基本计算机概念和技能的了解程度。以下是可能出现在新生入学计算机考试中的一些常见内容：1. 计算机基本知识：操作系统、计算机硬件、计算机网络、数据库等基本概念和术语的了解。2. 办公软件应用：如...
大一新生计算机考试考什么?
答：大一计算机考的是基本的windows系统操作，如新建、复制、剪切、黏贴等，还有word文档的操作。主要是插入、格式、设置等问题，excel表格的相对新手会麻烦一点，难点在公式的计算、此外还有排列、筛选，统计分析图表的比较容易，直接找到相应格式代入即可。ppt的难度也不大，而最后发一封邮件是送分题。常用软件的...
你是学什么专业的。
非计算机专业的也是要求要过二级的啦。就是C语言等级考度。一般在大一或大二就会考。你们会有开这门课。然后会有成绩作为你学分的成绩。
C语言考试只要求上机考。到时候你可以去找上一届有考过的学长们要一些他们当时考的题目。因为每年考的都是百分之七十的老题。再加上百分之三十的新题。
畅言网普通话学习网址，国家普通话水平测试模拟测试及在线学习系统。
普通话在线学习
考生安装客户端后，登陆网站，点击进入在线学习页面，即可进行在线学习服务。
畅言网提供了六种学习方式：“基础语音学习”、“对比语音学习”、“综合学习”、“大纲短文学习”、“听辨音训练”和“我的课程”，每种学习方式的特点如下：
◆ 基础语音学习
按照声母、韵母、调型三种类型对普通话发音进行划分，提供用户全面、成体系的普通话学习方式。适用于想要全面学习普通话语音的用户，也提供了用户迅速查找某项发音进行学习的入口。该学习方式提供单字和词语两种学习题型。
◆ 对比语音学习
列举各方言区容易混淆的发音项，生成相应的课程，便于用户进行对比训练和学习，更容易把握这些关键的发音项。该学习方式提供单字、词语、句子三种学习题型。
◆ 综合学习
以用户的发音特点为依据（仅限于有模拟测试记录的用户），生成包括单字、词语、短文三种题型的课程，方便考生有一定针对性地进行学习。
◆ 大纲短文学习
专项训练普通话水平测试大纲中的60篇短文，用户有全文学习和逐句学习两种方式。
◆ 听辨音训练
通过读音、汉字、拼音的辨别来训练和强化对标准普通话读音的掌握。
◆ 我的课程
系统根据用户的模拟测试诊断报告，为用户量身定制出“一揽子”的针对性训练方案，其中包括经过定制后的“基础语音训练”、“对比语音训练”和“综合学习”几种方式。
能考过就报，过的越早越好，普通话考试不一定一次就过的。
2003年9月计算机二级VB笔试
一、 选择题（（1）~（20）每小题2分，（21）~（30）每小题3分，共70分）
（1）以下叙述中错误的是
A）Visual Basic 是事件驱动型可视化编程工具
B）Visual Basic应用程序不具有明显的开始和结束语句
C）Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性
D）Visual Basic中控件的某些属性只能在运行时设置
（2）以下叙述中错误的是
A）在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件
B）以.BAS为扩展名的文件是标准模块文件
C）窗体文件包含该窗体及其控件的属性
D）一个工程中可以含有多个标准模块文件
（3）以下叙述中错误的是
A）双击鼠标可以触发DblClick事件
B）窗体或控件的事件的名称可以由编程人员确定
C）移动鼠标时，会触发MouseMove事件
D）控件的名称可以由编程人员设定
（4）以下不属于Visual Basic系统的文件类型是
A）.frm B）.bat C）.vbg D）.vbp
（5）以下叙述中错误的是
A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件
B）保存Visual Basic程序时，应分别保存窗体文件及工程文件
C）Visual Basic应用程序只能以解释方式执行
D）事件可以由用户引发，也可以由系统引发
（6）以下能正确定义数据类型TelBook的代码是
A）Type TelBook B）Type TelBook
Name As String*10 Name As String*10
TelNum As Integer TelNum As Integer
End Type End TelBook
C）Type TelBook D）Typedef TelBook
Name String*10 Name String*10
TelNum Integer TelNum Integer
End Type TelBook EndType
（7）以下声明语句中错误的是
A）Const var1=123 B）Dim var2 = ABC
C）DefInt a-z D）Static var3 As Integer
（8）设窗体上有一个列表框控件Lis选中的列表项内容的是t1，且其中含有若干列表项。则以下能表示当前被
A）List1.List B）List1.ListIndex C）List1.Index D）List1. Text
（9）程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是
A）MouseDown B）MouseUp C）Load D）Click
（10）设a=10，b=5，c =1，执行语句Print a > b > c后，窗体上显示的是
A）True B）False C）1 D）出错信息
（11）如果要改变窗体的标题，则需要设置的属性是
A）Caption B）Name C）BackColor D）BorderStyle
（12）以下能判断是否到达文件尾的函数是
A）BOF B）LOC C）LOFD）EOF
（13）如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是
A）如果工程中含有Sub Main过程，则程序一定首先执行该过程
B）不能把标准模块设置为启动模块
C）用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体
D）任何时刻最多只有一个窗体是活动窗体
（14）窗体的MouseDown事件过程
Form_MouseDown (ButtSingle)
on As Integer, Shift As Integer, X As Single, Y As
有4个参数，关于这些参数，正确的描述是
A）通过Button参数判定当前按下的是哪一个鼠标键
B）Shift参数只能用来确定是否按下Shift键
C）Shift参数只能用来确定是否按下Alt和Ctrl键
D）参数x,y用来设置鼠标当前位置的坐标
（15）设组合框Combo1中有3个项目，则以下能删除最后一项的语句是
A）Combo1.RemoveItem Text
B）Combo1.RemoveItem2
C）Combo1.RemoveItem 3
D）Combo1.RemoveItemCombo1.Listcount
（16）以下关于焦点的叙述中，错误的是
A）如果文本框的TabStop属性为False，则不能接收从键盘上输入的数据
B）当文本框失去焦点时，触发LostFocus事件
C）当文本框的Enabled属性为False时，其Tab顺序不起作用
D）可以用TabIndex属性改变Tab顺序
（17）如果要在菜单中添加一个分隔线，则应将其Caption属性设置为
A）= B）* C）& D）-
（18）执行语句Open "数据能够执行的操作是Tel.dat" For Random As #1 Le
n = 50后，对文件Tel.dat中的
A）只能写，不能读 B）只能读，不能写
C）既可以读，也可以写 D）不能读，不能写
（19）在窗体上画一个本框，然后编写如下事件过
名称为Command1的命令按钮和两程：个名称分别为Text1、Text2的文
Private Sub Command1_Click()
n = Text1.Text
Select Case n
Case 1 To 20
x = 10
Case 2, 4, 6
x = 20
Case Is < 10
x = 30
Case 10
x = 40
End Select
Text2.Text = x
End Sub
程序运行后，如果在文内容是本框Text1中输入10，然后单击命令按钮，则在Text2中显示的
A）10 B）20 C）30 D）40
（20）设有以下循环结构
Do
循环体
Loop While <条件>
则以下叙述中错误的是
A）若"条件"是一个为0的常数，则一次也不执行循环体
B）"条件"可以是关系表达式、逻辑表达式或常数
C）循环体中可以使用Exit Do语句
D）如果"条件"总是为True，则不停地执行循环体
（21）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim num As Integer
num = 1
Do Until num > 6
Print num;
num = num + 2.4
Loop
End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是
A）1 3.4 5.8 B）1 3 5
C）1 4 7 D）无数据输出
（22）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a As Integer, sAs Integer
a = 8
s = 1
Do
s = s + a
a = a－1
Loop While a <= 0
Print s; a
End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是
A） 7 9 B） 34 0
C） 9 7 D）死循环
（23）设有如下通用过程：
Public Function f(x As Integer)
Dim y As Integer
x = 20
y = 2
f = x * y
End Function
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Static x As Integer
x = 10
y=5
y = f(x)
Print x; y
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是
A）10 5 B）20 5
C）20 40 D）10 40
（24）设有如下通用过程：
Public Sub Fun(a(), ByVal x As Integer)
For i = 1 To 5
x = x + a(i)
Next
End Sub
在窗体上画一个名称为Text1的文本下的事件过程：框和一个名称为Command1的命令按钮，然后编写如
Private Sub Command1_Click()
Dim arr(5) As Variant
For i = 1 To 5
arr(i) = i
Next
n = 10
Call Fun(arr(), n)
Text1.Text = n
End Sub
程序运行后，单击命令按钮，则在文本框中显示的内容是
A）10 B）15 C）25 D）24
（25）在窗体上画一个名称为Command1的命令按钮，然后编写如下代码：
Option Base 1
Private Sub Command1_Click()
d = 0
c = 10
x = Array(10, 12, 21, 32, 24)
For i = 1 To 5
If x(i) > c Then
d = d + x(i)
c = x(i)
Else
d = d－c
End If
Next i
Print d
End Sub
程序运行后，如果单击命令按钮，则在窗体上输出的内容为
A）89 B）99 C）23 D）77
（26）在窗体上画两个别为Label1、Label2、Labe显示"A"、"B"、"A*B"等文Label3 显示A*B的计算结果。当单击命令按钮"计算"时Label3中。以下不能实现上滚动条，名称分别为Hscroll1l3、Label4、Label5、Label6，字信息，标签Label1、Label2分。如图所示。当移动滚动框时，，对标签Label1、Label2中显示述功能的事件过程是、Hscroll2；六个标签，名称分其中标签Label 4~ Label6分别别显示其右侧的滚动条的数值，在相应的标签中显示滚动条的值的两个值求积，并将结果显示在
A）Private Sub Command1_Click()
Label3.Caption = Str(Val(Label1.Caption )*Val( Label2.Caption))
End Sub
B）Private Sub Command1_Click()
Label3.Caption = HScroll1.Value * HScroll2.Value
End Sub
C）Private Sub Command1_Click()
Label3.Caption = HScroll1 * HScroll2
End Sub
D）Private Sub Command1_Click()
Label3.Caption = HScroll1. Text * HScroll2.Text
End Sub
（27）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
For n = 1 To 20
If n Mod 3 <> 0 Thenm = m + n 3
Next n
Print n
End Sub
程序运行后，如果单击命令按钮，则窗体上显示的内容是
A）15 B）18 C）21 D）24
（28）在窗体上画一个名称为Text1的文本框，并编写如下程序：
Private Sub Form_Load()
Show
Text1.Text = ""
Text1.SetFocus
End Sub
Private Sub Form_MouY As Single)seUp(Button As Integer, Shift As Integer, X As Single,
Print "程序设计"
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Print "Visual Basic";
End Sub
程序运行后，如果按"A"键，然后单击窗体，则在窗体上显示的内容是
A）Visual Basic B）程序设计
C）A程序设计 D）Visual Basic程序设计
（29）设有如下程序：
Private Sub Command1_Click()
Dim sum As Double, xAs Double
sum = 0
n = 0
For i = 1 To 5
x = n / i
n = n + 1
sum = sum + x
Next
End Sub
该程序通过For循环计算一个表达式的值，这个表达式是
A）1+1/2+ 2/3+3/4+4/5 B）1+1/2+2/3+3/4
C）1/2+2/3+3/4+4/5 D）1+1/2+1/3+1/4+1/5
（30）以下有关数组定义的语句序列中，错误的是
A） Static arr1(3)
arr1(1) = 100
arr1(2) = "Hello"
arr1(3) = 123.45
B）Dim arr2() As Integer
Dim size As Integer
Private Sub Command2_Click()
size = InputBox("输入：")
ReDim arr2(size)
．．．．．．
End Sub
C）Option Base 1
Private Sub Command3_Click()
Dim arr3(3) As Integer
．．．．．．
End Sub
D）Dim n As Integer
Private Sub Command4_Click()
Dim arr4(n) As Integer
．．．．．．
End Sub
二、填空题（每空2分，共30分）
（1）执行下面的程序段后，i的值为〖1〗 ，s的值为 〖2〗 。
s = 2
For i = 3.2 To 4.9 Step 0.8
s = s + 1
Next i
（2）把窗体的KeyPreview属性设置为True，然后编写如下两个事件过程：
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
程序运行后，如果直接分别是 〖3〗 和 〖4〗 。按键盘上的"A"键（即不按住Shift键），则在窗体上输出的字符
（3）在窗体上画一个标签（名称为L写如下几个事件过程：abel1）和一个计时器（名称为Timer1），然后编
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 〖5〗
End Sub
Private Sub Form_Click()
Timer1.Enabled = 〖6〗
End Sub
Private Sub Timer1_Timer()
Label1.Caption = 〖7〗
End Sub
程序运行后，单击窗体，将在标签中填空。显示当前时间，每隔1秒钟变换一次（见图）。请
——————————————————————
14：54：41
——————————————————————
（4）在窗体上画一个Label1和Command1，然后编文本框、一个标签和一个命令按写如下两个事件过程：钮，其名称分别为Text1、
Private Sub Command1_Click()
S$ = InputBox("请输入一个字符串")
Text1.Text = S$
End Sub
Private Sub Text1_Change()
Label1.Caption = UCase(Mid(Text1.Text, 7))
End Sub
程序运行后，单击命令"VisualBasic"，则在标签按钮，将显示一个输入对话框，中显示的内容是 〖8〗 。如果在该对话框中输入字符串
（5）在窗体上画一个列表框、一个Command1和Label1，通过属性窗口把列表、"第三个项目"、"第四个项目"。程序运钮，即可将所选择的项目删除，并在标签选择"第三个项目"的情况)。下面是实现命令按钮和一个标签，其名称分别为List1、框中的项目设置为："第一个项目"、"第二个项目"行后，在列表框中选择一个项目，然后单击命令按中显示列表框当前的项目数，运行情况如图所示(上述功能的程序，请填空。
Private Sub Command1 _Click()
If List1.ListIndex >= 〖9〗 Then
List1.RemoveItem 〖10〗
Label1.Caption = 〖11〗
Else
MsgBox "请选择要删除的项目"
End If
End Sub
—————————— ———————————
第一个项目
第二个项目 COMMAND1
第三个项目
3
—————————————————————
（6）设有程序：
Option Base 1
Private Sub Command1_Click()
Dim arr1, Max as Integer
arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43)
〖12〗 = arr1(1)
For i = 1 To 8
If arr1(i) > Max Then 〖13〗
Next i
Print "最大值是: "; Max
End Sub
以上程序的功能是：用Array函数建组中元素的最大值。请填空。立一个含有8个元素的数组，然后查找并输出该数
（7）以下程序的功能在文本框Text1中显示出来是：把当前目录下的顺序文件sm。请填空。text1.txt的内容读入内存，并
Private Sub Command1_Click()
Dim inData As String
Text1.Text = ""
Open ".smtext1.txt"〖14〗 As #1
Do While 〖15〗
Input #1, inData
Text1.Text = Text1.Text & inData
Loop
Close #1
End Sub
2003年9月全国计算机等级考试二级VB语言笔试试卷参考答案
一、 选择题
（1） C （2） A （3） B （4） B （5） C
（6） A （7） B （8） D （9） C （10）B
（11）A （12）D （13）A （14）A （15）B
（16）A （17）D （18）C （19）A （20）A
（21）B （22）C （23）C （24）A （25）C
（26）D （27）C （28）D （29）C （30）D
二、 填空题
（1） 〖1〗 5.6 〖2〗 5
（2） 〖3〗 A 〖4〗 a
（3） 〖5〗 1000 〖6〗 True 〖7〗 Time
（4） 〖8〗 BASIC
（5） 〖9〗 0 〖10〗List1.ListIndex 〖11〗 List1.ListCount
（6） 〖12〗 Max 〖13〗 Max = arr1(i)
（7） 〖14〗 For Input 〖15〗 Not EOF(1)
考试时间我也不知道我估计应该是90分钟。
考试内容有;
全国计算机等级考试二级公共基础知识
基本要求
1. 掌握算法的基本概念。
2. 掌握基本数据结构及其操作。
3. 掌握基本排序和查找算法。
4. 掌握逐步求精的结构化程序设计方法。
5. 掌握软件工程的基本方法，具有初步应用相关技术进行软件开发的能力。
6. 掌握数据的基本知识，了解关系数据库的设计。
考试内容
一、 基本数据结构与算法
1. 算法的基本概念；算法复杂度的概念和意义（时间复杂度与空间复杂度）。
2. 数据结构的定义；数据的逻辑结构与存储结构；数据结构的图形表示；线性结构与非线性结构的概念。
3. 线性表的定义；线性表的顺序存储结构及其插入与删除运算。
4. 栈和队列的定义；栈和队列的顺序存储结构及其基本运算。
5. 线性单链表、双向链表与循环链表的结构及其基本运算。
6. 树的基本概念；二叉树的定义及其存储结构；二叉树的前序、中序和后序遍历。
7. 顺序查找与二分法查找算法；基本排序算法（交换类排序，选择类排序，插入类排序）。
二、 程序设计基础
1. 程序设计方法与风格。
2. 结构化程序设计。
3. 面向对象的程序设计方法，对象，方法，属性及继承与多态性。
三、 软件工程基础
1. 软件工程基本概念，软件生命周戎概念，软件工具与软件开发环境。
2. 结构化分析方法，数据流图，数据字典，软件需求规格说明书。
3. 结构化设计方法，总体设计与详细设计。
4. 软件测试的方法，白盒测试与黑盒测试，测试用例设计，软件测试的实施，单元测试、集成测试和系统测试。
5. 程序的调试，静态调试与动态调试。
四、 数据库设计基础
1. 数据库的基本概念：数据库，数据库管理系统，数据库系统。
2. 数据模型，实体联系模型及E-R图，从E-R图导出关系数据模型。
3. 关系代数运算，包括集合运算及选择、投影、连接运算，数据库规范化理论。
4. 数据库设计方法和步骤：需求分析、概念设计、逻辑设计和物理设计的相关策略。
考试方式
1、 公共基础的考试方式为笔试，与C语言（VisualBASIC、Visual FoxPro、Java、Access、Visual C++）的笔试部分合为一张试卷。公共基础部分占全卷的30分。
2、 公共基础知识有10道选择题和5道填空题。
答：大学计算机考试有两种。第一种是国家的第二种是省上的，分为一级二级三级（省上的没三级），级数越高就越好。一级为专科必须要求过的，二本要求是二级（省上的或者国家的都可以）。如果把国家三级过了就相当于过了英语四级，即使英语四级没过也能拿到学位证书。你现在才大一有很多时间一定要把这些级...
答：如果是计算机专业的，一般至少要考个二级证书，VB\C++\PB\C语言等；三级是信息技术方面的，像网络管理员等；四级的比较好考，都是笔试加机试。其他专业的没有规定，一级就行了，一般不作要求的。
答：只指计算机一级考试吧？这个考试是教育部规定的，和四级一样，需要通过考试拿到证书了，才能毕业取得学位，其他没有什么关系。这个计算机一级考试很简单，基本上要求掌握的软件就是Photoshop、dreamwaver、office等常用软件，只要上计算机可的时候自己认真操作，都能学会的。一些比较基础的知识，在考试前买一些...
答：无需准备，计算机分级考试只不过测试你下你的水平 ，分分班，到时候就轻松地去考就好，跟你以后在学校的具体成绩没关系。我们班大部分的人都是在最低的那个班的啦，从头学起，好准备考国家计算机等级考试。我们班那个考得最好到a班的还不是常常溜到c班看我们上课。因为好像考虑到学生的水平已经比较高...
答：我是在大一下学期考的，也许是学校的制度不一样吧？考试内容是电脑随机给的，要上机的 内容有FrontPage,Access,Excel,PowerPoint,Word,IE,Outlook,在这些里随机出几个。应该会出三个。一定有的是选择题（有单选也有多选），还有5分钟打字。我不知道你的学校会如何要求的，但应该也是这些内容里的 加油哦...
答：120001 天津医学高等专科学校 河西区柳林路14号 60276889 120004 天津师范大学主校区 西青区宾水西道393号天津师范大学主校区博理楼D103 23766024 120007 天津青年职业学院电子工程系（天津团校） 南开区水上公园西路43号综合楼电子工程系 23627632、23671493 120008 天津理工大学计算机科学与技术学院 南开区...
答：考一级就可以啦，在学校报名，学校会摆出来报名的，你报名就可以了，准备好好看上机题吧
答：很多大学是能够直接在大一的时候参加学校考点的四六级的考试的，这个学校会通知的，然后是计算机等级证，你直接在那种网站报名就行了啊，这个是很好考的，稍微准备下，连接一些基本知识就行了。
答：大学生新生入学计算机考试的内容和要求可能会因学校和专业而有所不同。一般来说，这种考试旨在测试学生对基本计算机概念和技能的了解程度。以下是可能出现在新生入学计算机考试中的一些常见内容：1. 计算机基本知识：操作系统、计算机硬件、计算机网络、数据库等基本概念和术语的了解。2. 办公软件应用：如...
答：大一计算机考的是基本的windows系统操作，如新建、复制、剪切、黏贴等，还有word文档的操作。主要是插入、格式、设置等问题，excel表格的相对新手会麻烦一点，难点在公式的计算、此外还有排列、筛选，统计分析图表的比较容易，直接找到相应格式代入即可。ppt的难度也不大，而最后发一封邮件是送分题。常用软件的...
