计算机等级考试二级VB全真模拟试题
一、选择题：35题，2分/题，共70分
下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。
1.当运行程序时，系统自动执行启动窗体的某个事件过程。这个事件过程是（ ）
A)Load B)Click C)Unload D)GotFocus
2.无论何控件，都具有一个共同属性。这个属性是（ ）
A)Text B)Font C)Name D)Caption
3.在一行内写多条语句时，语句之间要用某个符号分隔。这个符号是（ ）
A)， B)； C)、 D)：
4.表达式3∧2*2+3 MOD 10\4的值是（ ）
A)18 B)1 C)19 D)0
5.下面的变量名合法的是（ ）
A)k_name B)k ame C)name D)k-name
6.设有如下变量声明Dim time1 As Date,为变量time1正确赋值的表达式是（ ）
A)time1 = #11:34:04 # B)time1 = Format(Time,"yy:mm:dd")
C)time1 = #"11:34:04"# D)time1 = Format("hh:mm:ss",Time)
7.表达式12000 + "129" & 200的值是（ ）
A)12329 B)"12129200" C)"12000129200" D)"12329"
8.若设a = 4,b = 5,则下列表达式值为真的是（ ）
A)(True+a)>0 And b>10 B)a>b Or b>10-a
C)(False-b< 0) Eqv (a>b) D)a>b Xor b+3>5
9.当窗体上的文字或图形被覆盖或最小化后能恢复原貌，需要设置窗体的属性是（ ）
A)Appearance B)Visible C)Enable D)Autoredraw
10.在窗体上画一个名称为Command1的命令按钮，编写以列程序：
Private Sub Command1_Click( )
Dim a As Integer
Static b As Integer
a = a + b
b = b + 4
Print a,b
End Sub
程序运行后，单击该命令按钮三次，屏幕上显示的值是（ ）
A)4 12 B)0 4 C)4 8 D)8 12
11.Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是（ ）
A)属性、控件和方法 B)属性、事件和方法
C)窗体、控件和过程 D)控件、过程和模块
12.下列程序段错误的是（ ）
A)Dim a As Integer
a = array(1,2,3,4)
B)Dim a(),b()
a = array(1,2,3,4):b = a
C)Dim a As Variant
a = array(1,"asd",true)
D)Dim a() As Variant
a = array(1,2,3,4)
13.表达式String(1,"I am student") + Replace("am harass","rass","ppy") & "!"的值是（ ）
A)"I am happy!" B)"I am student I am s am harass studentam happy!"
C)"I am student am harass!" D)"I am student am happy!"
14.下列程序段中，能正常结束循环的是（ ）
A)I = 1
Do
I = I + 2
Loop Until I = 10
B)I = 5
Do
I = I + 1
Loop Until I < 0
C)I = 10
Do
I = I + 1
Loop Until I > 0
D)I = 6
Do
I = I - 2
Loop Until I = 1
15.引用列表框（List1）最后一个数据项应使用的表达式是（ ）
A)List1.List(List1.ListCount) B)List1.List(List1.ListCount-1)
C)List1.List(ListCount) D)List1.List(ListCount-1)
16.有如下程序：
Option Base 1
Private Sub Command1_Click()
Dim x,y(3,3)
x = Array(1,2,3,4,5,6,7,8,9)
For i = 1 To 3
For j = 1 To 3
y(i,j) = x(i*j)
If(j > = i) Then Print y(i,j);
Next j
Print
Next i
End Sub
运行时输入出的结果是（ ）
A)1 2 3
2 4 6
4 6 8
B)1 2 3
2 4 6
3 6 9
C)1
2 4
3 6 9
D)1 2 3
4 6
9
17.在窗体上画一个名称为Command1的命令按钮，编写如下程序：
Private Sub Command1_Click()
Print pl(3,7)
End Sub
Public Function pl(x As Single,n As Integer) As Single
If n=0 Then
pl=1
Else
If n Mod 2=1 Then
pl=x*x+n
Else
P1=x*x-n
End If
End If
End Function
程序运行后，单击该命令按钮，屏幕上显示的结果是（ ）
A)2 B)1 C)0 D)16
18.以下属性和方法中，可重定义坐标系的是（ ）
A)DrawStyle属性 B)DrawWidth属性 C)Scale方法 D)ScaleMode属性
19.在窗体上画一个文本框，然后编写如下事件过程：
Private Sub Form_Load()
Text1.Text = ""
Text1.SetFocus
For i = 1 To 5
Sum = Sum +i
Next i
Text1.text = Sum
End Sub
上述程序的运行结果是（ ）
A)在文本框中输出15 B)在文本框中输出0
C)在文本框中输出不定值 D)出错
20.已知x代表某个百分制成绩，下列程序段用于显示对应的五级制成绩，正确的是（ ）
A)If x > = 60 Then
Print "及格"
ElseIf x > = 70 Then
Print "中"
ElseIf x > = 80 Then
Print "良"
ElseIf x > = 90 Then
Print "优"
Else
Print "不及格"
End If
B)If x < 90 Then
Print "良"
ElseIf x < 80 Then
Print "中"
ElseIf x < 70 Then
Print "及格"
ElseIf x < 60 Then
Print "不及格"
Else
Print "优"
End If
C)If x > = 90 Then
Print "优"
ElseIf x > = 80 Then
Print "良"
ElseIf x > = 70 Then
Print "中"
ElseIf x > = 60 Then
Print "及格"
Else
Print "不及格"
End If
D)Select Case x
Case x > = 90
Print "优"
Case x > = 80
Print "良"
Case x > = 70
Print "中"
Case x > = 60
Print "及格"
Case Else
Print "不及格"
End Select
21.下面说法不正确的是( )
A)滚动条的重要事件是Change和Scroll
B)框架的主要作用是将控件进行分组，以完成各自相对独立的功能
C)组合框是组合了文本框和列表框的特性而形成的一种控件
D)计时器控件可以通过对Visible属性的设置，在程序运行期间显示在窗体上
22.在窗体上画一个名称为Check1复选框，在程序运行的过程中，若选中复选框，则Check1.value的值是（ ）
A)True B)2 C)0 D)1
23.在下列关于菜单的说法中，错误的是（ ）
A)每一个菜单项都是一个控件，与其他控件一样都有自己的属性和事件
B)除了Click事件之外，菜单项还能响应其他的如 DblClick等事件过程
C)菜单项的快捷键不可以任意设置
D)在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择
24.下面关于多重窗体的叙述中，正确的是（ ）
A)作为启动对象的Main 子过程只能放在窗体模块内
B)如果启动对象是Main 子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否
加载窗体或加载哪一个窗体
C)没有启动窗体，程序不能执行
D)以上都不对
25.与键盘操作有关的事件有KeyPress、KeyUp和KeyDown事件，当用户按上并且释放一个键后，这三个事件发生的顺序是（ ）
A)KeyDown、KeyPress、KeyUp B)KeyDown、KeyUp、KeyPress
C)KeyPress、KeyDown、、KeyUp D)没有规律
26.要从磁盘上读入一个文件名为"c:\filel.txt"的顺序文件，下面程序段正确的是（ ）
A)F="c:\filel.txt"
Open F For Input As # 1
B)F="c:\filel.txt"
Open "F" For Input As # 2
C)Open "c:\filel.txt" For Output As # 2
D)Open c:\filel.txt For Input As # 1
27.下列关于过程叙述不正确的是（ ）
A)过程的传值调用是将实参的具体值传值递给形参
B)过程的传址调用是将实参在内存的地址传递给形参
C)过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的
D)无论过程传值调用还是过程传址调用，参数传递都是双向的
28.执行了下面程序后，组合框中数据项的值是（ ）
Private Sub Form_Click()
For i=1 to 6
Combo1.AddItem i
Next i
For i= 1 to 3
Combo1.RemoveItem i
Next i
End Sub
A)1 5 6 B)1 3 5 C)4 5 6 D)2 4 6
29.若在Shape 控件内以FillStyle属性所指定的图案填充区域，而填充图案的线条颜色由FillColor属性指定，非线条的区域由Back Color属性填充，则应（ ）
A)将Shape控件的FillSte属性设置为2至7间的某个值，BackStyle属性设置为1
B)将 Shape控件的FillSte属性设置为0或1，BackStyle属性设置为1
C)将Shape控件的FillSte属性设置为2至7间的某个值，BackStyle属性设置为0
D)将Shape控件的FillSte属性设置为0或1，BackStyle属性设置为0
30.下列程序的执行结果是（ ）
Private Sub Form_Activate()
Dim score(3) As Integer, total As Integer
Dim aa_score As Variant
score(1)=50: score(2) =14：score(3)=36
tota=0: i=0
For Each aa_score In score
i=i+1
total=tota + aa+_score
Print i,aa_score,total
Next
End Sub
A)1 0 0
2 50 50
3 14 64
4 36 100
B)1 50 50
2 14 64
3 36 100
C)0 50 50
1 14 64
2 36 100
D)0 0 0
1 50 50
2 14 64
3 36 100
31.在Activate 事件过程中，写入下面的程序：
Option Base 1
Private Sub Form_Activate()
Dim t As Integer
Dim a( ) As Variant
a=Array (2,4,6,8,10,1,3,5,7,9)
For i=1 to 10\2
t= a(i)
a(i)=a(10 - i + 1)
a(10 - i + 1)=t
Next i
For j= 1 to 10
Print a(j);
Next j
End Sub
运行程序后，显示的结果是（ ）
A)2 4 6 8 10 1 3 5 7 9 B)1 3 5 7 9 2 4 6 8 10
C)9 7 5 3 1 10 8 6 4 2 D)10 8 6 4 2 9 7 5 3 1
32.在Activate 事件过程中，写入下面的程序：
Private Sub Form _Activate()
Dim S As String, a As String, b As String
a= "*" : b =" $ "
For i= 1 to 4
If i / 2= Int(i / 2) Then
S=String(Len (a)+i , b)
Else
S=String(Len(a) + i, a)
End If
Print S;
Next i
End Sub
运行程序后，显示结果是（ ）
A)$ $ ***$ $ $ $ ***** B)*$ $ **$ $ ***$ $ $ ****$ $ $ $
C)**$ $ $ ****$ $ $ $ $ D)$ *$ $ **$ $ $ ***$ $ $ $ ****
33.在窗体上设置相应的控件，并在代码窗口编写下列程序：
Printe Sub Form_Click()
Dim a As Long ,b As Long
a=InputBox("请输入若干个整数")
Call P(a,b)
Print b
End Sub
Private Sub P(x As Long, y As Long)
Dim n As Integer, j As String*1, s As String
k=Len(Trim(Str(x)))
s=""
For i= K To 1 Step -1
j=Mid(x,i,1)
s=s+j
Next i
y=Val(s)
End Sub
运行程序，在InputBox框中输入123456,然后单击"确定"按钮，则输出结果是（ ）
A)123456 B)654321 C)135246 D)246135
34.设定文本框内的文字内容是否允许修改的属性是（ ）
A)Text B)Locked C)PasswordChar D)Multiline
35.要建立一个学生成绩的随机文件，如下定义了学生的记录类型，由学号、姓名、三门课程成绩（百分制）组成，下列程序段正确的是（ ）
A)Type studl
no As Integer
name AS String
score(1 to 3) As Single
End Type
B)Type studl
no As Integer
name As String *10
score() As Single
End Type
C)Type studl
no As Integer
name As String *10
score(1 to 3) As Stngle
End Type
D)Type studl
no As Integer
name As String
score(1 to 3) As String
End Type
二、填空：每空2分，共30分。
1.有一图书查询系统，当在组合框中选择书名后，则在两个文本框中显示出作者和出版社，程序运行后的界面如图2-1所示，当单击"结束"按钮时，结束程序。程序中有一个组合框、两个文本框、三个标签及一个命令按钮。请________处填入适当的内容，将程序补充完整。
Dim k As Integer
dim author(),b_concern
Privage Sub Combol_Click()
Dim n As Integer
n=Combol.ListIndex
Text(1)= ________
Text(2)= ________
End Sub
Private Sub Combol_Click()
________
End Sub
Private Sub Form_Load()
Combol.AddItem"哭泣的骆驼"
Combol.AddItem"双城记"
Combol.AddItem"窗外"
Combol.AddItem"红与黑"
Combol.AddItem"废都"
author()=Array("三毛"，"荻更斯"，"琼瑶"，"司汤达、"贾平凹")
b_concern()=Array("作家"，"商务"，"香江文艺"，"外国文学"、"上海")
End Sub
2.在窗体上画一个名称为Timer1的计时器和一个名称为Label1的标签。当运行程序后，将在标签中显示当前时间的数字时钟（包括时：分：秒）。程序运行后的结果如图2-2所示。请在________处填入适当的内容，将程序补充完整。
Private Sub Form_Load()
Timer1.Interval=1000
End Sub
Private Sub Timer1_timer()
________
End Sub
3.在刚建立工程时，使窗体上的所有控件具有区别于默认值的相同的字体格式，应对________的________属性进行设置。
4.整形变量M中存放了一个两位数，要将两位数交换位置，例如24变成42，实现的表达式为________
5.下列程序运行时，当单击窗体后，从键盘输入一个字符，判断该字符是字母字符、数字字符还是其他字符，并做相应的显示。窗体上无任何控件，并禁用Asc和Chr函数，Select Case 语句中禁用枚举值。请在________处填入适当的内容，将程序补充完整。
Private Sub Form_Load()
Dim x As String*1
X=________（"请输入单个字符"，"字符"）
Select Case UCase（________）
Case ________
Print X+"是字母字符"
Case ________
Print X+"是数字字符"
Case Else
Print X+"是其他字符"
End Select
End Sub
6.下列程序为求Sn=a+aa+aaa+……+aa…a（n个a），其中a为一个随机数产生的1~9（包括1、9）中的一个正整数，n是一个随机数产生的5~10（包括5、10）中的一个正整数，请在________处填入适当的内容，将程序补充完整。
Private Sub Form_Load（）
Dim a As Integer,n As Integer, S As Double,Sn As Double
a=Fix(9*Rnd)+1
n=Fix(6*Rnd)+5
Sn=0
S=0
For i=1 to ________
S=S+a*10^(i-1)
________
print Sn
Next i
End Sub
7.如果菜单标题的某个字母前输入一个"________"符号，那么该字母就成了热键字母；如果建立菜单时在标题文本框中输入一个"________；_________"，那么显示时将形成一行分隔符。
计算机等级考试二级VB全真模拟试题答案
一、选择题：
1.A 2.C 3.D 4.C 5.A 6.A 7.B 8.D 9.D 10.D 11.B
12.A 13.A 14.C 15.B 16.D 17.D 18.C 19.D 20.C 21.D 22.D
23.B 24.B 25.A 26.A 27.D 28.D 29.A 30.A 31.C 32.C 33.B
34.B 35.C
二、填空题
1: author(n) ；b_concerm(n) ；End
2: Labell.Caption=Time
3: Form窗体 、 Font
4:((M mod 10)*10 + M\10)
5: InputBox; X"A"To"z" "0"To"9"
6: n；Sn = Sn + S
7: & 、 - 、 _
全国计算机等级考试二级VB考试大纲
基本要求
1. 熟悉Visual Basic集成开发环境。
2. 了解Visual Basic中对象的概念和事件驱动程序的基本特性。
3. 了解简单的数据结构和算法。
4. 能够编写和调试简单的Visual Basic程序。
考试内容
一、 Visual Basic程序开发环境
1. Visual Basic的特点和版本。
2. Visual Basic的启动与退出。
3. 主窗口：
（1） 标题和菜单。
（2） 工具栏。
4. 其它窗口：
（1）窗体设计器和工程资源管理器。
（2）属性窗口和工具箱窗口。
二、对象及其操作
1.对象：
（1）Visual Basic的对象。
（2）对象属性设置。
2.箱体：
（1）窗体的结构与属性。
（2）窗体事件。
3.控件：
（1）标准控件。
（2）控件的命名和控件值。
4.控件的画法和基本操作。
5.事件驱动。
三、数据类型及运算
1.数据类型：
（1）基本数据类型。
（2）用户定义的数据类型。
（3）枚举类型。
2.常量和变量：
（1）局部变量和全局变量。
（2）变体类型变量。
（3）缺省声明。
3.常用内部函数。
4.运算符和表达式：
（1）算术运算符。
（2）关系运算符和逻辑运算符。
（3）表达式的执行顺序。
四、数据输入输出
1.数据输出：
（1）Print方法。
（2）与Print方法有关的函数
（Tab、Spc、Space $ ）。
（3）格式输出（Format $ ）。
2.InputBox函数。
3.MsgBox函数和MsgBox语句。
4.字形。
5.打印机输出：
（1）直接输出。
（2）窗体输出。
五、常用标准控件
1.文本控件：
（1）标签。
（2）文本框。
2.图形控件：
（1）图片框、图象框的属性、事件和方法。
（2）图形文件的装入。
（3）直线和形状。
3.按钮控件。
4.选择控件：复选框和单选按钮。
5.选择控件：列表框和组合框。
6.滚动条。
7.记时器。
8.框架。
9.焦点和Tab顺序。
六、控制结构
1.选择结构：
（1）单行结构条件语句。
（2）块结构条件语句。
（3）IIf函数。
2.多分支结构。
3.For循环控制结构。
4.当循环控制结构。
5.Do 循环控制结构。
6.多重循环。
7.GoTo型控制：
（1）GoTo语句
（2）On-GoTo语句。
七、数组
1.数组的概念：
（1）数组的定义。
（2）静态数组和动态数组。
2.数组的基本操作：
（1）数组元素的输入、输出和复制。
（2）ForEach…Next语句。
（3）数组的初始化。
3.控件数组。
八、过程
1.Sub过程：
（1）Sub过程的建立。
（2）调用Sub过程。
（3）调用过程和事件过程。
2.Funtion过程：
（1）Funtion过程的定义。
（2）调用Funtion过程。
3.参数传送：
（1）形参与实参。
（2）引用。
（3）传值。
（4）数组参数的传送。
4.可选参数和可变参数。
5.对象参数：
（1）窗体参数。
（2）控件参数。
九、菜单和对话框
1.用菜单编辑器建立菜单。
2.菜单项的控制：
（1）有效性控制。
（2）菜单项标记。
（3）键盘选择。
3.菜单项的增减。
4.弹出式对话框。
5.通用对话框。
6.文件对话框。
7.其它对话框（颜色、字体、打印对话框）。
十、多重窗体与环境应用
1. 建立多重窗体程序。
2. 多重窗体程序的执行与保存
3. Visual Basic工程结构：
（1）标准模块
（2）窗体模块。
（3）SubMain过程。
4.闲置循环与DoEvents语句。
十一、键盘与鼠标事件过程
1. KeyPress事件。
2. KeyDown事件和KeyUp事件。
3. 鼠标事件。
4. 鼠标光标。
5. 拖放。
十二、数据文件
1. 文件的结构与分类。
2. 文件操作语句和函数。
3. 顺序文件：
（1）顺序文件的写操作。
（2）顺序文件的读操作。
4. 随机文件。
（1） 随机文件的打开与读写操作。
（2） 随机文件中记录的添加与删除。
（3） 用控件显示和修改随机文件。
5. 文件系统控件：
（1） 动器列表框和目录列表框。
（2） 文件列表框。
6. 文件基本操作。
考试方式
1. 笔试：90分钟。
2. 上机操作：90分钟。
上机操作包括：
（1） 基本操作。
（2） 简单应用。
（3） 综合应用。
提醒等级考试二级VB考机试注意事项
1、开考之前，先运行一下vb和看一下输入法是否符合自己的习惯。另外，最好设置文件显示扩展名，考试的时候可以打开文件夹方便看一下存盘是否正确，有时会有生成文件，也可去看一下文件是否生成正确。
2、记得保存一份试题目录中的所有文件，以免出错或去掉注释符后自己都不知道自己改了什么。
3、注意一些算法：排序、素数、九九表、指针转动等。
4、注意大题中上半年新出现的随机文件。
5、别忘了做不出来的时候有MSDN，联机帮助这是允许的。但你没有用过的话可能一时摸不着门道，可能浪费时间，自己把握好啊。
6、调试程序的时候可以自己设变量显示中间值看正不正确，可以用print,msgbox，正常后记得去掉多余的语句。
7、出现异常应该举手报告监考老师，他们有各种密码，包括抽题密码、重抽密码和延时密码。
VB6.0初学者的10个编程小技巧
1、如果一行程序太长，能不能换行？ VB的程序代码是允许换行书写的，只要在每次换行的最后一个字符加上换行字符"_"就可以了。例如： Sub PicMove() Frm.Picture2.Left = Frm.Picture1.Left + _ '加上换行符 Frm.Picture1.Width End Sub
2、 如何在设计的时候清空存在的图片？ 用鼠标点中该图片，在属性窗口中选中Picture属性，按Del键便可清空图片。
3、 Visual Basic 如何注释一段较长程序代码？ VB注释程序代码的符号是"注释："，只要在某行程序前面加上"注释："，就可以注释该行程序。但如果程序代码很长的时候，一行一行地注释令人觉得难以忍受。VB本身提供了这个功能，在主菜单"视图"选项的"工具栏"下，选中Edit，VB的界面会出现一排工具按钮，其中的手形图标按钮后的两个按钮用于"设置注释块"和"解除注释块"。
4、怎么实现鼠标一移上去就出现小提示窗口的功能？ VB 里每个控件都有ToolTipText属性，只要加上一行程序就可以了。 例如：Label1.ToolTipText = "这是提示！"。
5、 如何获得当前软件的运行磁盘目录和命令行参数？ VB里面有个系统对象叫App。App.Path就是当前软件的运行目录。而命令行参数存放在一个系统变量里面，叫Command。程序语句如下： Label1.Caption=App.Path Label2.Caption=Command$
6、我想换掉鼠标显示的形状，怎么做？ VB提供的系统控件一般都有MousePointer和MouseIcon属性。我们可以寻找自己喜欢的*.ICO,*.CUR文件，实现的程序如下： Screen.MousePointer= 99 '用户鼠标类型 Screen.MouseIcon=LoadPicture("C:\ABC\1.ICO") '读取鼠标的图标文件
7、如何设置程序的错误出口？ On Error语句用于程序的错误出口处理。一般的处理方??琯?? ?ǎ????趨? 法有两种： 1) 遇到错误跳转到某一行程序去执行，On Error GoTo someline。 例如： On Error GoTo ERR_LINE ... Label1.Caption="正确执行" ERR_LINE: ... Label1.Caption="出错了！" 2) 遇到错误之后忽略当前错误，继续执行，On Error Resume Next。 例如： On Error Resume Next ... Label1.Caption="不管对不对都要执行" ...
8、怎样获得键盘输入和判断敲键的Ascii值？ 把窗体的KeyPreview属性设置成True，然后在Form_KeyPress 事件里编写程序代码如下： Private Sub Form_KeyPress(KeyAscii As Integer) Me.Caption = Str(KeyAscii) '取得键盘输入的字符 ... End Sub
9、我希望窗体一运行就在屏幕的中央，怎么实现？ VB的系统对象Screen记录了当前显示模式的高度和宽度，可以利用这个值来设置窗体的位置。 Sub CenterForm(frm As Form) '定义过程 frm.Move (Screen.width - frm.width) \ 2, (Screen.Height - frm.Height) \ 2 End Sub Private Sub Form_Load() CenterForm Me '调用过程 End Sub
10、很多软件都有鼠标在文本框TextBox一按下，就选中所有文字的功能，是怎么实现的？ Private Sub Text1_GotFocus() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) '过程调用 End Sub
计算机等级考试二级VB常用函数解析
p=ABS(X):取X的绝对值.
p=Log(X):求X的自然对数.
Y=Sgn(X):符号函数.
说明: X>0时Y=1;X=0时 Y=0;X<0 时Y=-1.
例: Response.write sgn(5)
输出: 1
Sin(x),Cos(x), Tan(x),Atn(x): 三角函数
Ctype(x):类型转换:
P=Cbool(x) 把X转成"布尔"值
P=Cbyte(X) 字节
P=Ccur(x) 金额
P=Cdatel(x) 日期
P=Cintl(x) 双精度
P=CDbl(x) 整型
P=Clng(x) 长整型
P=Csng(X) 单精度
P=Cstr(x) 字符串
例:Response.write CDbl(#1/1/1900#)
结果: 2
注意:True :-1 False: 0
日期: #12/30/1899# 为 0 ,每往后 1 日数值加1 .每往前1日数值减 1
Int (x) :取<=X的整数值
Fix(X) :取X的整数部分,直接去掉小数部分.
Response.Write Int(-54.6)
结果为:-55 .取<=-54.6的最大整数.
Response.Write Int(54.6)
结果: 54.
Response.Write Fix(54.6)
结果: 54
Response.Write Fix(-54.6)
结果: -54
Asc(X) :返回字符串的第一个字符的字符码。
Chr(X): 返回字符码X的字符.
P=Asc("A") p=65
P=Chr(65) p=A
10．Filter : 查找字符串数组的特定字符串。
P=Filter(X,S[,Include[,Compare]])
参数X为一字符串数组，而参数S则是欲查找的字符串，调用之后，凡是X数组元素中含有字符串S者都会组合在一起成为另一个字符串数组，然后返回。Filter 也可以把查找之后，把不含S字符串的数组元素挑出来，此时参数三Include应当设置成False. 如果要不分大小写查找，则Compare 设置为 vbTextCompare.
例：
ReDimX(2)
X(0)="KJDFS" : X(1)="WANDFKJ" : X(2)="fsda"
V=Filter(X,"kj",false)
结果: V(0)="fsda"
11 Instr(x,y) 从X第一个字符起找出Y出现的位置
12 Instr(n,x,y)从X第N个字符起找出Y出现的位置.
在X中找到Y,则返回值是Y的第一个字符出现的位置.
若N>字符串长度,或X为空字符串,或在X中找不到Y,都返回0.
若Y为空字符串,则返回N.
InStrRev 倒过来寻找字符串.
P=InStrRev(c,s[,n[,compare]])
从字符串X的后面往前找,若找到,则返回S字符串在字符中的位置.
N为从第几个字符开始寻找,设置compare ,可以不区分大小写的寻找.
13 Join(x[,d]) 将字符串数组合成一个字符串.
参数X是一个字符串数组,调用JOIN后,X的所有字符串元素将串在一起组合成一个字符串,然后返回.
D参数用来指定分隔字符.
X=Array("da","fdsa","fdas")
P=Join(X,",")
P="da,fdsa,dsas"
Len(X):计算字符串X的长度.
空字符长度为0,空格也算一个字符,中方虽然占用2bytes,但也算一个字符.
14, Left(X,n):返回字符串X左边n 个字符。
若N=0，则返回空字符串，若n>=Len(X)，则返回整个字符串。
15，Mid(X,n):由X的第N个字符起，读取后面的所有字符。
Mid(X,n,m):由X的第n个字符起，读起m个字符。
若n>Len(X),则返回空字符串，若第n个字符以后不足m个字符，则返回后面的所有字符。
16．Ltrim(X),Rtrim(X),Trim(X) :去掉空字符。
Ltrim(x) 去掉X左边的所有字符。
trim(x) 去掉X左右边的所有字符
Rtrim(x) 去掉X右边的所有字符。
字符与字符间的空格不会被去掉。
X=Ltrim(" This is good ")
结果：X="This is good "
X=Trim(" This si good ")
结果:X="This is good"
17.Right(X,n):返回字符串X右边N个字符。
P=Replace(X,S,R)
将字符串X中的字符串S替换成为字符串R，然后返回。
X="asp is good"
P=Replace(X,good,nice)
P="asp is nice"
Space(n) :返回N个空格所组成的字符串，
P=Space(n,X) :返回N个X的第一个字符所组成的字符串。
X可以是字符串，也可以是字符码。
18，Split:将字符串侵害成字符串数组。 P=Split(S[,d])
一、选择题：35题，2分/题，共70分
下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。
1.当运行程序时，系统自动执行启动窗体的某个事件过程。这个事件过程是（ ）
A)Load B)Click C)Unload D)GotFocus
2.无论何控件，都具有一个共同属性。这个属性是（ ）
A)Text B)Font C)Name D)Caption
3.在一行内写多条语句时，语句之间要用某个符号分隔。这个符号是（ ）
A)， B)； C)、 D)：
4.表达式3∧2*2+3 MOD 10\4的值是（ ）
A)18 B)1 C)19 D)0
5.下面的变量名合法的是（ ）
A)k_name B)k ame C)name D)k-name
6.设有如下变量声明Dim time1 As Date,为变量time1正确赋值的表达式是（ ）
A)time1 = #11:34:04 # B)time1 = Format(Time,"yy:mm:dd")
C)time1 = #"11:34:04"# D)time1 = Format("hh:mm:ss",Time)
7.表达式12000 + "129" & 200的值是（ ）
A)12329 B)"12129200" C)"12000129200" D)"12329"
8.若设a = 4,b = 5,则下列表达式值为真的是（ ）
A)(True+a)>0 And b>10 B)a>b Or b>10-a
C)(False-b< 0) Eqv (a>b) D)a>b Xor b+3>5
9.当窗体上的文字或图形被覆盖或最小化后能恢复原貌，需要设置窗体的属性是（ ）
A)Appearance B)Visible C)Enable D)Autoredraw
10.在窗体上画一个名称为Command1的命令按钮，编写以列程序：
Private Sub Command1_Click( )
Dim a As Integer
Static b As Integer
a = a + b
b = b + 4
Print a,b
End Sub
程序运行后，单击该命令按钮三次，屏幕上显示的值是（ ）
A)4 12 B)0 4 C)4 8 D)8 12
11.Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是（ ）
A)属性、控件和方法 B)属性、事件和方法
C)窗体、控件和过程 D)控件、过程和模块
12.下列程序段错误的是（ ）
A)Dim a As Integer
a = array(1,2,3,4)
B)Dim a(),b()
a = array(1,2,3,4):b = a
C)Dim a As Variant
a = array(1,"asd",true)
D)Dim a() As Variant
a = array(1,2,3,4)
13.表达式String(1,"I am student") + Replace("am harass","rass","ppy") & "!"的值是（ ）
A)"I am happy!" B)"I am student I am s am harass studentam happy!"
C)"I am student am harass!" D)"I am student am happy!"
14.下列程序段中，能正常结束循环的是（ ）
A)I = 1
Do
I = I + 2
Loop Until I = 10
B)I = 5
Do
I = I + 1
Loop Until I < 0
C)I = 10
Do
I = I + 1
Loop Until I > 0
D)I = 6
Do
I = I - 2
Loop Until I = 1
15.引用列表框（List1）最后一个数据项应使用的表达式是（ ）
A)List1.List(List1.ListCount) B)List1.List(List1.ListCount-1)
C)List1.List(ListCount) D)List1.List(ListCount-1)
16.有如下程序：
Option Base 1
Private Sub Command1_Click()
Dim x,y(3,3)
x = Array(1,2,3,4,5,6,7,8,9)
For i = 1 To 3
For j = 1 To 3
y(i,j) = x(i*j)
If(j > = i) Then Print y(i,j);
Next j
Next i
End Sub
运行时输入出的结果是（ ）
A)1 2 3
2 4 6
4 6 8
B)1 2 3
2 4 6
3 6 9
C)1
2 4
3 6 9
D)1 2 3
4 6
9
17.在窗体上画一个名称为Command1的命令按钮，编写如下程序：
Private Sub Command1_Click()
Print pl(3,7)
End Sub
Public Function pl(x As Single,n As Integer) As Single
If n=0 Then
pl=1
Else
If n Mod 2=1 Then
pl=x*x+n
Else
P1=x*x-n
End If
End If
End Function
程序运行后，单击该命令按钮，屏幕上显示的结果是（ ）
A)2 B)1 C)0 D)16
18.以下属性和方法中，可重定义坐标系的是（ ）
A)DrawStyle属性 B)DrawWidth属性 C)Scale方法 D)ScaleMode属性
19.在窗体上画一个文本框，然后编写如下事件过程：
Private Sub Form_Load()
Text1.Text = ""
Text1.SetFocus
For i = 1 To 5
Sum = Sum +i
Next i
Text1.text = Sum
End Sub
上述程序的运行结果是（ ）
A)在文本框中输出15 B)在文本框中输出0
C)在文本框中输出不定值 D)出错
20.已知x代表某个百分制成绩，下列程序段用于显示对应的五级制成绩，正确的是（ ）
A)If x > = 60 Then
Print "及格"
ElseIf x > = 70 Then
Print "中"
ElseIf x > = 80 Then
Print "良"
ElseIf x > = 90 Then
Print "优"
Else
Print "不及格"
End If
B)If x < 90 Then
Print "良"
ElseIf x < 80 Then
Print "中"
ElseIf x < 70 Then
Print "及格"
ElseIf x < 60 Then
Print "不及格"
Else
Print "优"
End If
C)If x > = 90 Then
Print "优"
ElseIf x > = 80 Then
Print "良"
ElseIf x > = 70 Then
Print "中"
ElseIf x > = 60 Then
Print "及格"
Else
Print "不及格"
End If
D)Select Case x
Case x > = 90
Print "优"
Case x > = 80
Print "良"
Case x > = 70
Print "中"
Case x > = 60
Print "及格"
Case Else
Print "不及格"
End Select
21.下面说法不正确的是( )
A)滚动条的重要事件是Change和Scroll
B)框架的主要作用是将控件进行分组，以完成各自相对独立的功能
C)组合框是组合了文本框和列表框的特性而形成的一种控件
D)计时器控件可以通过对Visible属性的设置，在程序运行期间显示在窗体上
22.在窗体上画一个名称为Check1复选框，在程序运行的过程中，若选中复选框，则Check1.value的值是（ ）
A)True B)2 C)0 D)1
23.在下列关于菜单的说法中，错误的是（ ）
A)每一个菜单项都是一个控件，与其他控件一样都有自己的属性和事件
B)除了Click事件之外，菜单项还能响应其他的如 DblClick等事件过程
C)菜单项的快捷键不可以任意设置
D)在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择
24.下面关于多重窗体的叙述中，正确的是（ ）
A)作为启动对象的Main 子过程只能放在窗体模块内
B)如果启动对象是Main 子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否
加载窗体或加载哪一个窗体
C)没有启动窗体，程序不能执行
D)以上都不对
25.与键盘操作有关的事件有KeyPress、KeyUp和KeyDown事件，当用户按上并且释放一个键后，这三个事件发生的顺序是（ ）
A)KeyDown、KeyPress、KeyUp B)KeyDown、KeyUp、KeyPress
C)KeyPress、KeyDown、、KeyUp D)没有规律
26.要从磁盘上读入一个文件名为"c:\filel.txt"的顺序文件，下面程序段正确的是（ ）
A)F="c:\filel.txt"
Open F For Input As # 1
B)F="c:\filel.txt"
Open "F" For Input As # 2
C)Open "c:\filel.txt" For Output As # 2
D)Open c:\filel.txt For Input As # 1
27.下列关于过程叙述不正确的是（ ）
A)过程的传值调用是将实参的具体值传值递给形参
B)过程的传址调用是将实参在内存的地址传递给形参
C)过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的
D)无论过程传值调用还是过程传址调用，参数传递都是双向的
28.执行了下面程序后，组合框中数据项的值是（ ）
Private Sub Form_Click()
For i=1 to 6
Combo1.AddItem i
Next i
For i= 1 to 3
Combo1.RemoveItem i
Next i
End Sub
A)1 5 6 B)1 3 5 C)4 5 6 D)2 4 6
29.若在Shape 控件内以FillStyle属性所指定的图案填充区域，而填充图案的线条颜色由FillColor属性指定，非线条的区域由Back Color属性填充，则应（ ）
A)将Shape控件的FillSte属性设置为2至7间的某个值，BackStyle属性设置为1
B)将 Shape控件的FillSte属性设置为0或1，BackStyle属性设置为1
C)将Shape控件的FillSte属性设置为2至7间的某个值，BackStyle属性设置为0
D)将Shape控件的FillSte属性设置为0或1，BackStyle属性设置为0
30.下列程序的执行结果是（ ）
Private Sub Form_Activate()
Dim score(3) As Integer, total As Integer
Dim aa_score As Variant
score(1)=50: score(2) =14：score(3)=36
tota=0: i=0
For Each aa_score In score
i=i+1
total=tota + aa+_score
Print i,aa_score,total
Next
End Sub
A)1 0 0
2 50 50
3 14 64
4 36 100
B)1 50 50
2 14 64
3 36 100
C)0 50 50
1 14 64
2 36 100
D)0 0 0
1 50 50
2 14 64
3 36 100
31.在Activate 事件过程中，写入下面的程序：
Option Base 1
Private Sub Form_Activate()
Dim t As Integer
Dim a( ) As Variant
a=Array (2,4,6,8,10,1,3,5,7,9)
For i=1 to 10\2
t= a(i)
a(i)=a(10 - i + 1)
a(10 - i + 1)=t
Next i
For j= 1 to 10
Print a(j);
Next j
End Sub
运行程序后，显示的结果是（ ）
A)2 4 6 8 10 1 3 5 7 9 B)1 3 5 7 9 2 4 6 8 10
C)9 7 5 3 1 10 8 6 4 2 D)10 8 6 4 2 9 7 5 3 1
32.在Activate 事件过程中，写入下面的程序：
Private Sub Form _Activate()
Dim S As String, a As String, b As String
a= "*" : b =" $ "
For i= 1 to 4
If i / 2= Int(i / 2) Then
S=String(Len (a)+i , b)
Else
S=String(Len(a) + i, a)
End If
Print S;
Next i
End Sub
运行程序后，显示结果是（ ）
A)$ $ ***$ $ $ $ ***** B)*$ $ **$ $ ***$ $ $ ****$ $ $ $
C)**$ $ $ ****$ $ $ $ $ D)$ *$ $ **$ $ $ ***$ $ $ $ ****
33.在窗体上设置相应的控件，并在代码窗口编写下列程序：
Printe Sub Form_Click()
Dim a As Long ,b As Long
a=InputBox("请输入若干个整数")
Call P(a,b)
Print b
End Sub
Private Sub P(x As Long, y As Long)
Dim n As Integer, j As String*1, s As String
k=Len(Trim(Str(x)))
s=""
For i= K To 1 Step -1
j=Mid(x,i,1)
s=s+j
Next i
y=Val(s)
End Sub
运行程序，在InputBox框中输入123456,然后单击"确定"按钮，则输出结果是（ ）
A)123456 B)654321 C)135246 D)246135
34.设定文本框内的文字内容是否允许修改的属性是（ ）
A)Text B)Locked C)PasswordChar D)Multiline
35.要建立一个学生成绩的随机文件，如下定义了学生的记录类型，由学号、姓名、三门课程成绩（百分制）组成，下列程序段正确的是（ ）
A)Type studl
no As Integer
name AS String
score(1 to 3) As Single
End Type
B)Type studl
no As Integer
name As String *10
score() As Single
End Type
C)Type studl
no As Integer
name As String *10
score(1 to 3) As Stngle
End Type
D)Type studl
no As Integer
name As String
score(1 to 3) As String
End Type
二、填空：每空2分，共30分。
1.有一图书查询系统，当在组合框中选择书名后，则在两个文本框中显示出作者和出版社，程序运行后的界面如图2-1所示，当单击"结束"按钮时，结束程序。程序中有一个组合框、两个文本框、三个标签及一个命令按钮。请________处填入适当的内容，将程序补充完整。
Dim k As Integer
dim author(),b_concern
Privage Sub Combol_Click()
Dim n As Integer
n=Combol.ListIndex
Text(1)= ________
Text(2)= ________
End Sub
Private Sub Combol_Click()
________
End Sub
Private Sub Form_Load()
Combol.AddItem"哭泣的骆驼"
Combol.AddItem"双城记"
Combol.AddItem"窗外"
Combol.AddItem"红与黑"
Combol.AddItem"废都"
author()=Array("三毛"，"荻更斯"，"琼瑶"，"司汤达、"贾平凹")
b_concern()=Array("作家"，"商务"，"香江文艺"，"外国文学"、"上海")
End Sub
2.在窗体上画一个名称为Timer1的计时器和一个名称为Label1的标签。当运行程序后，将在标签中显示当前时间的数字时钟（包括时：分：秒）。程序运行后的结果如图2-2所示。请在________处填入适当的内容，将程序补充完整。
Private Sub Form_Load()
Timer1.Interval=1000
End Sub
Private Sub Timer1_timer()
________
End Sub
3.在刚建立工程时，使窗体上的所有控件具有区别于默认值的相同的字体格式，应对________的________属性进行设置。
4.整形变量M中存放了一个两位数，要将两位数交换位置，例如24变成42，实现的表达式为________
5.下列程序运行时，当单击窗体后，从键盘输入一个字符，判断该字符是字母字符、数字字符还是其他字符，并做相应的显示。窗体上无任何控件，并禁用Asc和Chr函数，Select Case 语句中禁用枚举值。请在________处填入适当的内容，将程序补充完整。
Private Sub Form_Load()
Dim x As String*1
X=________（"请输入单个字符"，"字符"）
Select Case UCase（________）
Case ________
Print X+"是字母字符"
Case ________
Print X+"是数字字符"
Case Else
Print X+"是其他字符"
End Select
End Sub
6.下列程序为求Sn=a+aa+aaa+……+aa…a（n个a），其中a为一个随机数产生的1~9（包括1、9）中的一个正整数，n是一个随机数产生的5~10（包括5、10）中的一个正整数，请在________处填入适当的内容，将程序补充完整。
Private Sub Form_Load（）
Dim a As Integer,n As Integer, S As Double,Sn As Double
a=Fix(9*Rnd)+1
n=Fix(6*Rnd)+5
Sn=0
S=0
For i=1 to ________
S=S+a*10^(i-1)
________
print Sn
Next i
End Sub
7.如果菜单标题的某个字母前输入一个"________"符号，那么该字母就成了热键字母；如果建立菜单时在标题文本框中输入一个"________；_________"，那么显示时将形成一行分隔符。
计算机等级考试二级VB全真模拟试题答案
一、选择题：
1.A 2.C 3.D 4.C 5.A 6.A 7.B 8.D 9.D 10.D 11.B
12.A 13.A 14.C 15.B 16.D 17.D 18.C 19.D 20.C 21.D 22.D
23.B 24.B 25.A 26.A 27.D 28.D 29.A 30.A 31.C 32.C 33.B
34.B 35.C
二、填空题
1: author(n) ；b_concerm(n) ；End
2: Labell.Caption=Time
3: Form窗体 、 Font
4:((M mod 10)*10 + M\10)
5: InputBox; X"A"To"z" "0"To"9"
6: n；Sn = Sn + S
7: & 、 - 、 _
全国计算机等级考试二级VB考试大纲
基本要求
1. 熟悉Visual Basic集成开发环境。
2. 了解Visual Basic中对象的概念和事件驱动程序的基本特性。
3. 了解简单的数据结构和算法。
4. 能够编写和调试简单的Visual Basic程序。
考试内容
一、 Visual Basic程序开发环境
1. Visual Basic的特点和版本。
2. Visual Basic的启动与退出。
3. 主窗口：
（1） 标题和菜单。
（2） 工具栏。
4. 其它窗口：
（1）窗体设计器和工程资源管理器。
（2）属性窗口和工具箱窗口。
二、对象及其操作
1.对象：
（1）Visual Basic的对象。
（2）对象属性设置。
2.箱体：
（1）窗体的结构与属性。
（2）窗体事件。
3.控件：
（1）标准控件。
（2）控件的命名和控件值。
4.控件的画法和基本操作。
5.事件驱动。
三、数据类型及运算
1.数据类型：
（1）基本数据类型。
（2）用户定义的数据类型。
（3）枚举类型。
2.常量和变量：
（1）局部变量和全局变量。
（2）变体类型变量。
（3）缺省声明。
3.常用内部函数。
4.运算符和表达式：
（1）算术运算符。
（2）关系运算符和逻辑运算符。
（3）表达式的执行顺序。
四、数据输入输出
1.数据输出：
（1）Print方法。
（2）与Print方法有关的函数
（Tab、Spc、Space $ ）。
（3）格式输出（Format $ ）。
2.InputBox函数。
3.MsgBox函数和MsgBox语句。
4.字形。
5.打印机输出：
（1）直接输出。
（2）窗体输出。
五、常用标准控件
1.文本控件：
（1）标签。
（2）文本框。
2.图形控件：
（1）图片框、图象框的属性、事件和方法。
（2）图形文件的装入。
（3）直线和形状。
3.按钮控件。
4.选择控件：复选框和单选按钮。
5.选择控件：列表框和组合框。
6.滚动条。
7.记时器。
8.框架。
9.焦点和Tab顺序。
六、控制结构
1.选择结构：
（1）单行结构条件语句。
（2）块结构条件语句。
（3）IIf函数。
2.多分支结构。
3.For循环控制结构。
4.当循环控制结构。
5.Do 循环控制结构。
6.多重循环。
7.GoTo型控制：
（1）GoTo语句
（2）On-GoTo语句。
七、数组
1.数组的概念：
（1）数组的定义。
（2）静态数组和动态数组。
2.数组的基本操作：
（1）数组元素的输入、输出和复制。
（2）ForEach…Next语句。
（3）数组的初始化。
3.控件数组。
八、过程
1.Sub过程：
（1）Sub过程的建立。
（2）调用Sub过程。
（3）调用过程和事件过程。
2.Funtion过程：
（1）Funtion过程的定义。
（2）调用Funtion过程。
3.参数传送：
（1）形参与实参。
（2）引用。
（3）传值。
（4）数组参数的传送。
4.可选参数和可变参数。
5.对象参数：
（1）窗体参数。
（2）控件参数。
九、菜单和对话框
1.用菜单编辑器建立菜单。
2.菜单项的控制：
（1）有效性控制。
（2）菜单项标记。
（3）键盘选择。
3.菜单项的增减。
4.弹出式对话框。
5.通用对话框。
6.文件对话框。
7.其它对话框（颜色、字体、打印对话框）。
十、多重窗体与环境应用
1. 建立多重窗体程序。
2. 多重窗体程序的执行与保存
3. Visual Basic工程结构：
（1）标准模块
（2）窗体模块。
（3）SubMain过程。
4.闲置循环与DoEvents语句。
十一、键盘与鼠标事件过程
1. KeyPress事件。
2. KeyDown事件和KeyUp事件。
3. 鼠标事件。
4. 鼠标光标。
5. 拖放。
十二、数据文件
1. 文件的结构与分类。
2. 文件操作语句和函数。
3. 顺序文件：
（1）顺序文件的写操作。
（2）顺序文件的读操作。
4. 随机文件。
（1） 随机文件的打开与读写操作。
（2） 随机文件中记录的添加与删除。
（3） 用控件显示和修改随机文件。
5. 文件系统控件：
（1） 动器列表框和目录列表框。
（2） 文件列表框。
6. 文件基本操作。
考试方式
1. 笔试：90分钟。
2. 上机操作：90分钟。
上机操作包括：
（1） 基本操作。
（2） 简单应用。
（3） 综合应用。
提醒等级考试二级VB考机试注意事项
1、开考之前，先运行一下vb和看一下输入法是否符合自己的习惯。另外，最好设置文件显示扩展名，考试的时候可以打开文件夹方便看一下存盘是否正确，有时会有生成文件，也可去看一下文件是否生成正确。
2、记得保存一份试题目录中的所有文件，以免出错或去掉注释符后自己都不知道自己改了什么。
3、注意一些算法：排序、素数、九九表、指针转动等。
4、注意大题中上半年新出现的随机文件。
5、别忘了做不出来的时候有MSDN，联机帮助这是允许的。但你没有用过的话可能一时摸不着门道，可能浪费时间，自己把握好啊。
6、调试程序的时候可以自己设变量显示中间值看正不正确，可以用print,msgbox，正常后记得去掉多余的语句。
7、出现异常应该举手报告监考老师，他们有各种密码，包括抽题密码、重抽密码和延时密码。
VB6.0初学者的10个编程小技巧
1、如果一行程序太长，能不能换行？ VB的程序代码是允许换行书写的，只要在每次换行的最后一个字符加上换行字符"_"就可以了。例如： Sub PicMove() Frm.Picture2.Left = Frm.Picture1.Left + _ '加上换行符 Frm.Picture1.Width End Sub
2、 如何在设计的时候清空存在的图片？ 用鼠标点中该图片，在属性窗口中选中Picture属性，按Del键便可清空图片。
3、 Visual Basic 如何注释一段较长程序代码？ VB注释程序代码的符号是"注释："，只要在某行程序前面加上"注释："，就可以注释该行程序。但如果程序代码很长的时候，一行一行地注释令人觉得难以忍受。VB本身提供了这个功能，在主菜单"视图"选项的"工具栏"下，选中Edit，VB的界面会出现一排工具按钮，其中的手形图标按钮后的两个按钮用于"设置注释块"和"解除注释块"。
4、怎么实现鼠标一移上去就出现小提示窗口的功能？ VB 里每个控件都有ToolTipText属性，只要加上一行程序就可以了。 例如：Label1.ToolTipText = "这是提示！"。
5、 如何获得当前软件的运行磁盘目录和命令行参数？ VB里面有个系统对象叫App。App.Path就是当前软件的运行目录。而命令行参数存放在一个系统变量里面，叫Command。程序语句如下： Label1.Caption=App.Path Label2.Caption=Command$
6、我想换掉鼠标显示的形状，怎么做？ VB提供的系统控件一般都有MousePointer和MouseIcon属性。我们可以寻找自己喜欢的*.ICO,*.CUR文件，实现的程序如下： Screen.MousePointer= 99 '用户鼠标类型 Screen.MouseIcon=LoadPicture("C:\ABC\1.ICO") '读取鼠标的图标文件
7、如何设置程序的错误出口？ On Error语句用于程序的错误出口处理。一般的处理方??琯?? ?ǎ????趨? 法有两种： 1) 遇到错误跳转到某一行程序去执行，On Error GoTo someline。 例如： On Error GoTo ERR_LINE ... Label1.Caption="正确执行" ERR_LINE: ... Label1.Caption="出错了！" 2) 遇到错误之后忽略当前错误，继续执行，On Error Resume Next。 例如： On Error Resume Next ... Label1.Caption="不管对不对都要执行" ...
8、怎样获得键盘输入和判断敲键的Ascii值？ 把窗体的KeyPreview属性设置成True，然后在Form_KeyPress 事件里编写程序代码如下： Private Sub Form_KeyPress(KeyAscii As Integer) Me.Caption = Str(KeyAscii) '取得键盘输入的字符 ... End Sub
9、我希望窗体一运行就在屏幕的中央，怎么实现？ VB的系统对象Screen记录了当前显示模式的高度和宽度，可以利用这个值来设置窗体的位置。 Sub CenterForm(frm As Form) '定义过程 frm.Move (Screen.width - frm.width) \ 2, (Screen.Height - frm.Height) \ 2 End Sub Private Sub Form_Load() CenterForm Me '调用过程 End Sub
10、很多软件都有鼠标在文本框TextBox一按下，就选中所有文字的功能，是怎么实现的？ Private Sub Text1_GotFocus() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) '过程调用 End Sub
计算机等级考试二级VB常用函数解析
p=ABS(X):取X的绝对值.
p=Log(X):求X的自然对数.
Y=Sgn(X):符号函数.
说明: X>0时Y=1;X=0时 Y=0;X<0 时Y=-1.
例: Response.write sgn(5)
输出: 1
Sin(x),Cos(x), Tan(x),Atn(x): 三角函数
Ctype(x):类型转换:
P=Cbool(x) 把X转成"布尔"值
P=Cbyte(X) 字节
P=Ccur(x) 金额
P=Cdatel(x) 日期
P=Cintl(x) 双精度
P=CDbl(x) 整型
P=Clng(x) 长整型
P=Csng(X) 单精度
P=Cstr(x) 字符串
例:Response.write CDbl(#1/1/1900#)
结果: 2
注意:True :-1 False: 0
日期: #12/30/1899# 为 0 ,每往后 1 日数值加1 .每往前1日数值减 1
Int (x) :取<=X的整数值
Fix(X) :取X的整数部分,直接去掉小数部分.
Response.Write Int(-54.6)
结果为:-55 .取<=-54.6的最大整数.
Response.Write Int(54.6)
结果: 54.
Response.Write Fix(54.6)
结果: 54
Response.Write Fix(-54.6)
结果: -54
Asc(X) :返回字符串的第一个字符的字符码。
Chr(X): 返回字符码X的字符.
P=Asc("A") p=65
P=Chr(65) p=A
10．Filter : 查找字符串数组的特定字符串。
P=Filter(X,S[,Include[,Compare]])
参数X为一字符串数组，而参数S则是欲查找的字符串，调用之后，凡是X数组元素中含有字符串S者都会组合在一起成为另一个字符串数组，然后返回。Filter 也可以把查找之后，把不含S字符串的数组元素挑出来，此时参数三Include应当设置成False. 如果要不分大小写查找，则Compare 设置为 vbTextCompare.
例：
ReDimX(2)
X(0)="KJDFS" : X(1)="WANDFKJ" : X(2)="fsda"
V=Filter(X,"kj",false)
结果: V(0)="fsda"
11 Instr(x,y) 从X第一个字符起找出Y出现的位置
12 Instr(n,x,y)从X第N个字符起找出Y出现的位置.
在X中找到Y,则返回值是Y的第一个字符出现的位置.
若N>字符串长度,或X为空字符串,或在X中找不到Y,都返回0.
若Y为空字符串,则返回N.
InStrRev 倒过来寻找字符串.
P=InStrRev(c,s[,n[,compare]])
从字符串X的后面往前找,若找到,则返回S字符串在字符中的位置.
N为从第几个字符开始寻找,设置compare ,可以不区分大小写的寻找.
13 Join(x[,d]) 将字符串数组合成一个字符串.
参数X是一个字符串数组,调用JOIN后,X的所有字符串元素将串在一起组合成一个字符串,然后返回.
D参数用来指定分隔字符.
X=Array("da","fdsa","fdas")
P=Join(X,",")
P="da,fdsa,dsas"
Len(X):计算字符串X的长度.
空字符长度为0,空格也算一个字符,中方虽然占用2bytes,但也算一个字符.
14, Left(X,n):返回字符串X左边n 个字符。
若N=0，则返回空字符串，若n>=Len(X)，则返回整个字符串。
15，Mid(X,n):由X的第N个字符起，读取后面的所有字符。
Mid(X,n,m):由X的第n个字符起，读起m个字符。
若n>Len(X),则返回空字符串，若第n个字符以后不足m个字符，则返回后面的所有字符。
16．Ltrim(X),Rtrim(X),Trim(X) :去掉空字符。
Ltrim(x) 去掉X左边的所有字符。
trim(x) 去掉X左右边的所有字符
Rtrim(x) 去掉X右边的所有字符。
字符与字符间的空格不会被去掉。
X=Ltrim(" This is good ")
结果：X="This is good "
X=Trim(" This si good ")
结果:X="This is good"
17.Right(X,n):返回字符串X右边N个字符。
P=Replace(X,S,R)
将字符串X中的字符串S替换成为字符串R，然后返回。
X="asp is good"
P=Replace(X,good,nice)
P="asp is nice"
Space(n) :返回N个空格所组成的字符串，
P=Space(n,X) :返回N个X的第一个字符所组成的字符串。
X可以是字符串，也可以是字符码。
18，Split:将字符串侵害成字符串数组。 P=Split(S[,d])
回复Comments
{commenttime}{commentauthor}
{CommentUrl}
{commentcontent}