一、选择题((1)一(20)每小题2分，(21)一(30)每小题3分，共30题，70分)
 下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂
 在答题卡的相应位置上，答在试卷上不得分。
 (1)以下不能在“工程资源管理器”窗口中列出的文件类型是
 A)．bas B)．res C)．fnn D)．ocx
 (2)以下关于窗体的描述中，错误的是
 A)执行UnloadFoMl语句后，窗体Fonnl消失，但仍在内存中
 B)窗体的Ioad事件在加载窗体时发生
 C)当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止
 D)窗体的Height、width属性用于设置窗体的高和宽
 (3)下列可作为V2sualBasic变量名的是
 A)A#A B)4A C)?xY D)constA
 (4)设有如下的记录类型
 Type Student
 numberAs string
 name As String
 age As Integer
 End Type
 则正确引用该记录类型变量的代码是
 A) Student．name=”张红” B) Dim As Student
 s．name＝”张红”
 C) Dim s As Type Student D) Dim s As Type
 S．name=”张红” s.Dame＝”张红”

 (5)函数String(n，“str”)的功能是
 A)把数值型数据转换为字符串
 B)返回由n个字符组成的字符串
 C)从字符串中取出n个字符
 D)从字符串中第n个字符的位置开始取子字符串
 (6)将数学表达式Cos2(a+b)+5e2写成Visual Basic的表达式，其正确的形式是
 A)Cos(a+b)A2十5。exp(2) B)Cos^2(a+b)+5*exp(2)
 C)Cos(a+b)^2十5*ln(2) D)Cos^2(a+b)+5*ln(2)
 (7)在窗体上画一个命令按钮，名称为Commandl。单击命令按钮时，执行如下事件过
 程：
 PrlVate Sub Commandl—C1icko
 a$="software and hardware"
 b$＝Right(a$,8)
 c$=Mid(a$,1，8)
 Msgbox a$,,b$,c$,1
 End Sub
 则在弹出的信息框的标题栏中显示的信息是
 A)softWare and hardware B)software C)hardwafe D)1
 (8)执行如下语句：
 a＝inutBox(”Today”，”TomorroW，”Yesterday”,,,"Day before yesterday"，5)
 将显示一个输入对话框，在对话框的输入区中显示的信息是
 A)Today B)Tomorrow C)Yesterday D)Day before yesterday
 (9)表示滚动条控件取值范围最大值的属性是
 A)Max B)LargeChange C)Value D)Max—Min
 (10)在窗体上画一个名称为Listl的列表框，一个名称为Labell的标签。列表框中显示
 若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。
 下列能正确实现上述功能的程序是
 A) Private Sub listl_Click() B)Private Sub Listl_C1ick()
 Labell．Caption＝list1.listlndex Labell．Nanle＝Listl．listindex
 End Sub ．End Sub
 程序运行后，如果单击命令按钮，则在窗体上显示的内容是
 A)空白 B)错误提示 C)北京 D)上海
 (15)假定有以下函数过程：
 Function Fun(S As String) As String
 Dim s1 As String
 For i=1 To Len(S)
 s1＝UCase(Mid(S，i，1))十s1
 Next i
 Fun＝s1
 End Function
 在窗体上画一个命令按钮，然后编写如下事件过程：
 Prlvate Sub Commmldl_Click()
 Dim Str1 As String，Str2 As String
 Strl＝inputbox(”请输入一个字符串”)
 Str2=Fun(Strl)
 Print Str2
 End Sub
 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确
 定”按钮后在窗体上的输出结果为
 A)abcdefg B)ABCDEFG C)gfedcba D)GFEDCBA
 (16)设有语句
 open "c：\Test．Dat" For OutPut As#1
 则以下错误的叙述是
 A)该语句打开C盘根目录下一个己存在的文件Test．Dat
 B)该语句在C盘根目录下建立一个名为Test．Dat的文件
 C)该语句建立的文件的文件号为1
 D)执行该语句后，就可以通过Print#语句向文件Test．Dat中写入信息
 (17)以下叙述中错误的是
 A)用Shell函数可以调用能够在Windows下运行的应用程序
 B)用Shell函数可以调用可执行文件，也可以调用VisualBasic的内部函数
 C)调用Shell函数的格式应为：<变量名>＝Shell(……)
 D)用Shell函数不能执行DoS命令
 (18)以下关于过程及过程参数的描述中，错误的是
 A)过程的参数可以是控件名称
 B)用数组作为过程的参数时，使用的是“传地址”方式
 c)只有函数过程能够将过程中处理的信息传回到调用的程序中
 D)窗体可以作为过程的参数
 (19)在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：
 Private Sub Txta_KeyPress(keyascii as integer)
 End Sub
 若焦点位于文本框中，则能够触发KeyPress事件的操作是
 A)单击鼠标 B)双击文本框
 C)鼠标滑过文本框 D)按下键盘上的某个键
 (20)目录列表框的Path属性的作用是
 A)显示当前驱动器或指定驱动器上的路径
 B)显示当前驱动器或指定驱动器上的某目录下的文件名
 c)显示根目录下的文件名
 D)只显示当前路径下的文件
 (21)假定有如下事件过程：
 PriVate Sub Form_MouseDown(button As Integer,Shift As Integer, x As Single，Y As
 Single)
 If Button＝2 then
 PopupMenu popForm
 End if
 End Sub
 则以下描述中错误的是
 A)该过程的功能是弹出一个菜单
 B)popForm 是在菜单编辑器中定义的弹出式菜单的名称
 C)参数X、Y指明鼠标的当前位置
 D)Button=2 表示按下的是鼠标左键
 (22)以下能够正确计算n!的程序是
 二级Visual Basic语言程序设计试卷第5页 (共15页)
 A) Private Sub Commandl_ClicK()
 n＝5:x＝1
 Do
 X=x*1
 i＝i十1
 Loop While i＜n
 Print x
 End Sub
 B) Private Sub Commandl_Click()
 n＝5: x＝1：i=1
 Do
 X＝X*1
 i＝i十1
 Loop While i＜n
 Print x
 End Sub
 C)Private Sub Commandl_Click()
 n=5：x＝1：i＝1
 Do
 X=X*1
 i＝i十1
 Loop while i<=n
 Print x
 End Sub
 D)Private Sub Commandl_C1ick()
 n＝5：x＝1：i=1
 Do
 X=X*l
 i=i十1
 loop While i＞n
 Print x
 End Sub
 (23)在窗体上画一个名称为Commandl的命令按钮，再画两个名称分别为Labell、Label2
 的标签，然后编写如下程序代码：
 ． 二级vlsudBM5c语言程序设计试卷第6页 (共15页)
 Private x As Integer
 Private Sub Commandl—Click()
 X＝5：Y＝3
 Call proc(x,Y)
 Labell．Caption＝X
 Label2．Caption＝Y
 End Sub
 Private Sub proc(ByVal a As Integer，ByVal b As hteger)
 x＝a* a
 Y=b十b
 End Sub
 程序运行后，单击命令按钮，则两个标签中显示的内容分别是
 A)5和3 B)25和3 C)25和6 D)5和6
 (24)在窗体上画一个名称为Commandl的命令按钮，一个名称为Labell的标签，然后
 编写如下事件过程：
 Private Sub Commandl_C1ick()
 S＝0
 For i＝1 T0 15
 x＝2*i一1
 1f x Mod 3＝0 Then s＝s十1
 Nexti
 Labell．Caption=s
 End Sub
 ． 程序运行后，单击命令按钮，则标签中显示的内容是
 A)1 B)5 C)27 D)45
 (25)在窗体上画一个名称为Commandl的命令按钮和三个名称分别为Labell、Label2、
 Label3的标签，然后编写如下代码：
 Private x As Integer
 Private Sub Command1_C1ick()
 Static y As Integer
 Dimz As Integer
 n＝10
 z=n十z
 y＝y十z
 X＝X十Z
 Labell.Caption＝x
 Label2．Caption=y
 Label3．Caption＝z
 End Sub
 运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是
 A)10 10 10 B)30 30 30 C)30 30 10 D)10 30 30(26)设在窗体上有一个名称为Commandl的命令按钮，并有以下事件过程：
 PriVate Sub Commandl_C1ick()
 Static b As Variant
 b＝Array(1,3,5,7,9)
 End Sub
 此过程的功能是把数组b中的5个数逆序存放(即排列为9，7，5，3，1)。为实现此功
 能，省略号处的程序段应该是
 A)For i＝0 To 5-1＼2
 tmp＝b(i)
 b(i)＝b(5-i-1)
 b(5-i-1)＝tmp
 Next
 B)for i＝0 To 5
 tmp=b(i)
 b(i)＝b(5-i-1)
 b(5-i-1)=tmp
 Next
 C) For i＝0 T0 5＼2
 tmp＝b(i)
 b(i)＝b(5-i-1)
 b(5-i-1)；tmp
 Next
 D)For i＝1 T0 5＼2
 tmp=b(i)
 b(i)＝b(5一i一1)
 b(5—i—1)＝tmp
 Next
 二级VlsualBM5c语言程序设计试卷第8页 (共15页)
 (27)在窗体上画一个名称为Drivel的驱动器列表框，一个名称为Dirl的目录列表框，
 一个名称为Filel的文件列表框，两个名称分别为Labell、Label2，标题分别为空白
 和“共有文件”的标签。编写程序，使得驱动器列表框与目录列表框、目录列表框
 与文件列表框同步变化，并且在标签Labell中显示当前文件夹中文件的数量。如图
 所示。
 能够正确实现上述功能的程序是
 A) Private Sub Dirl_Change() B)Private Sub Dir1_Change()
 Filel．Path＝Dir1.path Filel.path=dir1．Path
 End Sub End Sub
 Private Sub Drivel_Change() Private Sub Drive1_Change()
 Dirl．Path＝Drivel．Drive Dirl．Path＝Drivel.Drive
 Labell．Caption＝Filel.listCount Labell．Captlon＝file1.list
 End Sub End Sub
 C)Private Sub Dirl_Change() D) Private Sub Dirl_Change()
 Filel．Path=Dirl．Path filel．Path＝Dir1．Path
 Labell．Caption＝Filel．ListCount Labell．Caption＝Filel．List
 End Sub End Sub
 Private Sub Drivel_Change() Private Sub Drivel_Change()
 Dirl．Path＝Drivel．Drlve Dir1．Path＝Drivel．DrlVe
 Labell．Caption＝Filel．ListCount Labell．Caption＝Filel.list
 End Sub End Sub
 (28)一个工程中包含两个名称分别为Forml、Form2的窗体，一个名称为mdlFunc的标准
 模块。假定在Forml、Form2和mdlFunc中分别建立了自定义过程，其定义格式为：
 Forml中定义的过程：
 PriVate Sub frmfunctionl()
 End Sub
 Form2中定义的过程：
 Public Sub frmffunction2()
 End Sub
 mdlFunc中定义的过程：
 PubliC Sub mdlFunction()
 End Sub
 在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是
 A)上述三个过程都可以在工程中的任何窗体或模块中被调用
 B)frmfunction2和mdlfunction过程能够在工程中各个窗体或模块中被调用
 C)上述三个过程都只能在各自被定义的模块中调用
 D)只有mdlFunction过程能够被工程中各个窗体或模块调用(29)窗体上有两个名称分别为Textl、Text2的文本框，一个名称为Commandl的命令
 按钮。运行后的窗体外观如图所示。
 设有如下的类型声明
 Type Person
 name As String*8
 major As String*20
 End Type
 当单击“保存”按钮时，将两个文本框中的内容写入一个随机文件Test29．dat中。设
 文本框中的数据已正确地赋值给Person类型的变量p。则能够正确地把数据写入文件
 的程序段是
 A)0pen”c：＼Test29．dat" For Random As#1
 Put #1，1，p
 Close #1
 B)Open "c:＼Test29.dat" For Random As #1
 Get#1，1，p
 C10se #1
 C)open "c＼Test29．dat" For Random As #1 Len＝Len(p)
 Put #1，1，p
 Close #1
 D)Open "c：＼Test29．dat " For Random As #1=Len(p)
 Get #1，1，p
 CloSe #1
 (30)在窗体上画一个名称为CommonDialogl的通用对话框，一个名称为Commandl的
 命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题
 为"Save"，缺省文件名为“SaveFile”，在“文件类型”栏中显示*.txt。则能够满足
 上述要求的程序是
 A)Private Sub Command_C1ick()
 Commondialogl．FileName=“Savefile”
 Commondialogl.filter＝"All Files|*.*|(*.txt)|*.txt|(*.doc)．|*.doc"
 CommonDialogl．Filterindex=2
 CommonDialogl．Dial0g．title＝"Save"
 CommonDialogl．Action＝2
 End Sub
 B)Private Sub Commandl—Click()
 CommonDialogl．FileName＝"SaveFile"
 CommonDiaLogl．Filter＝"A11 Files|*.*|(*.txt)|*.txt|*．doc|*．doc"
 C0mmonDialogl．FilterIndex＝1
 CommonDialogl．DialogTitle＝"Save"
 CommonDialogl．Action＝2
 End Sub
 C)Private Sub Cmmandl_C1ick()
 COmmonDialogl．FileName＝"Save"
 CommonDialogl．FiLter＝"A11Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc"
 CommonDialogl．Filterindex＝2
 C0mmonDialogl．DialogTitle＝"SaveFile"
 CommonDialogl．Action＝2
 End Sub
 D)Private Sub Commandl_C1ick()
 CommonDialogl．FileName＝"SaveFile"
 CommonDialogl．Filter＝"All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc"
 CommonDialogl．FilterIndex=1
 CommonDialogl．DialogTitle=“Save”
 CommonDialogl．Action＝1
 End Sub
二、填空题(每空2分，共30分)
 请将每空的正确答案写在答题卡[1]一[15序号的横线上，答在试卷上不得分。
 (1)visual Basic中有一种控件组合了文本框和列表框的特性，这种控件是________
 (2)Visual Basic提供的对数据文件的三种访问方式为随机访问方式_____和二进制访问
 方式。
 (3)执行下面的程序段后，变量S的值为_______。
 S＝5
 For i ＝2.6 To 4.9 Step 0.6
 S=S十1
 Next i
 (4)为了在运行时把d:\pic文件夹下的图形文件a.jpg装入图片框Picturel，所使用的语
 句为_______。
 (5)计时器控件能有规律的以一定时间间隔触发_______事件，并执行该事件过程中的
 程序代码。
 (6)以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5整除的
 数并求出它们的和。请填空。
 Private Sub Commandl_C1ick()
 Fori＝1To 20
 x＝Int(____________*200+100)
 If_______[7] ＝0 Then
 Print x
 二级VIsualBMic语言程序设计试卷第12页 (共15页)
 S＝S十 _________ [83
 End If
 Next i
 Print “Sum＝”：S
 End Sub
 (7)设有如下程序
 Private Sub Form_Click()
 Dim a AS Integer，b As integer
 a＝20：b=50
 pla，b
 p2a，b
 p3a,b
 Print"a＝"；a,"b＝"；b
 End Sub
 Sub pl(x As Integer，ByVal y As Integer)
 x=x十10．
 v＝v十20
 End Sub
 Sub p2(byVal x As Integer, y As Integer)
 x＝x十10
 y＝y十20
 End Sub
 Sub p3(ByValx As Integer, ByVal y As Integer)
 x＝x十10
 y=y十20
 End Sub
 该程序运行后，单击窗体，则在窗体上显示的内容是：a＝______和b=______。
 (8)在窗体上画一个名称为Commandl的命令按钮，编写如下事件过程
 PRiVate Sub Commandl_C1icK()
 Dim As String
 a=_____[11]
 For i ＝1 To 5
 Print Space(6—i)；Mid$3(a，6—i，2*i—1)
 二级V1sualBMic语言程序设计试卷第13页 (共15页)
 Nexti
 End Sub
 程序运行后，单击命令按钮，要求窗体上显示的输出结果为
 456
 34567
 2345678
 123456789
 请填空。(9)在窗体上画一个名称为Combo1的组合框，画两个名称分别Label1和Label2及Caption
 属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项
 后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动
 添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项”如图所示；
 如果存在，则在Label2中给出提示“输入项已在组合框中”。请在[12>、[13]和
 [14>处将程序补充完整。
 Private Sub Combol_________<12> (KeyAscii As integer)
 1f KeyAscii＝13 Then
 Fori＝0 To Combo1．listCount—1
 1f Combo1．Text＝______ [13] Ihen
 Label2．Caption＝”输入项己在组合框中”
 ExIt Sub
 End lf
 Next i
 Label2．Caption＝“已成功添加输入项”
 Combo1．______ [14] CombO1．Text
 End lf
 End Sub
 (10)设有如下程序
 Private sub search(a()As variant，ByVal key As Variant，index%)
 Dim I％
 ForI＝LBound(a)To UBound(a)
 If key＝a(I) Then
 index＝I
 Exit Sub
 End If
 Next I
 Index＝-1
 End Sub
 Private Sub Form_Load()
 Show
 Dtm b() As Variant
 Dim n As Integer
 b＝Array(1，3，5，7，9，11，13，15)
 Call search(b，11，n)
 Printt n
 End Sub
 程序运行后，输出结果是________。


2003年4月全国计算机等级考试二级Visual Basic笔试答案

一、选择题
1-5：DADBB 6-10：ACCAD 11-15：DBBDD
16-20：ABCDA 21-25：DCBBC 26-30：CCDCA
二、填空题
(1) 组合框
(2) 顺序访问方式
(3) 9
(4) Picture1.picture=LoadPicture("d:\pic\a.jpg")
(5) Timer
(6) Rnd和x Mod 5和x
(7) 30和70
(8) "123456789"
(9) KeyPress和Combo1.List(i)和AddItem
(10) 5

一、 选择题（（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的代码是
（资料来源：东方教育网 http://www.eastedu.com.cn)
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 End Type
（7）以下声明语句中错误的是
A）Const var1=123 B）Dim var2 = 'ABC'
C）DefInt a-z D）Static var3 As Integer
（8）设窗体上有一个列表框控件List1，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是
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）LOF D）EOF
（13）如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是
A）如果工程中含有Sub Main过程，则程序一定首先执行该过程
B）不能把标准模块设置为启动模块
C）用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体
D）任何时刻最多只有一个窗体是活动窗体
（14）窗体的MouseDown事件过程
Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
有4个参数，关于这些参数，正确的描述是
A）通过Button参数判定当前按下的是哪一个鼠标键
B）Shift参数只能用来确定是否按下Shift键
C）Shift参数只能用来确定是否按下Alt和Ctrl键
D）参数x,y用来设置鼠标当前位置的坐标
（15）设组合框Combo1中有3个项目，则以下能删除最后一项的语句是
A）Combo1.RemoveItem Text
B）Combo1.RemoveItem 2
C）Combo1.RemoveItem 3
D）Combo1.RemoveItem Combo1.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 Len = 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, s As 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）在窗体上画两个滚动条，名称分别为Hscroll1 、Hscroll2；六个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label 4~ Label6分别显示"A"、"B"、"A*B"等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值，Label3 显示A*B的计算结果。如图所示。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮"计算"时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是
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 Then m = 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_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
（资料来源：东方教育网 http://www.eastedu.com.cn)
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, x As 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
程序运行后，如果直接按键盘上的"A"键（即不按住Shift键），则在窗体上输出的字符分别是 〖3〗 和 〖4〗 。
（3）在窗体上画一个标签（名称为Label1）和一个计时器（名称为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）在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：
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）在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Command1和Label1，通过属性窗口把列表框中的项目设置为："第一个项目"、"第二个项目"、"第三个项目"、"第四个项目"。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图所示(选择"第三个项目"的情况)。下面是实现上述功能的程序，请填空。
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)
（资料来源：东方教育网 http://www.eastedu.com.cn)
〖12〗 = arr1(1)
For i = 1 To 8
If arr1(i) > Max Then 〖13〗
Next i
Print "最大值是: "; Max
End Sub
以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。
（7）以下程序的功能是：把当前目录下的顺序文件smtext1.txt的内容读入内存，并在文本框Text1中显示出来。请填空。
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)

(2) 以下能在窗体Form1的标题栏中显示“VisualBasic窗体"的语句是
A) Form1.Name="VisualBasic窗体"
B) Form1.Title="VisualBasic窗体"
C) Form1.Caption="VisualBasic窗体"
D) Form1.Text="VisualBasic窗体”

(3) 在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为0和100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如图所示：

以下能实现上述操作的程序段是
A) Private Sub HScroll_Change()
Text1.Text=HScroll1.Value
End Sub
B) Private Sub HScroll_Click()
Text1.Text=HScroll1.Value
End Sub
C) Private Sub HScroll_Change()
Text1.Text=HScroll.Caption
D) Private Sub HScroll_Click()
Text1.Text=HScroll.Caption
End Sub

(4) 设菜单中有一个菜单项为"Open"。若要为该菜单命令设计访问键，即按下Alt及字母O时，能够执行"Open"命令，则在菜单编辑器中设置“Open"命令的方式是
A) 把Caption属性设置为&Open
B) 把Caption属性设置为O&pen
C) 把Name属性设置为&Open
D) 把Name属性设置为O&pen

(5) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
x=InputBox("Input")
Select Case x
Case 1,3
Print "分支 1"
Case Is >4
Print "分支 2"
Case Else
Print "Else 分支 "
End Select
End Sub
程序运行后，如果在输入对话框中输入2，则窗体上显示的是
A） 分支1 B） 分支2 C） Else分支 D) 程序出错

(6) 以下关于MsgBox的叙述中，错误的是
A） MsgBox函数返回一个整数
B) 通过MsgBox函数可以设置信息框中图标和按钮的类型
C) MsgBox语句没有返回值
D) MsgBox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数量

(7)在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是
A）Timer1.InterVal=0.5 B) Timer1.Interval=5
C) Timer.Interval=50 D) Timer1.Interval=500

(8) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Static x As Integer
Cls
For i=1 To 2
y=y+x
x=x+2
Next
Print x,y
End Sub
程序运行后，连续三次单击Command1按钮后，窗体上显示的是
A) 4 2 B) 12 18 C) 12 30 D) 4 6

(9) 以下关于多重窗体程序的叙述中，错误的是
A)用Hide方法不但可以隐藏窗体，而且能清除内存中的窗体
B）在多重窗体程序中，各窗体的菜单是彼此独立的
C）在多重窗体程序中，可以根据需要指定启动窗体
D）对于多重窗体程序中，而且单独保存每个窗体

(10)以下关于文件的叙述中，错误的是
A）顺序文件中的记录一个接一个地顺序存放
B）随机文件中记录的长度是随机的
C）执行打开文件的命令后，自动生成一个文件指针
D）LOF函数返回给文件分配的字节数

(11) 以下叙述中错误的是
A）事件过程是响应特定事件的一段程序
B）不同的对象可以具有相同名称的方法
C）对象的方法是执行指定操作的过程
D）对象事件的名称可以由编程者指定

(12) 以下合法的Visual Basic标识符是
A) ForLoop B) Const C) 9abc D) a#x

(13) 当一个复选框被选中时，它的Value属性的值是
A) 3 B) 2 C) 1 D) 0

(14) 表达式 5 Mod 3+3\5*2的值是
A) 0 B) 2 C)4 D) 6

(15) 设x=4,y=8,z=7，以下表达式的值是
x<y And (Not y>z) Or z<x
A) 1 B) -1 C) True D) False

(16) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
a$="VisualBasic"
Print String(3,a$)
End Sub
程序运行后，单击命令按钮，在窗体上显示的内容是
A） VVV B) Vis C) sic D) 11

(17) 设有如下程序段：
x=2
For i=1 To 10 Step 2
x=x+i
Next
运行以上程序后，x的值是
A) 26 B) 27 C) 38 D) 57

(18) 以下叙述中错误的是
A) 在KeyPress事件过程中不能识别键盘的按下与释放
B) 在KeyPress事件过程中不能识别回车键
C) 在KeyDown和KeyUp事件过程中，将键盘输入的"A"和"a"视作相同的字母
D) 在KeyDown和KeyUp事件过程中，从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符
资料来源：东方教育网全国计算机等级考试频道 Http://www.eastedu.com.cn
(19) 执行如下两条语句，窗体上显示的是
a=9.8596
Print Format(a,"$00,00.00")
A) 0,009.86 B) $9.86 C) 9.86 D) $0,009.86

(20)在窗体上画一个名称为CommandDialog1
的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程：
Private Sub Command1_Click()
CommonDialog1.FileName =""
CommonDialog1.Filter="All
file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt"
CommonDialog1.FilterIndex=2
CommonDialog1.DialogTitle="VBTest"
CommonDialog1.Action=1
End Sub
资料来源：东方教育网全国计算机等级考试频道 Http://www.eastedu.com.cn
对于这个程序，以下叙述中错误的是
A） 该对话框被设置为“打开”对话框
B） 在该对话框中指定的默认文件名为空
C） 该对话框的标题为VBTest
D） 在该对话框中指定的默认文件类型为文本文件(*.Txt)

(21)
设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下：
Private Sub Command1_Click()
Dim a As Integer
a=10
Call g(Form2,a)
End Sub
Private Sub g(f As Form,x As Integer)
y=IIf(x>10,100,-100)
f,Show
f.Caption=y
End Sub
运行以上程序，正确的结果是
A) Form1的Caption属性值为100 B) Form2的Caption属性值为-100
C) Form1的Caption属性值为-100 D) Form2的Caption属性值为100

(22)在窗体上画一个名称为Command1的命令按钮，并编写如下程序：
Private Sub Command1_Click()
Dim x As Integer
Static y As Integer
x=10
y=5
Call f1(x,y)
Print x,y
End Sub
Private Sub f1(ByRef x1 As Integer, y1 As Integer)
x1=x1+2
y1=y1+2
End Sub
程序运行后，单击命令按钮，在窗体上显示的内容是
A) 10 5 B) 12 5 C) 10 7 D) 12 7

(23)设有如下程序
Option Base 1
Private Sub Command1_Click()
Dim a(10) As Integer
Dim n As Integer
n=InputBox("输入数据")
If n<10 Then
Call GetArray(a,n)
End If
End Sub
Private Sub GetArray(b() As Integer,n As Integer)
Dim c(10) As Integer
j=0
For i=1 To n
b(i)=CInt(Rnd()*100)
If b(i)/2=b(i)\2 Then
j=j+1
c(j)=b(i)
End If
Next
Print j
End Sub
以下叙述中错误的是
A） 数组b中的偶数被保存在数组c中
B） 程序运行结束后，在窗体上显示的是c数组中元素的个数
C） GetArray过程的参数n是按值传送的
D） 如果输入的数据大于10，则窗体上不显示任何显示

(24)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_Click()
Dim a
a= Array(1,2,3,4,5)
For i=1 To UBound(a)
a(i) = a(i)+i-1
Next
Print a(3)
End Sub
程序运行后，单击命令按钮，则在窗体上显示的内容是
A) 4 B) 5 C) 6 D)7

(25)阅读程序
Option Base 1
Private Sub Form_Click()
Dim arr,Sum
Sum = 0
arr = Array(1,3,5,7,9,11,13,15,17,19)
For i=1 To 10
If arr(i)/3 = arr(i)\3 Then
Sum =Sum+arr(i)
End If
Next i
Print Sum
End Sub
程序运行后，单击窗体，输入结果为
A）13 B）14 C）27 D） 15

(26)在窗体上画一个名称为File1的文件列表框，并编写如下程序：
Private Sub File1_DblClick()
x=Shell(File1.FileName,1)
End Sub
以下关于该程序的叙述中，错误的是
A) x没有实际作用，因此可以将该语句写为：Call Shell(File1,FileName,1)
B)双击文件列表框中的文件，将触发该事件过程
C)要执行的文件的名字通过File1.FileName指定
D）File1中显示的是当前驱动器、当前目录下的文件
(27)
在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500,如图所示。
编写如下程序：

Private Sub Form_Load()
Timer1.Enabled=False
End Sub
Private Sub Command1_Click()
Timer1.Enabled=True
End Sub

Private Sub Timer1_Timer()
If Label1.Left<Width Then
Label1.Left = Label1.Left + 20
Else
Label1.Left=0
End If
End Sub
程序运行后，单击“开始”按钮，标签在窗体中移动。
对于这个程序，以下叙述中错误的是
A) 标签的移动方向为自右向左
B）单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动
C) 当标签全部移出窗体后，将从窗体的另一端出现并重新移动
D）标签按指定的时间时隔移动

(28)执行以下程序段
a$="abbacddcba"
For i=6 To 2 Step -2
X=Mid(a,i,i)
Y=Left(a,i)
z=Right(a,i)
z=UCase(X&Y&z)
Next i
Print z
输出结果为
A)ABA B）BBABBA C)ABBABA D)AABAAB

(29)在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click()
Dim a As Variant
a=Array(1,2,3,4,5)
Sum=0
For i=1 To 5
Sum = sum+a(i)
Next i
x=Sum/5
For i =1 To 5
If a(i)>x Then Print a(i);
Next i
End Sub
资料来源：东方教育网全国计算机等级考试频道 Http://www.eastedu.com.cn
程序运行后，单击命令按钮，在窗体上显示的内容是
A）1 2 B） 1 2 3 C) 3 4 5 D） 4 5
(30)假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。
Model1代码如下：
Public x As Integer
Public y As Integer
Sub S1()
x =1
S2
End Sub
Sub S2()
y=10
Form1.Show
End Show

Model2的代码如下：
Sub Main()
S1
End Sub
其中Sub Main被设置为启动过程。程序运行后，各模块的执行顺序是
A） Form1->Model1->Model2
B) Model1->Model2->Form1
C) Model2->Model1->Form1
D） Model2->Form1->Model1

二、填空题(每空2分，共30分)
请将每空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。
(1) 设有如下程序段：
a$="BeijingShanghai"
b$=Mid(a$,InStr(a$,"g")+1)
执行上面的程序段后，变量b$的值为__1__。

(2) 以下程序段的输出结果是____2___。
num =0
While num<=2
num = num+1
Wend
Print num
(3)
窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。

Private Sub Form_Load()
For i=1 To 100
If i Mod 7 =0 Then
_3___
End If
Next
End Sub

Private Sub Command1_Click()
Sum =0
For i=0 To__4___
Sum =Sum+__5_____
Next
Text1.Text=Sum
End Sub

(4)
本程序的功能是利用随机数函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于一次投币，1代表正面，0代表反面。在窗体上有三个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图所示。程序运行后，在文本框Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空。

Private Sub Command1_Click()
Randomize
n=CInt(Text1.Text)
n1=0
n2=0
For i=1 To__6__
r=Int(Rnd*2)
If r=___7____Then
n1=n1+1
Else
n2=n2+1
End If
Next
Text2.Text=n1
Text3.Text=n2
End Sub

(5) 阅读程序：
Option Base 1
Private Sub Form_Click()
Dim a(3) As Integer
Print "输入的数据是：";
For i=1 To 3
a(i)=InputBox("输入数据")
Print a(i);
Next
Print
If a(1)<a(2) Then
t=a(1)
a(1)=a(2)
a(2)=___8___
End If
If a(2)>a(3) Then
m=a(2)
ElseIf a(1)>a(3) Then
m=___9___
Else
m=__10___
End If
Print "中间数是：";m
End Sub

程序运行后，单击窗体，在输入对话框中分别输入三个整数，程序将输出三个数中的中间数，如图所示。请填空。

(6)
在窗体上画一个名称为“Command1”，标题为“计算”的命令按钮，再画7个标签，其中5个标签组成名称为Label1的控件数组;名称为Label2的标签用于显示计算结果，其Caption属性的初始值为空;标签Label3的标题为“计算结果”。运行程序时会自动生成5个随机数，分别显示在标签控件数组的各个标签中，如图所示。单击“计算”按钮，则将标签数组各元素的值累加，然后计算结果显示在Label2。请填空。

Private Sub Command1_Click()
Sum = 0
For i=0 To 4
Sum=Sum+__11__
Next
___12__=Sum
End Sub

(7)
在窗体上画两个名称分别为Command1和Command2、标题分别为“初始化”和“求和”的命令按钮。程序运行后，如果单击“初始化”命令按钮，则对数组a的各元素赋值;如果单击“求和”命令按钮，则求出数组a的各元素之和，并在文本框中显示出来，如图所示。请填空。

Option Base 1
Dim a(3,2) As Integer

Private Sub Command1_Click()
For i=1 To 3
For j=1 To 2
__13__=i+j
Next j
End Sub

Private Sub Command2_Click()
For j=1 To 3
For i=1 To 2
s=s+__14__
Next i
Next j
Text1.Text= __15__
End Sub

参考答案：
一、选择题（(1)—(20)每小题2分，(21)—(30)每小题2分，共70分）
(1)－(10)　　BCAAC DDBAB
(11)－(20)　 DACBD ABBDD
(21)－(30)　 BDCBC AABDC
二、填空题(每空2分，共30分)
1、(1)"Shanghai"
2、（2）3
3、（3）list1.additem i 　 (4) list1.listcount-1 (5) list1.list(i)
4、（6）n 　　　 　(7) 1
5、（8）t 　　　　 　(9) a(3) (10) a(1)
6、（11）label1(i).caption (12) label2.caption
7、（13）a(i,j) 　　 (14) a(j,i) 　　　 (15) s

    慢慢的长大，自己的专业也是和老师是背道而驰的，所以，从来没有想过自己由一天会踏上当初理想中的岗位。然而，社会告诉我，世事是变幻的，并不会以你个人的主观意识为转移的。当我对它已经没有任何希望的时候，突然，有一天，我就变成了其中之一。

    于是，开始作为神圣的一员，开始站在三尺讲台上，开始做几千几百年被人们所讴歌的燃烧自己，照亮别人的蜡烛。

    可是，当你身处其中的时候，才发现，现实和想想是有天壤之别的。我们小时候把老师当父母的那种年代已经一去不复返了。

    每个班里，都会有成绩好，人品好的孩子。但是，相应的，也会有成绩差，人品差的孩子。当然，最多的还是处在中段的孩子，就是什么都一般般的孩子。

    这是大家心中默认的事实。

    有一段时间，我也是这么认为的。

    但是，后来，我发现不是这样的。

    所谓的成绩好，人品好，就像是稀缺物品一样的罕见，当然不是指没有。但是，这样的孩子真的很多。究其原因，我觉得是，绝大多数的原因是：成绩好，所以觉得自己高人一等。成绩好，觉得那是自己的天分，觉得那是自己的勤奋，好像和你们老师没有什么关系。懂得感激老师的学生，好少。

    而成绩差，人品差的，有么？有。但是，如果你愿意去接近他们，你会发现孩子的心灵是那么的纯净，容不下一点点的龌龊。孩子的心灵是那么的脆弱，不容许你一点点的伤害。他们变差，大人，你们一定是有责任的。成绩差了，太多的责备，太多的鄙视，为什么不去鼓励他，安慰他，激励他呢？人品差，有没有想过，你是不是一味的以成绩来衡量他呢？有没有想过，当他需要你的帮助的时候，你伸出援手了么？有没有想过，当他想要和你倾诉的时候，你是不是忙于应付工作的压力而没有和他倾心交谈呢？或许你会说，因为我要挣钱，要养家糊口，要为他创造更为优渥的生活。

    不是这样的。

    事实上，孩子需要你的关心胜过你给他的一切物质享受。不信，那请你每天倾听一下他的心声。以一个朋友的身份给予你的关心，看看，他是不是还是成绩差，人品差的孩子！

    现在，我接触到好多的孩子，不管是那一种，他们都不愿意和你讲话，除非是不得不讲的时候。这是什么原因呢？

    记得刚开学的时候，发生了这样一件事情：我一节课马上结束了，当铃声响的时候，我正在宣布下课，与此同时，听到有一个女生骂人的声音很清晰的传入我的耳中，虽然声音不大，但是很刺耳，真的。或许是因为我还是比较的传统，认为女孩子更应该比男孩要求要高，要自爱。所以，下课后，我把她叫到身边，为了让她能够没有顾忌的告诉我事实，我没有把她叫到办公室，而是在回办公室的路上。这样，她比较的放松，而我，也没有违反谈话的规定，因为旁观者有许多，只是听不到内容而已。

    刚开始，不管我说什么，她终归不开口。但是，后来，她告诉了我原因，或许是因为我的诚意、我的真心感动了她，打开了她的心门吧！我说，不管发生了什么事情，开口骂人终归是不对的。她说，是因为同学先骂她的，所以她才...我说那你可以告诉老师啊，告诉班主任啊，让她处理啊。她说，老师不会相信她的。我问为什么？她说因为我在老师心中是一个坏孩子！这对我的心造成了很大的冲击，为什么？为什么要给一个这么小的孩子冠上这样子的帽子啊？所以，所以我当时心里很激动，告诉她：老师相信你，以后，你有事情可以来找我，我会帮助你的！

    是的，她，她的班主任告诉过我，不好的。

    其实，孩子是没有错的。

    现在，每次在路上碰到，她都会主动问我好，在以前，那是想都想不到的。相信其他老师还是不相信的。

    昨天，去他们班，终于看到了她，因为前几天她的手受了伤，没有来学校。她看到我，朝我笑了一下。我知道，虽然只是笑了一下，但是，这是发自真心的微笑。我的心释然了，因为她不是坏孩子，不是差生。她和每一个同学是一样的。

    最后，希望她能获得更多老师和他人的关爱！

    我相信：只要用你的真心，一定能换来他人的真心。