一．选择题
1.三种基本结构中，能简化大量程序代码行的是（）。
A．顺序结构B．分支结构
C．选择结构D．重复结构
D。【解析】重复结构又称为循环结构，它根据给定的条件，判断是否需要重复执行某一相同或类似的程序段，利用重复结构可以简化大量的程序行。
2.下列关于栈的描述正确的是（）。
A．在栈中只能插入元素而不能删除元素B．在栈中只能删除元素而不能插入元素
C．栈是特殊的线性表，只能在一端插入或删除元素
D．栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素
C。【解析】根据数据结构对栈的定义及其特点可知：栈是限定只在表尾进行插入或删除操作的线性表，因此栈是先进后出的线性表，对栈的插入与删除操作，不需要改变栈底元素。栈是限定只在表尾进行插入或删除操作的线性表。
3.下列有关数据库的叙述，正确的是（）。
A．数据处理是将信息转化为数据的过程
B．数据的物理独立性是指当数据的逻辑结构改变时，数据的存储结构不变
C．关系中的每一列称为元组，一个元组就是一个字段
D．如果一个关系中的属性或属性组并非该关系的关键字，但它是另一个关系的关键字，则称其为本关系的外关键字
D。【解析】数据处理是指将数据转换成信息的过程，故选项A 叙述错误；数据的物理独立性是指数据的物理结构的改变不会影响数据库的逻辑结构，故选项B叙述错误；关系中的行称为元组，对应存储文件中的记录，关系中的列称为属性，对应存储文件中的字段，故选项C叙述错误。
4.概要设计中要完成的事情是（）。
A．系统结构和数据结构的设计B．系统结构和过程的设计
C．过程和接口的设计D．数据结构和过程的设计
A。【解析】软件概要设计的基本任务是：设计软件系统结构；数据结构及数据库设计；编写概要设计文档；概要设计文档评审。
5.下面排序算法中，平均排序速度最快的是（）。
A．冒泡排序法B．选择排序法
C．交换排序法D．堆排序法
D。【解析】在各种排序方法中，快速排序法和堆排序法的平均速度是最快的，因为它们的时间复杂度都是O（nlog2n），其他的排序算法的时间复杂度大都是O（n2）。
6.下列描述中正确的是（）。
A．软件工程只是解决软件项目的管理问题B．软件工程主要解决软件产品的生产率问题C．软件工程的主要思想是强调在软件开发过程中需要应用工程化原则
D．软件工程只是解决软件开发中的技术问题
C。【解析】软件工程是研究和应用如何以系统性的、规范化的、可定量的过程化方法来开发和维护软件，以及如何把经过时间考验而证明正确的管理技术和当前能够得到的最好的技术方法结合起来。软件工程的目标是生产具有正确性、可用性及开销合宜的产品，它的主要思想是强调在软件开发过程中需要应用工程化原则。
7.关系模型允许定义3类数据约束，下列不属于数据约束的是（）。
A．实体完整性约束B．参照完整性约束
C．属性完整性约束D．用户自定义的完整性约束
C。【解析】关系模型允许定义3类数据约束，即实体完整性约束、参照完整性约束和用户自定义完整性约束。其中前两种完整性约束由关系数据库系统支持，用户自定义完整性约束则由关系数据库系统提供完整性约束语言，用户利用该语言给出约束条件，运行时由系统自动检查。
8.下列描述中正确的是（）。
A．程序就是软件B．软件开发不受计算机系统的限制
C．软件既是逻辑实体，又是物理实体D．软件是程序、数据与相关文档的集合
D。【解析】软件是程序、数据与相关文档的集合，它是一个逻辑实体。软件的开发要受计算机系统的限制，例如硬件系统的限制、软件操作系统的限制等。
9.用树型结构表示实体之间联系的模型是（）。
A．关系模型B．网状模型C．层次模型D．以上三个都是
C。【解析】层次模型是数据库系统中最早出现的数据模型，它用树型结构来表示各类实体及实体间的联系。在现实世界中事物之间的联系更多的是非层次关系的，用层次模型表示非树型结构很不直接，网状模型则用来表示非树型结构。关系模型是目前最重要的一种数据模型，它建立在严格的数学概念基础上。关系模型由关系数据结构、关系操作系统和关系完整性约束3部分组成。
10.在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（）。
A．工程资源管理器窗口B．工具箱窗口C．代码窗口D．属性窗口
C。【解析】双击窗体上的某个控件，打开代码窗口，并定位到该控件的相关方法。
11.下面的控件可作为其他控件容器的是（）。
A．PictureBox 和Data B．Frame 和Image C．PictureBox 和Frame D．Image 和Data C。【解析】Visual Basic 控件中，PitureBox 和Frame可以作为其他控件的容器，而Data 和Image 则不能。
12.下列说法错误的是（）。
A．窗体文件的扩展名为“．frm”B．一个窗体对应一个窗体文件
C．Visual Basic 中的一个工程只包含一个窗体
D．Visual Basic 中一个工程最多可以包含255个窗体
C。【解析】Visual Basic 中的一个工程可包含一个或者多个窗体，但最多只能是255个。
13.要设置窗体为固定对话框，并包含控制菜单栏和标题栏，但没有最大化和最小化按钮，设置的操作是（）。
A．设置BorderStyle 的值为Fi xed Tool Wi ndow B．设置BorderStyle 的值为Sizable Tool Wi ndow C．设置BorderStyle 的值为Fi xed Dialog D．设置BorderStyle 的值为Sizable
C。【解析】窗体的BorderStyle 属性用来设置窗体的格式，它有6个可选值。0-none ：没有边框或与边框相关的元素。
1-fi xed si ngle ：可以包含控制菜单框、标题栏、“最大化”和“最小化”按钮。只有使用最大化和最小化按钮才能改变大小。
2-sizable ：缺省值。可以使用设置值1列出的任何可选边框元素重新改变尺寸。
3-fi xed dialog ：可以包含控制菜单框和标题栏，不能包含最大化和最小化按钮，不能改变尺寸。4-fi xed toolwi ndow：不能改变尺寸。显示关闭按钮并用缩小的字体显示标题栏。窗体在Wi ndows 95的任务条中不显示。
5-sizable toolwi ndow：可变大小。显示关闭按钮并用缩小的字体显示标题栏。窗体在Wi ndows 95的任务条中不显示。
根据本题的要求，应设置BorderStyle 的值为Fi xed Dialog。
14.Private Sub Form＿KeyPress（KeyAscii As Integer）
Di mch As Stri ng
ch ＝Chr（KeyAscii）
KeyAscii ＝Asc（UCase（ch））
Print Chr（KeyAscii ＋2）
End Sub
程序运行后，按键盘上的“A”键，则在窗体上显示的内容是（）。
A．A B．B C．C D．D
C。【解析】本题考查了3个系统函数：Chr（），Asc（），UCase（）。它们的功能分别是将ASCII 码值转换为字符；将字符转化为ASCII 码值；将字符转化为大写字符串。KeyPrevie w 属性返回或设置一个值，以决定是否在控件的键盘事件之前激活窗体的键盘事件。键盘事件有KeyDown、KeyUp 和KeyPress ，主要应用于Form 对象。本题的程序执行时，当按下“A”时，则“A”的ASCII 码值传给函数体，并转换为字符赋给变量ch ，再将ch（即“A”）的ASCII 值赋值给KeyAscii ，最后将KeyAscii 值加2并转化为字符打印输出，即结果为字母“C”。
15.两个或两个以上模块之间关联的紧密程度称为（）。
A．耦合度B．内聚度C．复杂度D．数据传输特性
A。【解析】耦合是指模块之间的关联程度，内聚是指模块内部各部分的聚合程度。
16.如果在程序中要将a 定义为静态变量，且为整型数，则应使用的语句是（）。
A．Redi ma As Integer B．Static a As Integer
C．Public a As Integer D．Di ma As Integer
B。【解析】Visual Basic 中定义一个静态变量的语法为：Static 变量名As 变量类型。故选项B正确。此外，在Visual Basic 中，Static 类型的变量不能在标准模块的声明部分定义，为了使过程中所有的局部变量为静态变量，可在过程头的起始处加上Static 关键字。这就使过程中的所有局部变量都变为静态变量。
17.用InputBox 函数设计的对话框，其功能是（）。
A．只能接收用户输入的数据，但不会返回任何信息
B．能接收用户输入的数据，并能返回用户输入的信息
C．既能用于接收用户输入的信息，又能用于输出信息
D．专门用于输出信息
B。【解析】InputBox 函数用来显示一个输入框，并提示用户在文本框中输入文本、数字或选中某个单元格区域，当按下确定按钮后返回包含文本框内容的字符串。
18.假定有如下的Sub 过程：
Sub S（x As Si ngle ，y As Si ngle）
t ＝x
x＝t／y
y ＝t Mod y
End Sub
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Co mmand1＿Click （）
Di ma As Si ngle
Di mb As Si ngle
a＝5
b ＝4
S（a，b）
Print a，b
End Sub
程序运行后，单击命令按钮，输出结果为（）。
A．54 B．11 C．1．254 D．1．251
D。【解析】本题定义了一个函数Sub ，默认为地址传递参数，首先对第一个参数进行除操作，第二个进行取余操作，调用后变量改变。结果为选项D。
19.设a ＝＂Visual Basic＂，下面使b ＝＂Basic＂的语句是（）。
A．b ＝Left（a，8，12）B．b ＝Mid（a，8，5）
C．b ＝Rigth（a，5，5）D．b ＝Left（a，8，5）
B。【解析】本题考查字符串函数。Left（字符串，n）：取字符串左部的n 个字符；Mid（字符串，p ，n）：从位置p 开始取字符串的n 个字符；Right（字符串，n）：取字符串右部的n 个字符。分析题中的4个选项可知正确答案为选项B。
在窗体上画一个名称为Label1、标题为“Visual Basic 考试”的标签，两个名称分别为Co mmand1和Co mmand2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称
为Ti mer1的计时器控件，并把其Interval 属性设置为500，如图所示。
编写如下程序：
Private Sub Form＿Load（）
Ti mer1．Enabled ＝false
End Sub
Private Sub Co mmand1＿Click（）
Ti mer1．Enabled ＝True
End Sub
Private Sub Ti mer1＿Ti mer（）
If Label1．Left ＜Width Then
Label1．Left ＝label1．Left ＋20
Else
Label1．Left ＝0
End If
End Sub
程序运行后单击“开始”按钮，标签在窗体中移动。对于这个程序，以下叙述中错误的是（）。A．标签的移动方向为自右向左
B．单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动
C．当标签全部移出窗体后，将从窗体的另一端出现并重新移动
D．标签按指定的时间间隔移动
A。【解析】本题考查Ti mer 控件的使用。Ti mer 中Interval 的单位为毫秒，设置为500意味着每隔0．5秒作用一次。Ti mer 的Enaled 属性指示Ti mer 控件是否可用。同时本题还考查了对Label 控件的属性的掌握：Left 属性为Label 的左边界的坐标，Width 为Label 的宽度。本程序中单击按钮后，Label1将每隔0．5秒向右移动，当移动到Left＞Width 时，Label1重定位到窗体的左边
界，然后继续移动。选项A 错误的。
20.当在滚动条内拖动滚动块时触发（）。
A．KeyUp 事件B．KeyPress 事件
C．Scroll 事件D．Change 事件
C。【解析】本题考查Visual Basic 中滚动条控件的特征，当在滚动条内拖动滚动块时触发Scroll 事件。当按下键盘上的某个键时，将触发KeyPress 事件。
下面程序的输出结果是（）。
Private Sub Co mmand1＿Click（）
Ch$＝＂ABCDEF＂
proc ch ：Print ch
End Sub
Private Sub proc（ch As Stri ng）
s ＝＂＂
For k ＝Len（ch）To 1Step －1
s ＝s ＆Mid（ch ，k ，1）
Next k
ch ＝s
End Sub
A．ABCDEF B．FEDCBA C．A D．F
B。【解析】Mid 函数的语法格式为：Mid（字符串，p ，n），功能是从位置p 开始取字符串的n 个字符。“＆”用于连接两个字符串。在本题程序的For 循环中，逐个将ch 的元素倒序连接到s 后，因此最后的结果为FEDCBA。
21.执行下列程序段后，输出的结果是（）。
For k1＝0To 4
y ＝20
For k2＝0To 3
y ＝10
For k3＝0To 2
y ＝y ＋10
Next k3
Next k2
Next k1
Print y
A．90 B．60 C．40 D．10
C。【解析】程序是三重循环，但是最外层循环每次对y 初始化为20，第二层每次对其初始化为10，因此外两层循环不能改变y 的值，考生只需注意内层循环即可得出答案为40。
22.在窗体上画两个文本框（其Name 属性分别为Text1和Text2）和一个命令按钮（其Name 属性为Co mmand1），然后编写如下事件过程：
Private Sub Co mmand1＿Click（）
x＝0
Do While x＜50
x＝（x＋2）＊（x＋3）
n ＝n ＋1
Loop
Text1．Text ＝Str（n）
Text2．Text ＝Str（x）
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为（）。
A．1和0 B．2和72C．3和50D．4和168
B。【解析】程序先进行Do While 循环，然后将求得的n 和x 的值转换为字符串输入到Text1和Text2中，结果为2和72。
23.用下面语句定义的数组的元素个数是（）。
Di m A（－3To 5）As Integer
A．6 B．7 C．8 D．9
D。【解析】本题中的数组定义从－3到5，一共有“－3、－2、－1、0、1、2、3、4、5”九个元素。
24.若在某窗体模块中有如下事件过程：
Private Sub Co mmand1＿Click（Index As Integer）
……
End Sub
则以下叙述中正确的是（）。
A．此事件过程与不带参数的事件过程没有区别
B．有一个名称为Co mmand1的窗体，单击此窗体则执行此事件过程
C．有一个名称为Co mmand1的控件数组，数组中有多个不同类型控件
D．有一个名称为Co mmand1的控件数组，数组中有多个相同类型控件
D。【解析】Index As Integer 用来指示控件数组的索引。因此此段代码说明有一个名称为Co mmand1的控件数组，数组中有多个相同类型的控件。
25.下列程序段的执行结果为（）。
a＝1
b ＝0
Select Case a
Case 1
Select Case b
Case 0
Print ＂＊＊0＊＊＂
Case 1
Print ＂＊＊1＊＊＂
End Select Case 2
Print ＂＊＊2＊＊＂
End Select
A．＊＊0＊＊B．＊＊1＊＊C．＊＊2＊＊D．0
A。【解析】程序为嵌套的Select 语句。分析程序可知，程序只执行了“Print ＂＊＊0＊＊＂”语句，结果为选项A。
26.设有数组定义语句：Di ma（5）As Integer ，List1为列表框控件。下列给数组元素赋值的语句错误的是（）。
A．a（3）＝3 B．a（3）＝InputBox（＂i nput data＂）C．a（3）＝List1．ListIndex D．a＝Array（1，2，3，4，5，6）
D。【解析】选项D 将6个元素赋给长度为5的数组，显然是错误的。
27.在窗体上画一个名称为Text1的文本框和一个名称为Co mmand1的命令按钮，然后编写如下事件过程：
Private Sub Co mmand1＿Click（）
Di marray1（10，10）As Integer
Di mi ，j As Integer
For i ＝1To 3
For j＝2To 4
array1（i ，j）＝i ＋j
Next j
Next i
Text1．Text ＝array1（2，3）＋array1（3，4）
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是（）。
A．12 B．13 C．14 D．15
A。【解析】程序中二重循环对数组array1赋值i ＋j，然后在Text1中显示，结果为12。
28.如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是（）。
A．任何时刻最多只有一个窗体是活动窗体
B．不能把标准模块设置为启动模块
C．用Hide 方法只是隐藏一个窗体，不能从内存中清除该窗体
D．如果工程中含有Sub Main 过程，则程序一定首先执行该过程
D。【解析】Visual Basic 编程环境规定，任何时刻最多只有一个窗体是活动窗体，同时不能把标准模块设置为启动模块。用Hide 方法只是隐藏一个窗体，不能从内存中清除该窗体。如果工程中含有Sub Main 过程，则程序也不一定首先执行该过程。
29.下列程序的执行结果为（）。
Private Sub Co mmand1＿Click（）
Di mx As Integer ，y As Integer
x＝12：y ＝20
Call Value（x，y）
Print x；y
End Sub
Private Sub Value（ByVal m As Integer ，ByVal n AsInteger）
m＝m＊2：n ＝n －5
Print m；n
End Sub
A．20 12
20 15
B．12 20
12 25
C．24 15
12 20
D．24 12
12 15
C。【解析】本题主要考查自定义过程的参数传递。在Visual Basic 中，参数缺省是按地址传递的，也就是使过程按照变量的内存地址去访问实际变量的内容。这样，将变量传递给函数时，通过函数可永远改变该变量值。如果想改变传递方式可以通过在变量定义前加关键字ByRef 或ByVal。
ByRef 为默认值，按地址传递，ByVal 按照值传递，函数调用后不改变变量值。
在窗体上画一个通用对话框，其Name 属性为Cont ，再画一个命令按钮，Name 属性为Co mmand1，然后编写如下事件过程：
Private Sub Co mmand1＿Click（）
Cont ．File Name ＝＂＂
Cont ．Flags ＝vbOFNFile MustExist
Cont ．Filter ＝＂All Files｜＊．＊＂
Cont ．FilterIndex＝3
Cont ．DialogTitle ＝＂Open File＂
Co nt ．Action ＝1
If Cont ．File Name ＝＂＂Then
MsgBox ＂No file selected＂
Else
Open Cont ．File Name For Input As ＃1
Do While Not EOF（1）
Input ＃1，b$
Print b$
Loop
End If
End Sub
30.以下各选项，对上述事件过程描述错误的是（）。
A．该事件过程用来建立一个Open 对话框，可以在这个对话框中选择要打开的文件
B．选择后单击“打开”按钮，所选择的文件名即作为对话框的File Name 属性值
C．Open 对话框不仅仅用来选择一个文件，还可以打开、显示文件
D．过程中的＂Cont ．Action ＝1＂用来建立Open 对话框，它与Cont ．ShowOpen 等价
C。【解析】分析本题程序可知，该事件过程用来建立一个Open 对话框，可以在这个对话框中选择要打开的文件，并且选择后单击“打开”按钮，所选择的文件名即作为对话框的File Name 属性值。另外Co mmonDialog 有两种打开方式，一是设置Action 的值，另一种方法是直接设置打开方式，如Cont ．ShowOpen ，建立一个Open 对话框。因此Open对话框只用来选择文件。以下叙述中错误的是（）。
A．在KeyUp 和KeyDown 事件过程中，从键盘上输入A 或a 被视作相同的字母（即具有相同的KeyCode）
B．在KeyUp 和KeyDown 事件过程中，将键盘上的“1”和右侧小键盘上的“1”视作不同的数字（具有不同的KeyCode）
C．KeyPress 事件中不能识别键盘上某个键的按下与释放
D．KeyPress 事件中可以识别键盘上某个键的按下与释放
C。【解析】在KeyUp 和KeyDown 事件中，大写字母和小写字母具有相同的KeyCode ，大小键盘上的数字具有不同的KeyCode。因此选项A、B正确。KeyPress 事件可以识别键盘上某个键的按下与释放，识别的是按键的ASCII 码。
31.建立一个新的标准模块，应该选择（）下的“添加模块”命令。
A．“工程”菜单
B．“文件”菜单
C．“工具”菜单
D．“编辑”菜单
A。【解析】标准模块对整个工程通用，应选取“工程”菜单下的“添加模块”命令
32.以下能判断是否到达文件尾的函数是（）。
A．BOF
B．LOC
C．LOF
D．EOF
D。【解析】Visual Basic 中，LOC函数是用来在已打开的文件中指定当前读／写的位置，LOF 函数是用来返回已打开文件的长度，EOF 函数是用来判断是否到达已打开文件的尾部。
33.某人编写了一个能够返回数组a 中10个数中最大数的函数过程，代码如下：
Function MaxValue（a（）As Integer）As Integer
Di m max％
max＝1
For k ＝2To 10
If a（k）＞a（max）Then
max＝k
End If
Next k
MaxValue ＝max
End Function
程序运行时，发现函数过程的返回值是错的，需要修改，下面的修改方案中正确的是（）。A．语句max＝1应改为max＝a（1）
B．语句For k ＝2To 10应改为For k ＝1To 10
C．If 语句中的条件a（k）＞a（max）应改为a（k）＞max
D．语句MaxValue ＝max 应改为MaxValue ＝a（max）
D。【解析】由题易知，For 循环结束后可得出数组中最大数的下标max，因为是求最大的数，应该是将a（max）赋给MaxValue 而不是最大数的下标max，故应选D。
34.在窗体上画一个名称为Co mmand1的命令按钮，并编写以下程序：
Private Sub Co mmand1＿Click（）
Di mn ％，b ，t
t ＝1：b ＝1：n ＝2
Do
b ＝b＊n
t ＝t ＋b
n ＝n ＋1
Loop Until n ＞9
Print t
End Sub
此程序计算并输出一个表达式的值，该表达式是（）。
A．9！
B．10！
C．1！＋2！＋ (9)
D．1！＋2！＋ (10)
C。【解析】循环Do……Loop 中的b 中存放的是各数的阶乘，t 中存的是各个数阶乘的和；第一次循环中的b ＝1＊2，t ＝1＋1＊2，n ＝3；n 不大于9，进行第二次循环；第二次循环中b ＝1＊2＊3，t ＝1＋1＊2＋1＊2＊3，n ＝4；第八次循环中b ＝1＊2＊3＊4＊5＊6＊7＊8＊9，t ＝
1＋1＊2＋1＊2＊3＋……＋8！＋9！，n ＝10；n 大于9跳出循环。故应选C。
35.有一个名称为Form1的窗体，上面没有控件，设有以下程序（其中方法Pset（X，Y）的功能是在坐标X，Y 处画一个点）：
Di mc mdmave As Boolean
Private Sub Form＿MouseDown （Button As Integer ，Shift As Integer ，X As Si ngle ，Y As Si ngle）c mdmave ＝True
End Sub
Private Sub Form＿Mouse Move（Button As Integer ，ShiftAs Integer ，X As Si ngle ，Y As Si ngle）If c mdmave Then Form1．Pset（X，Y）
End If
End Sub
Private Sub Form＿Mouse Up（Button As Integer ，ShiftAs Integer ，X As Si ngle ，Y As Si ngle）c mdmave ＝False
End Sub
此程序的功能是（）。
A．每按下鼠标键一次，在鼠标所指位置画一个点
B．按下鼠标键，则在鼠标所指位置画一个点；放开鼠标键，则此点消失
C．不按鼠标键而拖动鼠标，则沿鼠标拖动的轨迹画一条线
D．按下鼠标键并拖动鼠标，则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线
D。【解析】Pset（X，Y）函数是在X、Y 处画出一个点，Form＿MouseDown 函数中只有一个c mdmave ＝True ，即当鼠标按下就将c mdmave 赋值为True ，Form＿Mouse-Move 函数是当c mdmave 为True 时就执行Pset（x，y）函数，即当移动鼠标且c mdmave ＝True 时就不断的画点，即形成一条线；而Form＿Mouse Up 函数是将c mdmave 赋为false ，即松开鼠标时不再画点。故整个程序的功能是按下鼠标键并拖动鼠标，沿鼠标拖动的轨迹画一条线，放开鼠标键就结束画线。
35.某人设计了下面的函数fun ，功能是返回参数a 中数值的位数
Function fun（a As Integer）As Integer
Di mn ％
n ＝1
While a＼10＞＝0
n ＝n ＋1
a＝a＼10
Wend
fun ＝n
End Function
在调用该函数时发现返回的结果不正确，函数需要修改，下面的修改方案中正确的是（）。A．把语句n ＝1改为n ＝0
B．把循环条件a＼10＞＝0改为a＼10＞0
C．把语句a＝a＼10改为a＝a Mod 10
D．把语句fun ＝n 改为fun ＝a
B。【解析】a＼10＞0保证a 至少是两位数，若是大于等于0，则While 循环也不会结束，会一直循环下去。
36.在窗体上有一个名称为Check1的复选框数组（含4个复选框），还有一个名称为Text1的文本框，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的方字罗列在文本框中（见图）。下面能实现此功能的事件过程是（）。
A．Private Sub Check1＿Click（Index As Integer）
Text1．Text ＝＂＂
For k ＝0To 3
If Check1（k）．value ＝1Then
Text1．Text ＝Text1．Text ＆Check1（k）．Caption ＆＂＂双引号中是空格End If Next k End Sub
B．Private Sub Check1＿Click（Index As Integer）
For k ＝0To 3
If Check1（k）．Value ＝1Then
Text1．Text ＝Text1．Text ＆Check1（k）．Caption ＆＂＂双引号中是空格
End If
Next k
End Sub
C．Private Sub Check1＿Click（Index As Integer）
Text1．Text ＝＂＂For k ＝0To 3 If Check1（k）．Value ＝1Then
Text1．Text ＝Text1．Text ＆Check1（Index）．Caption ＆＂＂双引号中是空格
End If
Next k
End Sub
D．Private Sub Check1＿Click（Index As Integer）
Text1．Text ＝＂＂For k ＝0To 3
If Check1（k）．Value ＝1Then
Text1．Text ＝Text1．Text ＆Check1（k）．Caption ＆＂＂双引号中是空格
Exit For
End If
Next k
End Sub
A。【解析】Text1．Text 表示文本框的文本内容，Check1（k）．value ＝1表示复选框被选中，For 循环遍历所有复选框，若Check1（k）．value ＝1则Text1．Text ＝Text1．Text ＆Check1（k）．Caption ＆＂＂，将Check1（k）的Caption 即复选框后的文字添加到Text1中每次添加文字后文字之间都由空格隔开。
一、基本操作题
（1）在名称为Form1的窗体上建立一个水平滚动条，并在属窗口中将其名称设置为HS1Max 属性设置为100，Min属性设置为0，Value属性设置为100。程序运行后，滚动框位于滚动条最右端，如果单击滚动条之外的窗体部分，则滚动框跳到最左端，如图2－1所示。
注意：只能直接为相应的属性赋值，不得使用任何变量。保存时必须存放在考生文件夹下，窗体文件名为sj1.frm，工程文件名为sj1.vbp。
图2-1
（2）在Form1的窗体上绘制一个命令按钮，名为md1，标题为Display，按钮隐藏。编写适当的事件过程，使程序运行后，若单击窗体，则命令按钮出现；
此时如果单击命令按钮，则在窗体上显示Visual Basic。程序运行情况如图2-2，2-3所示。
图2-2 图2-3
注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为sj2.vbp，窗体文件名为sj2.frm。
【解析】（1）本题主要考查窗体上控件的基本操作。
①先在窗体上建立控件，再设置控件属性。程序中用到的控件及其属性见表2-1。
表2-1
控件属性设置值
滚动条Name HS1
滚动条Min O
滚动条Max 100
滚动条Value 100
②滚动条的最大刻度用Max属性来表示，最小刻度用Min属性来表示，滚动条上的位置通过Value属性来表示。
③单击窗体触发Form_Click事件，滚动框跳到最左端，即使其Value属性为0。
④参考代码如下：
Private Sub Form_Click()
HS1.Value=0
End Sub
⑤调试并运行程序。
⑥按题目要求存盘。
（2）①新建一个名为Form1的窗体；
②单击工具箱中的CommandButton控件图标，在窗体上拖拉出一个命令按钮，在属性窗口设置该命令按钮名称为Cmd1，Caption属性为Display，Visible属性为False；
③打开代码窗口输入如下代码：
Private Sub Cmd1_Click()
Print"VisualBasic"′在窗体显示VisualBasic
EndSub
Private Sub Form_Click()
Cmd1.Visible=True′使命令按钮可见
EndSub
④按要求保存文件即完成本题。
二、简单应用题
（1）在窗体上画三个复选框，名称分别为Ch1、Ch2和Ch3，标题分别为“体育”、“音乐”和“美术”，还有一个命令按钮，名称为c1，标题为“显示”。要求程序运行后，如果选中某个复选
框，当单击“显示”命令按钮时，则显示相应的信息。例如，如果选中“体育”和“美术”复选框，单击“显示”命令按钮后，在窗体上显示“我的爱好是体育美术”，如图2－4所示。
图2-4
注意：保存时必须存放在考生文件夹下，窗体文件名为sj3.frm，工程文件名为sj3.vbp。
（2）在考生文件夹中有工程文件sj4.vbp及窗体文件sj4.frm。在名为Form1的窗体上有一个标签数组，名为Lab1，该数组有4个控件元素，标题分别是Wait、Edit、Aix和Move，如图2-5所示。
图2-5
在程序运行后，将鼠标指针移动到各控件元素上，则鼠标指针的形状将变成各控件元素的标题所代表的鼠标指针形状；离开控件元素，则鼠标指针又变成正常情况下的箭头形状。本程序不完整，请补充完整，并能正确运行。
注意：去掉程序中的注释符“'”，把程序中的问号“？”改为正确的内容，
使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。
【解析】（1）本题主要考查复选框的使用。单击命令按钮触发Click事件，程序中需要检测复选按钮的状态，可以通过Value属性来实现。如果复选按钮被选中，则Value值为1，否则Value 值为0。
①在窗体上先按要求建立控件，设置控件属性，程序中用到的控件及属性见表2-2。
表2-2
对象属性设置值
复选按钮Name Ch1
复选按钮Caption 体育
复选按钮Name Ch2
复选按钮Caption 音乐
复选按钮Name Ch3
复选按钮Caption 美术
命令按钮Caption 爱好
命令按钮Name C1
命令按钮Caption 显示
②打开工程资源管理器，右击窗体，选择查看代码项，在弹出的代码窗口输入代码如下：
Option Explicit
Private Sub c1_Click()
Dim s As String
s = "我的爱好是"
If Ch1.Value = 1 Then
s = s & Ch1.Caption
End If
If Ch2.Value = 1 Then
s = s & Ch2.Caption
End If
If Ch3.Value = 1 Then
s = s & Ch3.Caption
End If
Print s
End Sub
③调试并运行程序。
④按题目要求存盘。
（2）①打开题目所给工程文件；
②将注释语句改为：
Form1.MousePointer=0
Select Case Index，
③按要求保存文件即完成本题。
三、综合应用题
在名称为Form1的窗体上画一个文本框，名称为Text1，MultiLine属性为True,ScroUBars属性为2；两个命令按钮，名称分别为Cmdl和Omd2，标题分别为“读入数据”和“计算保存”，如图2-6所示。要求程序运行后，如果单击“读入数据”按钮，则读入in.txt文件中的100个整数，放入一个数组中(数组下界为1)，同时在文本框中显示出来；如果单击“计算保存”按钮，则计算数组中大于或等于400并且小于800的所有数之和，并将结果在文本框Text1中显示出来，同时把结果存入考生文件夹的result.txt文件中(在prog.bas中的putdata过程可以把结果存入result.txt文件)。
图2-6
注意：文件必须存放在考生文件夹下，窗体文件名为sj5.frm，工程文件名为sj5.vbp，计算结果存入result.txt文件中，否则没有成绩。
【解析】
文本框显示的内容通过Text属性设置；按钮的标题通过Caption属性设置，单击命令按钮触发Click事件。本题涉及到文件的操作，读入顺序文件以顺序的方式打开，用“Input#”语句读取数据。另外，需要注意的是，对文件操作结束后，一定要关闭文件。
①建立界面并设置控件属性。程序中用到的控件及其属性见表2-3。
表2-3
控件属性设置值
文本框Name Text1
文本框ScrollBors 2-vertical
文本框Multiline True
命令按钮Name Cmd1
命令按钮Caption 读入数据
命令按钮Name Cmd2
命令按钮Caption 计算保存
②打开工程资源管理器，在其空白处右键添加模块prog.bas(此文件已在考生文件夹里)，模块代码如下：
Option Explicit
Sub putdata(ByVal a As Long)
Dim sFile As String
sFile = "\result.txt"
Open App.Path & sFile For Output As #1
Print #1, a;
Close #1
End Sub
③打开工程资源管理器，右击窗体，选择查看代码项，在弹出的代码窗口输入代码如下：
Dim i(1 To 100) As Integer
Private Sub Cmd1_Click()
Dim j As Integer
j = 0
Open App.Path & "\in.txt" For Input As #1
For j = 1 To 100
Input #1, i(j)
Next
Close #1
For j = 1 To 100
Text1.Text = Text1.Text & i(j) & Space(5)
Next
End Sub
Private Sub Cmd2_Click()
Dim sum As Long
Dim j As Integer
sum = 0
Text1.Text = ""
For j = 1 To 100
If i(j) >= 400 And i(j) < 800 Then
sum = sum + i(j)
End If
Next
Text1.Text = Text1.Text & sum & Space(5)
putdata sum
End Sub
…标准模块代码
Option Explicit
Sub putdata(ByVal a As Long)
Dim sFile As String
sFile = "\result.txt"
Open App.Path & sFile For Output As #1
Print #1, a;
Close #1
End Sub
操作题所需文件https://www.doczj.com/doc/3c240455.html,/s/1jGftuiM
操作题答案https://www.doczj.com/doc/3c240455.html,/s/1mgK6MeO
当我被上帝造出来时，上帝问我想在人间当一个怎样的人，我不假思索的说，我要做一个伟大的世人皆知的人。于是，我降临在了人间。
我出生在一个官僚知识分子之家，父亲在朝中做官，精读诗书，母亲知书答礼，温柔体贴，父母给我去了一个好听的名字：李清照。
小时侯，受父母影响的我饱读诗书，聪明伶俐，在朝中享有“神童”的称号。小时候的我天真活泼，才思敏捷，小河畔，花丛边撒满了我的诗我的笑，无可置疑，小时侯的我快乐无虑。
“兴尽晚回舟，误入藕花深处。争渡，争渡，惊起一滩鸥鹭。”青春的我如同一只小鸟，自由自在，没有约束，少女纯净的心灵常在朝阳小，流水也被自然洗礼，纤细的手指拈一束花，轻抛入水，随波荡漾，发髻上沾着晶莹的露水，双脚任水流轻抚。身影轻飘而过，留下一阵清风。
可是晚年的我却生活在一片黑暗之中，家庭的衰败，社会的改变，消磨着我那柔弱的心。我几乎对生活绝望，每天在痛苦中消磨时光，一切都好象是灰暗的。“寻寻觅觅冷冷清清凄凄惨惨戚戚”这千古叠词句就是我当时心情的写照。
最后，香消玉殒，我在痛苦和哀怨中凄凉的死去。
在天堂里，我又见到了上帝。上帝问我过的怎么样，我摇摇头又点点头，我的一生有欢乐也有坎坷，有笑声也有泪水，有鼎盛也有衰落。我始终无法客观的评价
我的一生。我原以为做一个着名的人，一生应该是被欢乐荣誉所包围，可我发现我错了。于是在下一轮回中，我选择做一个平凡的人。
我来到人间，我是一个平凡的人，我既不着名也不出众，但我拥有一切的幸福：我有温馨的家，我有可亲可爱的同学和老师，我每天平凡而快乐的活着，这就够了。
天儿蓝蓝风儿轻轻，暖和的春风带着春的气息吹进明亮的教室，我坐在教室的窗前，望着我拥有的一切，我甜甜的笑了。我拿起手中的笔，不禁想起曾经作诗的李清照，我虽然没有横溢的才华，但我还是拿起手中的笔，用最朴实的语言，写下了一时的感受：
人生并不总是完美的，每个人都会有不如意的地方。这就需要我们静下心来阅读自己的人生，体会其中无尽的快乐和与众不同。
“富不读书富不久，穷不读书终究穷。”为什么从古到今都那么看重有学识之人？那是因为有学识之人可以为社会做出更大的贡献。那时因为读书能给人带来快乐。
自从看了《丑小鸭》这篇童话之后，我变了，变得开朗起来，变得乐意同别人交往，变得自信了……因为我知道：即使现在我是只“丑小鸭”，但只要有自信，总有一天我会变成“白天鹅”的，而且会是一只世界上最美丽的“白天鹅”……
我读完了这篇美丽的童话故事，深深被丑小鸭的自信和乐观所折服，并把故事讲给了外婆听，外婆也对童话带给我们的深刻道理而惊讶不已。还吵着闹着多看几
本名着。于是我给外婆又买了几本名着故事，她起先自己读，读到不认识的字我就告诉她，如果这一面生字较多，我就读给她听整个一面。渐渐的，自己的语文阅读能力也提高了不少，与此同时我也发现一个人读书的乐趣远不及两个人读的乐趣大，而两个人读书的乐趣远不及全家一起读的乐趣大。于是，我便发展“业务”带动全家一起读书……现在，每每遇到好书大家也不分男女老少都一拥而上，争先恐后“抢书”，当我说起我最小应该让我的时候，却没有人搭理我。最后还把书给撕坏了，我生气地哭了，妈妈一边安慰我一边对外婆说：“孩子小，应该让着点。”外婆却不服气的说：“我这一把年纪的了，怎么没人让我呀？”大家人你一言我一语，谁也不肯相让……读书让我明白了善恶美丑、悲欢离合，读一本好书，犹如同智者谈心、谈理想，教你辨别善恶，教你弘扬正义。读一本好书，如品一杯香茶，余香缭绕。读一本好书，能使人心灵得到净化。书是我的老师，把知识传递给了我；书是我的伙伴，跟我诉说心里话；书是一把钥匙，给我敞开了知识的大门；书更是一艘不会沉的船，引领我航行在人生的长河中。其实读书的真真乐趣也就在于此处，不是一个人闷头苦读书；也不是读到好处不与他人分享，独自品位；更不是一个人如痴如醉地沉浸在书的海洋中不能自拔。而是懂得与朋友，家人一起分享其中的乐趣。这才是读书真正之乐趣呢！这所有的一切，不正是我从书中受到的教益吗？
我阅读，故我美丽；我思考，故我存在。我从内心深处真切地感到：我从读书中受到了教益。当看见有些同学宁可买玩具亦不肯买书时，我便想到培根所说的话：“世界上最庸俗的人是不读书的人，最吝啬的人是不买书的人，最可怜的人是与书无
缘的人。”许许多多的作家、伟人都十分喜欢看书，例如毛泽东主席，他半边床上都是书，一读起书来便进入忘我的境界。
书是我生活中的好朋友，是我人生道路上的航标，读书，读好书，是我无怨无悔的追求。
一、增加模块 1．增加一个模块，命名为“我的模块” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule).Name = "我的模块" 系统常量vbext_ct_StdModule=1 2．增加一个类模块，命名为“我的类” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_ClassModule).Name = "我的类" vbext_ct_ClassModule=2 3．增加一个窗体，命名为“我的窗体” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm).Name = "我的窗体" vbext_ct_MSForm=3 二、删除模块 1．删除“模块1” ThisWorkbook.VBProject.VBComponents.Remove hisWorkbook.VBProject.VBComponents("模块1") 2．删除窗体“UserForm1” ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("UserForm1") 3．删除类模块“类1” ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("类1") 4.删除所有的窗体 Sub RmvForms() Dim vbCmp As VBComponent For Each vbCmp In ThisWorkbook.VBProject.VBComponents If vbCmp.Type = vbext_ct_MSForm Then ThisWorkbook.VBProject.VBComponents.Remove vbCmp Next vbCmp End Sub 相关： 工作表和ThisWorkbook的模块类型为vbext_ct_Document=100 三、增加代码 1.在“模块1”中插入代码 如果需要在“Sheet1”、“Thisworkbook”、或“Userform1”中操作，用只需将下面的“模块1”换成相应的名称即可。 方法1： 在模块的开始增加代码，增加的代码放在公共声明option,全局变量等后面。 Sub AddCode1() ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.AddFromString _ "sub aTest()" & Chr(10) & _ "msgbox ""Hello""" & Chr(10) & _ "end sub" End Sub
一、概念填空题 1．在Visaul Basic中,属性窗口分为四个部分，这四个部分分别是（ 1 ）属性显示方式、属性列表和对当前属性的简单解释。 2．组合框有三种不同的风格，它们分别是：( 2 )、( 3 )和( 4 )。3．VB中，当KeyPress事件发生时会返回一个按键的（ 5 ）值。 4. 时钟控件是有规律地以一定的( 6 )激发计时器事件，而执行相应的代码程序。 5．A = 8，B = 3，C = 5，则表达式A MOD 3 + B^3 / C \ 5的值为（ 7 ）。6．声明一个双精度变量Num5，的声明语句是 ( 8 ) 。 7．有一文本框Text1，为了使该文本框在运行时获取焦点，应执行的语句是（ 9 ）。8．在使用动态数组时，如要改变数组的大小而又不丢失数组中的数据，应使用（ 10 ）关键字。 9．Visual Basic逻辑数据类型只有 True 与 False 两个值。当逻辑数据转换成整型数据时，True 转换为（ 11 ），False转换为（ 12 ）。 10．在Visaul Basic 中依据变量的作用范围将VB变量的作用范围分为三类，它们是：（ 13 ）变量、（ 14 ）变量和（ 15 ）变量。 11．在Visual Basic工程中，拥有多个窗体的程序可用（ 16 ）语句将窗体装入内存，用（ 17 ）语句将指定窗体从内存中删除。 12．在Visual Basic中，当坐标系确定后，如果坐标值前加上关键字Step，则坐标值（X，Y）是（ 18 ）坐标。 13．字符串常量是由任何ASCII字符组成，在程序代码中，它必须由（ 19 ）括起来。 14．如果有三个单选按钮直接画在窗体上，另有四个单选按钮画在框架中，则运行时，可以同时选中（ 20 ）个单选按钮。 二、概念选择题 1．不能触发滚动条Change事件的操作是（）。 A) 拖动滚动条的滑块 B) 单击两端箭头 C) 单击滚动条的滑块 D) 单击滚动条的空白处 2．已知变量x 、y为整数型，且x=4 , y=12 ,s为字符型，且s=“a”，Leble1为标签控件，Leble1的Caption属性值为Label1，下列合法的赋值语句是（）。 A) X= Leble1.Caption B) Leble1.Caption=Str(X) C) X*3=Y D) Y=X*S 3．下列可以将变量A、B的值互换的语句是( )。 A) A=B : B=A B) C=B : B=A ：A=C C) A=C : C=B : B=A D) A=(A+B)/2 ：B=(A-B)/2 4．下列叙述中错误的是（）。 A)VB是采用了事件驱动编程机制。
二级VB模拟试题(1-2)(1)-计算机等级考试试题 一、填空题（每空２分，共40分） １、ＶＢ中若要产生一消息框，可用_____函数来实现。 ２、设计弹出式菜单时，先通过_____建立菜单，然后将顶层菜单的Visible属性设置为False，最后在代码中通过窗体对象的_____方法显示弹出式菜单。 ３、Ｗindows可公用的对话框有：_____、保存文件对话框、颜色设置、字体设置对话框、打印设置对话框、帮助文件六种，ＶＢ可通过调用通用对话框控件的_____、ShowSave、ShowColor、_____、ShowPrint、ShowHelp方法来使用它们。也可通过设置通用对话框控件的_____属性来实现。 ４、在ＶＢ中窗体文件的后缀名为_____，工程文件的后缀名为_____。 ５、图像框和图片框均可用于装载、显示图形文件，可在设计阶段给它们的_____属性赋值，也可在运行阶段通过_____函数装入图形文件。 ６、若要将菜单项设计为分隔条，则该菜单项的标题属性应设置为。 ７、_____实际上是ＶＢ提供的一种特殊的子程序，用来完成一定的操作。 ８、ＶＢ提供_____函数用于将数字字符转换成数值型，提供_____函数用于将数值转换成字符型。 ９、_____类型也称变体类型，是一种通用的、可变的数据类型，它可表示或存储任何一种数据类型。 10、在过程内用_____声明的变量为静态变量，在执行一个过程结束时，过程中所用到的Static 变量的值会保留，下次再调用此过程时，变量的初值是上次调用结束时被保留的值。 11、在模块文件中的声明部分用Global或_____关键字声明的变量为全局变量。 12、在模块文件中的声明部分用_____或_____定义的变量为模块级变量。 二、选择题（每题3分，共20分） １、若要使命令按钮不可用，则可设置其（）属性为False来实现。 Ａ、ValueＢ、CancelＣ、EnabledＤ、Default ２、若要使某可见控件获得焦点，则可使用（）方法来实现。 Ａ、RefreshＢ、SetfocusＣ、GotfocusＤ、Value ３、复选框或单选钮的当前状态可通过（）属性来返回或设置。 Ａ、CheckedＢ、ValueＣ、SelectedＤ、Caption ４、VB提供（）属性用于控制对象是否可用。 Ａ、DefaultＢ、CancelＣ、EnabledＤ、Visible ５、VB中可通过（）方法画圆 Ａ、PsetＢ、LineＣ、CircleＤ、Oval ６、可获得当前系统时间的函数是（） Ａ、Date()Ｂ、Time()Ｃ、IsDate()Ｄ、Year() ７、当用户在窗体上单击鼠标时，不会触发的事件是（） Ａ、ClickＢ、MouseDownＣ、MouseUpＤ、DblClick ８、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 Ａ、工程资源管理器窗口Ｂ、工具箱窗口Ｃ、代码窗口Ｄ、属性窗口 ９、设a=“VisualBasic”，下面使b=“Visual”的语句是 Ａ、b=Left(a,8,12)Ｂ、b=Mid(a,8,5)Ｃ、b=Rigth(a,6)Ｄ、b=Left(a,6)
一、单选题（30分，每题1分） 1．计算机中采用二进制，是因为__(1) ____。 (A)可降低硬件成本 (B)两个状态的系统具有稳定性 (C)二进制的运算法则简单 (D)上述三个原因 2．我们通常说的U盘属于计算机部件中的___(2) ___。 (A) 输出设备 (B) 输入设备 (C) 存储设备 (D) 打印设备 3.下列表示存储容量的数据中，____(3) ____是最小的。 (A)20480 KB (B) 1.44 MB (C) 1 GB (D)4865723 Byte 4. 一个完整计算机系统应包括___(4) ____。 (A) 主机和显示器 (B)硬件系统和软件系统 (C)系统软件和应用软件 (D) 内存和外存 5.下列执行速度最快的程序语言是___(5) ____。 (A)数据库语言 (B)高级语言 (C)机器语言 (D)汇编语言 6.一只白色的足球被踢进球门，则白色、足球、踢、进球门是___(6) ___。 (A)属性、对象、方法、事件 (B) 属性、对象、事件、方法 (C) 对象、属性、方法、事件 (D) 对象、属性、事件、方法 7. 以下叙述中正确的是____(7) ____。 (A)窗体的Name属性指定窗体的名称，用来标识一个窗体 (B)窗体的Name属性的值是显示在窗体标题栏中的文本 (C)可以在运行期间改变对象的Name属性的值 (D)对象的Name属性值可以为空 8. 在VB中，保存一个工程至少应保存两个文件，这两个文件分别是___(8) ____。 (A)文本文件和工程文件 (B)窗体文件和工程文件 (C)窗体文件和标准模块文件 (D)类模块文件和工程文件 9. 在下列说法中，正确的是___(9) ___ (A)通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上 (B)在列表框中不能进行多项选择 (C) VB系统不能在列表框中自动实现将项目按字母顺序从大到小排列 (D)复选框的Value属性值为布尔型 10.当一个复选框被选中时，它的Value属性的值是___(10) ___ (A) 3 ( B) 2 (C) 1 (D) 0 11.计算结果为0的表达式是___(11) ____ (A)Int(2.4)+Int(-2.8) (B)Cint(2.4)+Cint(-2.8) (C)Fix(2.4)+Int(-2.8) (D)Fix(2.4)+Fix(-2.8) 12.可以惟一标识控件数组中的每一个控件属性的是___(12) ____ (A)Name (B)Caption (C)Index (D)Enabled 13. 下列变量名中，合法的变量名是___(13) ____。 (A)m24 (B)mn-k (C)24m (D)m+n 14. 若有语句”Dim Flag As Boolean”，则下面赋值语句正确的是___(14) _____。 (A) Flag ="True" (B) Flag='True' (C)Flag=Ture (D)Flag=True 15. 下列叙述不正确的是___(15) _____。 (A)InputBox函数返回值为字符型 (B)MsgBox函数返回值为所单击按钮的键值 (C) MsgBox语句没有返回值 (D) MsgBox语句返回值为所单击按钮的键值 16. 若要在Text1的光标(焦点)移动到其它控件时进行合法性判断，则可使用__(16) __事件来实 现。 (A) Refresh (B) SetFocus (C) LostFocus (D) GotFocus 17.一般情况下，控件的大小是由___(17) ___属性确定的 (A) Width和Height (B) Top和Left (C) Width和Left (D) Top和Width 18．以下能判断是否到达文件尾的函数是__(18) ____ (A)BOF (B) LOC (C)LOF (D)EOF
VB常用字符串操作函数2009/11/25 18:321. ASC(X，Chr(X：转换字符字符码[格式]： P=Asc(X 返回字符串X的第一个字符的字符码 P=Chr(X 返回字符码等于X的字符 [范例]：(1P=Chr(65 ‘ 输出字符A,因为A的ASCII码等于65 (2P=Asc(“A” ‘ 输出65 2. Len(X：计算字符串X的长度 [格式]： P=Len(X [说明]：空字符串长度为0，空格符也算一个字符，一个中文字虽然占用2 Bytes，但也算 一个字符。 [范例]： (1 令X=”” (空字符串 Len(X 输出结果为0 (2 令X=”abcd” Len(X 输出结果为4 (3 令X=”VB教程” Len(X 输出结果为4 3. Mid(X函数：读取字符串X中间的字符 [格式]： P=Mid(X,n 由X的第n个字符读起，读取后面的所有字符。 P=Mid(X,n,m 由X的第n个字符读起，读取后面的m个字符。 [范例]： (1 X=”abcdefg” P=Mid(X,5 结果为：P=”efg” (2 X=”abcdefg” P=Mid(X,2,4 结果为 P=”bcde” 4. R eplace: 将字符串中的某些特定字符串替换为其他字符串 [格式]： P=Replace(X,S,R [说明]：将字符串X中的字符串S替换为字符串R，然后返回。[范例]：X=”VB is very good” P=Replace(X,good,nice 输出结果为：P=”VB is very nice” 5. StrReverse：反转字符串 [格式]： P=StrReverse(X [说明]：返回X参数反转后的字符串 [范例]：（1）X=”abc” P=StrReverse(X 输出结果：P=”cba” 6. Ucase(X，Lcase(X：转换英文字母的大小写 [格式]：P=Lcase(X ‘ 将X字符串中的大写字母转换成小写P=Ucase(X ‘ 将X字符串中的小写字母转换成大写 [说明]：除了英文字母外，其他字符或中文字都不会受到影响。 [范例]：（1）令X=”VB and VC” 则Lcase(X的结果为”vb and vc”，Ucase(X的结果为”VB AND VC” 7. InStr函数：寻找字符串 [格式]： P=InStr(X,Y 从X第一个字符起找出Y出现的位置 P=InStr(n,X,Y 从X第n个字符起找出Y出现的位置 [说明]：（1）若在X中找到Y，则返回值是Y第一个字符出现在X中的位置。（2） InStr(X,Y相当于 InStr(1,X,Y。（3）若字符串长度，或X为空字符串，或在X中找不到Y，则都 返回0。（4）若Y为空字符串，则返回0。 ---------------------------------------------------------------------------------------------- mid(字符串，从第几个开始，长度 ByRef 在[字符串]中[从第几个开始]取出[长度个字符串] 例如 mid("小欣无敌",1,3 则返回 "小欣无" instr(从第几个开始,字符串1,字符串2 ByVal 从规定的位置开始查找，返回字符
一、单选题（本大题共25题，每题2分，共50分） 1、不属于VB三种工作模式的是（）。 A.设计模式 B.运行模式 C.调试模式 D.中断模式 2、窗体的前景颜色由（）属性设置。 A.BorderStyle B.BackColor C.ForeColor D.FillStyle 3、当窗体被启动时，（）事件将会发生。 A.Load B.Unload C.QueryUnoad D.CLs 4、每个窗体对应一个窗体文件，窗体文件的扩展名是（）。 A..bas B.cls C.frm D.vbp 5、可用来清除窗体内容的方法是（）。 A.Print B.InputBox C.Cls D.Clear 6、下列语句有语法错误的是（）。 A.a＝5 B.b＝a C.b=“a” D.5=a 7、表达式1＋((2＋3)*2)*2的值是（）。 A.26 B.22 C.21 D.24 8、产生大于等于10且小于20的随机整数的表达式为（）。 A.Int(Rnd(10)＋10) B.Int(Rnd*10+10) C.Int(Rnd*10+11) D.Int(Rnd*20-10) 9、求字符串长度的函数是（）。 A.Len B.long C.Length D.Val 10、若要使定时器暂停，应将其（）属性设置值设为False。 A.Interval B.Value C.Text D.Enabled 11、下列可作为Visual Basic的变量名的是（）。 A.Abt B.TA C.IF D.A[B]T 12、VB中可用（）语句产生一消息框。 A. InputBox B.Shift C. Both D.MsgBox 13、以下程序段的输出结果是（） Print Format(12345.6,"0.00E+00") A.1.23E+04 B.1.23E+4 C.1.23456E+04 D.1.23456E+4 14、执行下面的语句后，所产生的信息框的标题是（）。 a = MsgBox("AAAA", "BBBB", "", 5) A.BBBB B.空 C.AAAA D.出错，不能产生信息框 15、以下程序段的输出结果是（）。 Print 1;2; Print 3 A.1 2 3 B.1 23 C.123 D.12 3 16、下列关于Do While …Loop和Do…Loop Until循环执行循环次数的描述正确的是（）。 A.Do While …Loop循环和Do…Loop Until循环至少都执行一次 B.Do While …Loop循环和Do…Loop Until循环可能都不执行 C.Do While …Loop循环至少执行一次和Do…Loop Until循环可能不执行循环 D.Do While …Loop循环可能不执行和Do…Loop Until循环至少执行一次 17、默认条件下，语句Dim a(3,4,5)定义的数组中所包含的数组元素的个数是（）。 A. 12 B.60 C.120 D.345 18、数学关系3≤x<10对应的Visual Basic表达式是（）。
二级VB模拟试题(1-1) 一、填空题（每空１分，共20分） １、ＶＢ是一种面向_____的可视化程序设计语言，采取了_____的编程机制。 ２、ＶＢ的对象主要分为_____和_____两大类。 ３、若要将窗体Form1隐藏起来，可使用方法_____；若要将窗体Form1显示出来，可使用方法_____来实现。 ４、在ＶＢ集成开发环境中，运行应用程序的方法有三种：一是_____；二是_____；三是_____。 ５、在ＶＢ中若要让某对对象获取焦点，则可通过_____方法来实现。 ６、ＶＢ提供的_____属性，用来控制对象是否可用，当属性值为_____时，表示对象可用，当属性值为_____时，表示对象不可用。 ７、ＶＢ提供的_____属性，用来控制对象是否可见，当属性值为_____时，表示对象可见，当属性值为_____时，表示对象不可见。 ８、在ＶＢ中，用来描述对象外部特征的量称之为对象的_____。 ９、为使某窗口中的命令按钮“取消(C)”具有如下特性：按“Alt＋C”键或按“ESC”键，均可代替用鼠标单击该按钮的操作，应设置该按钮的Caption属性值为_____，并且设置其_____属性值为_____。 二、选择题（每题２分，共40分） １、用于从字符串左边截取字符的函数是（） Ａ、Ltrim( )Ｂ、Trim( )Ｃ、Left( )Ｄ、Instr( ) ２、可获得当前系统日期的函数是（） Ａ、Date( )Ｂ、Time( )Ｃ、IsDate( )Ｄ、Year( ) ３、退出For循环可使用的语句为（） Ａ、Exit ForＢ、Exit DoＣ、End ForＤ、End Do ４、窗体的标题栏显示内容由窗体对象的（）属性决定。 Ａ、BackColorＢ、BackStyleＣ、TextＤ、Caption ５、程序运行时，若要通过回车键调用某命令按钮的Click事件过程，则可设置该命令按钮的（）属性值为True来实现。 Ａ、valueＢ、EnabledＣ、DefaultＤ、Cancel ６、标签框所显示的内容，由（）属性值决定。 Ａ、TextＢ、(名称)Ｃ、CaptionＤ、Alignment ７、文本框的（）属性用于设置或返回文本框中的文本内容。 Ａ、TextＢ、(名称)Ｃ、CaptionＤ、Name ８、计时器控件的（）属性用于设置Timer事件发生的时间间隔。 Ａ、StretchＢ、IntervalＣ、valueＤ、Length ９、滚动条的（）属性用于返回或设置滚动条的当前值。 Ａ、ＶalueＢ、MaxＣ、MinＤ、Data 10、若要向列表框添加列表项，可使用的方法是（） Ａ、AddＢ、RemoveＣ、ClearＤ、AddItem 11、图像框或图片框中显示的图形文件，由它们的（）性性值决定。 Ａ、DownPictureＢ、PictureＣ、ImageＤ、Icon 12、以下不属于键盘事件的是（） Ａ、KeyDownＢ、KeyUpＣ、UnloadＤ、KeyPress
基本操作题，请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码) 1、(1)在名为Form1的窗体上绘制两个标签(名称分别为Label1和Label2，标题分别为“长”和“宽”)、两个文本框(名称分别为Text1和Text2，Text属性均为空白)和一个命令按钮(名称为Command1，标题为“输入”)。编写命令按钮的Click事件过程，使程序运行后，若单击命令按钮，则先后显示两个“输入”对话框，在两个“输入”对话框中分别输入长和宽，并分别在两个文本框中显示出来，运行后的窗体如图21-1所示。 注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为sj1．vbp，窗体文件名为sj1．frm。 (2)在名为Form1的窗体上绘制一个标签(名称为Label1，标题为“输入”)、一个文本框(名称为Text1，Text属性为空白)和一个命令按钮(名称为Command1，标题为“显示”)。请编写命令按钮的Click事件过程，使程序运行后，在文本框中输入内容，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框中的内容。运行后的窗体如图21-2和图21-3所示。 注意：要求程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为Sj2．vbp，窗体文件名为sj2．frm。 2、(1)在窗体上添加通用对话框控件并编写适当的程序代码，要求程序运行时，双击窗口，可以弹出“颜色”对话框。程序运行时的窗体界面如图62-1所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为sj1．frm，工程文件名为sj2．vbp。 (2)在窗体上绘制出3个文本框，名称分别为Text1、Text2和Text3。要求程序运行时，焦点
要向C盘根目录下的名为my.txt的顺序文件中读出数据，应先使用_________语句打开文件。 复选框对象如果被选中，它的Value值为____________ 。 下列可作为Visual Basic 变量名的是____________。 以下能判断是否到达文件尾的函数是__________ 如果在实验课上进行程序调试，运行时遇到意外出错，最有效的做法是：看清系统错误原因提示信息，____________，以确定错误原因。 要想从子过程调用后返回两个结果，下面子过程语句说明合法的是 ____________ 。 在用通用对话框控件建立打开文件对话框时，在文件列表框中只允许显示txt和rtf类型的文件，则Filter属性的正确设置是_________。 在程序运行期间可以用____________函数把图形装入窗体、图片框或图像框。列表框List1中已有10个列表项，要显示列表框List1最后一项，有两种表示法， __________是正确的。 在默认情况下定义了10个元素的数组a，用变量n表示它的上界，有两种赋值语句，______________是正确的。 为了使控件对象不响应用户的事件，需要____________。 假定焦点已经位于文本框Text1中，则能够触发 KeyPress 事件的操作是 ____________。 设变量x = 1，y = -1，a = 5，b = -5，则以下表达式的值为“真”的是____________。单击滚动条控件的箭头按钮，滑块的移动幅度与_______________属性设置有关。在自定义函数中，可以通过____________返回值。 程序填空 单击窗体执行将所输入的整数插入排序后的原数组元素适当位置。 Function Insert(s(), ByVal key As Integer) As Integer Dim k%, i%, j% k = ___(1)_____ For i = 0 To UBound(s)
全国计算机等级考试二级VB模拟试题 一、选择题(每题2分，共计70分) 1.算法的时间复杂度是指 A、执行算法程序所需要的时间 B、算法程序的长度 C、算法执行过程中所需要的基本运算次数 D、算法程序中的指令条数 2.队列适用于下列哪一种应用? A、表达式求值 B、堆排序算法的实现 C、树的层次次序周游算法的实现 D、二叉树对称周游算法的实现 3.设二叉树根结点的层次为0，一棵深度为h的满二叉树的结点个数是____。 A、2的h次幂 B、2的h-1次幂 C、2的h次幂减1 D、2的h+1次幂减1 4.设有100个结点，用二分法查找时，最大比较次数是____。 A、25 B、50 C、10 D、7 5.在面向对象数据模型中，子类不但可以从其超类中继承所有的属性和方法，而且还可以定义自己的属性和方法，这有利于实现
A、可移植性 B、可扩充性 C、安全性 D、可靠性 6.软件工程方法的提出起源于软件危机，而其目的应该是最终解决软件的什么问题? A、产生危机 B、质量保证 C、开发效率 D、生产工程化 7.在结构化方法中，软件功能分解属于下列软件开发中的阶段是 A、详细设计 B、需求分析 C、总体设计 D、编程调试 8.下列条目中，哪些是DBMS的基本功能? I.提供用户对数据库结构的描述功能 II.提供用户对数据的操作功能 III.提供多用户环境下的事务管理 IV.分类组织、存储和管理各种数据 V.数据库的创建、转储和恢复 A、I、II和III B、II、III和IV C、I、II、III和IV D、都是
9.如果两个实体之间的联系是m:n，则____引入第三个交叉关系。 A、需要 B、不需要 C、可有可无 D、合并两个实体 10.基于"学生-选课-课程"数据库中如下三个关系： S(S#，SNAME，SEX，AGE)，SC(S#，C#，GRADE)，C(C#，CNAME，TEACHER) 查找学生号为"200301188"的学生的"数据库"课程的成绩，至少将使用关系 A、S和SC B、SC和C C、S和C D、S、SC和C 11.假定有如下事件过程： 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 表示按下的是鼠标左键
VB模拟试题 一、选择题（15分，每题1分） 1、VB集成开发环境共有三种模式，以下 __________ 三种模式是正确？ (A) 设计、运行、退出 (B)运行、中断、退出 (C) 设计、运行、中断 (D)运行、中断、结束 2、以下叙述中错误的是__________ (A) 事件过程是响应特定事件的一段程序 (B) 不同的对象可以具有相同名称的方法 (C) 对象的方法是执行指定操作的过程 (D) 对象事件的名称可以由编程者指定 3、如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是 __________ (A) 如果工程中含有Sub Main过程，则程序一定首先执行该过程 (B) 不能把含有Sub Main过程的标准模块设置为启动模块 (C) 用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体 (D) 任何时刻最多只有一个窗体是活动窗体 4、下列说法哪种正确？每次调用过程时，__________ (A) Dim声明的变量可保持原值；Static声明的变量会重新初始化。 (B) Static声明的变量可保持原值；Dim声明的变量会重新初始化。 (C) Dim、Static声明的变量都可以保持原来的值。 (D) Dim、Static声明的变量都会重新初始化。 5、表达式 5 Mod 3+3\5*2的值是__________ (A) 0 (B) 2 (C) 4 (D) 6 6、从字符串N的第5个字符开始，获取4个字符，应使用 _________。 (A) Len(N,5,4) (B) Mid(N,5,4) (C) Right(N,5,4) (D) Rtrim(N,5,4) 7、InputBox函数返回值的类型为 _________。 (A) 数值 (B) 字符串 (C) 变体 (D) 数值或字符串（视输入的数据而定） 8、语句Dim A(3, -2 to 2, 5)声明的数组A包含_________个数组元素。 (A) 120 (B) 75 (C) 60 (D) 13
一．选择题 1.三种基本结构中，能简化大量程序代码行的是（）。 A．顺序结构B．分支结构 C．选择结构D．重复结构 D。【解析】重复结构又称为循环结构，它根据给定的条件，判断是否需要重复执行某一相同或类似的程序段，利用重复结构可以简化大量的程序行。 2.下列关于栈的描述正确的是（）。 A．在栈中只能插入元素而不能删除元素B．在栈中只能删除元素而不能插入元素 C．栈是特殊的线性表，只能在一端插入或删除元素 D．栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素 C。【解析】根据数据结构对栈的定义及其特点可知：栈是限定只在表尾进行插入或删除操作的线性表，因此栈是先进后出的线性表，对栈的插入与删除操作，不需要改变栈底元素。栈是限定只在表尾进行插入或删除操作的线性表。 3.下列有关数据库的叙述，正确的是（）。 A．数据处理是将信息转化为数据的过程 B．数据的物理独立性是指当数据的逻辑结构改变时，数据的存储结构不变 C．关系中的每一列称为元组，一个元组就是一个字段 D．如果一个关系中的属性或属性组并非该关系的关键字，但它是另一个关系的关键字，则称其为本关系的外关键字 D。【解析】数据处理是指将数据转换成信息的过程，故选项A 叙述错误；数据的物理独立性是指数据的物理结构的改变不会影响数据库的逻辑结构，故选项B叙述错误；关系中的行称为元组，对应存储文件中的记录，关系中的列称为属性，对应存储文件中的字段，故选项C叙述错误。 4.概要设计中要完成的事情是（）。 A．系统结构和数据结构的设计B．系统结构和过程的设计 C．过程和接口的设计D．数据结构和过程的设计 A。【解析】软件概要设计的基本任务是：设计软件系统结构；数据结构及数据库设计；编写概要设计文档；概要设计文档评审。 5.下面排序算法中，平均排序速度最快的是（）。 A．冒泡排序法B．选择排序法 C．交换排序法D．堆排序法 D。【解析】在各种排序方法中，快速排序法和堆排序法的平均速度是最快的，因为它们的时间复杂度都是O（nlog2n），其他的排序算法的时间复杂度大都是O（n2）。 6.下列描述中正确的是（）。 A．软件工程只是解决软件项目的管理问题B．软件工程主要解决软件产品的生产率问题C．软件工程的主要思想是强调在软件开发过程中需要应用工程化原则 D．软件工程只是解决软件开发中的技术问题 C。【解析】软件工程是研究和应用如何以系统性的、规范化的、可定量的过程化方法来开发和维护软件，以及如何把经过时间考验而证明正确的管理技术和当前能够得到的最好的技术方法结合起来。软件工程的目标是生产具有正确性、可用性及开销合宜的产品，它的主要思想是强调在软件开发过程中需要应用工程化原则。 7.关系模型允许定义3类数据约束，下列不属于数据约束的是（）。 A．实体完整性约束B．参照完整性约束
【HNCE网上考试系统 v9.6】本套软件使用权属于：郑州大学 考试课程: 考试时间:100分钟考场:第一考场考试日期:2013.05.24 考号：姓名：剩余时间：99:42 保存交卷退出帮助 A B C D A B C D A B C D A B C D A B C D A B C D
A B C D A 命令 B 命令 C 命令 D 命令 A B C D A B C D A B C D A B C D A B
C D A B C D A B C D A 模块文件 B 件的属性 C 源文件 D 包含多个工程文件及属于该工程的其他文件 A 该窗体文件并没有被删除 B 窗体文件被删除 C 程仍然包含这个窗体 D A B C D A B C D
A B C D A B C D A可以实现交换两个变量值，而S2不能 B 个变量值，而S1不能 C 现交换两个变量值 D 现交换两个变量值 A B C D A B C D A 过程调用后均不保存值 B 有变量都是Static型的变量 C 所有变量都是Private型的变量 D 所有变量都是非全局Public A 用Dim语句或Static语句声明的变量 B 明它的过程
C Static语句声明的 D 程执行完毕后就被释放了 A B C D A B C D A B C D A B C D 声明段 A B C D A B C D A B
C D A B C D A B C D A B C D A 同 B Sub过程不可以 C 值，而Function过程能通过过程名返回值 D 或直接使用过程名调用，而 A工程中可以有多个窗体，但最多只能有一个窗体作为启动窗体 B 声明Public类型的变量来传递数据 C 大化、最小化或正常（保持设计时大小）等三种状态 D A 菜单 B 过程代码都放在窗体文件中 C 名必须相同 D 是设计阶段时显示的位置
一、单选题（30分，每小题1分） 1、（C ）字节称为一个MB。 （A）1024 （B）1000K （C）1024*1024 （D）10000K 2、计算机硬件系统的五大部件是（A ）。 （A）CPU、内存储器、输入设备、输出设备、外存储器 （B）运算器、控制器、存储器、输出设备、输入设备 （C）CPU、总线、存储器、外设、主板 （D）主机箱、显示器、音箱、鼠标、键盘 3、常用的输入设备有（A ）。 （A）键盘、鼠标、扫描仪（B）显示器、键盘、鼠标 （C）打印机、扫描仪、键盘（D）触摸屏、打印机、鼠标 4、计算机网络的主要作用是( D )。 (A) 数据处理(B) 信息传输与数据处理 (C) 文献查询(D) 资源共享与信息传输 5、二进制数1010等于十六进制数( C )。 (A) 10 (B) 11 (C) A (D) B 6、在VB中要强制显式声明变量，可在窗体模块或标准模块的声明段中加入语句( B )。 (A) Option Base 0 (B) Option Explicit (C) Option Base 1 (D) Option Compare 7、下列程序段的执行结果为( D )。 J1 = 10 J2 = 30 If J1 < J2 Then Print J2; Print J1 (A)10 (B)30 (C)10 30 (D)30 10 8、假设变量x1是一个布尔型(逻辑型)的变量，则下面正确的赋值语句是（C ） (A) x1="False" (B) x1='False' (C) x1=False (D) x1=#False# 9、在运行阶段，要在文本框Text1获得焦点时选中文本框中所有内容，对应的事件过程是（B ）。 (A) Private Sub Text1_LostFocus() Text1.SelStart=0 Text1.SelLength=Len(Text1.text) End Sub (B) Private Sub Text1_GotFocus() Text1.SelStart=0 Text1.SelLength=Len(Text1.text) End Sub (C) Private Sub Text1_SetFocus() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub (D) Private Sub Text1_Change() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub
一、单选题（30分，每小题1分） ◆一个完整计算机系统应包括___(1)____。 (A)主机、键盘、和显示器(B)硬件系统和软件系统 (C)主机和其他外部设备(D) 系统软件和应用软件 ◆打印机属于计算机部件中的___(2)___。 (A) 输出设备 (B) 输入设备 (C) 存储设备 (D) 缓冲设备 ◆下列表示存储容量的数据中，____(3)____是最大的。 (A)20480 KB (B) 1.44 MB (C) 1 GB (D) Byte ◆在计算机内部能够直接执行的程序语言是___(4)____。 (A)数据库语言 (B)高级语言(C)机器语言(D)汇编语言 ◆下列叙述正确的是___(5)____。 (A)程序设计就是编制程序 (B)程序的测试必须由程序员自己去完成 (C)程序经调试改错后还应进行再测试 (D) 程序经调试改错后不必进行再测试 ◆以下叙述中错误的是___(6)___。 (A)Visual Basic 是事件驱动型可视化编程工具 (B)Visual Basic应用程序不具有明显的开始和结束语句 (X) (C)Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性 (D)Visual Basic中控件的某些属性只能在运行时设置 ◆以下不属于VB工作模式的是___(7)___模式。 (A) 编译 (B) 设计 (C) 运行 (D) 中断 ◆以下语句的输出结果是___(8)___ 。 Print Format $(32548.5,“000,000.00”) (A) 32548.5 (B) 32,548.5 (C) 032,548.50 (D) 32,548.50 ◆若要使某可见控件获得焦点，则可使用___(9)_____方法来实现。 (A) Refresh (B) SetFocus(获得焦点) (C) Value (D) GotFocus（已经获得焦点） ◆在下列说法中，正确的是___(10)___。 (A)通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上 (B)在列表框中不能进行多项选择 (C)VB系统不能在列表框中自动实现将项目按字母顺序从大到小排列 (D)复选框的Value属性值为布尔型（0或1形） ◆执行以下程序段,输出的结果为___(11)___。 a$="abbacddcba" For i=6 To 2 Step -2 x=Mid(a,i,i): y=Left(a,i)
VB最简单入门教程
目录 （提示：按ctrl,并单击鼠标，可以跳到相应页） 1.1 1 我们需要什么 (3) 1.2 2 第二章：事件、属性及数据类型 (3) 1.3 3 第三章：VB语言 (6) 1.4 4-1第四章按钮（一） (12) 1.5 4- 第四章按钮（二） (199) 1.6 5 第五章菜单 (27) 1.7 6-1第六章输入（一） (34) 1.8 6-2第六章输入（二） (42) 1.9 6-3第六章输入（三） (52) 1.10 7第七章输出 (59) 附录 (63) 2.1 VB教程 (63)
1.1 1 我们需要什么 我们需要什么？当我们在一个精彩的游戏世界中游历了一番之后，或是惊叹于某一工具软件的小巧精致之余，多少总会产生些许编程的冲动。编程吗，在以前如果你对电脑还是一个门外汉，那实在是一件可望而不可及的事情。如果运用基于DOS下的编程语言，譬如C、Qbasic、Pascal等等，真不知何年何月才能有所成就。 编程是需要天赋的，你必须在大脑中对整个程序有一个清晰的轮廓，一个高效的流程，这并不是每个人都能做到的，你必须思之慎之，这也使编程变成一件最枯燥无味的事情。但在第四代计算机语言（可视化编程）出现后，可以确切的说它开发了人们的更多天赋，并不局限于那些头脑异常清晰的人，每一个人都可以发现自己也可以编出一些从前不敢问津的程序，想象力的充分发挥才是第四代语言的精粹。 Visual Basic（以下简称VB）可以说是可视化语言的先驱了，而且它也是可视化程度最高的一个，从几年前VB诞生之日起到现在，它已经经历了五个版本，而且现在微软正在紧张的进行着VB6.0的研制、测试，这么高的更新率，不外乎说明两个问题：用户对VB的热衷，微软对VB的重视。不可否认微软对市场的预测能力是极为高明的，而它强大的技术、财力支持也使它在许多以前未进入的领域，在不长的时间内有成为最有力的竞争对手，如IE之于浏览器领域，《帝国时代》之于游戏都是最好的例证。对于VB现在也有一个很强的竞争对手――Delphi，有人把它称作VB杀手，这显然有偏激之处，VB的确有它的不足之处，但Delphi 又何尝不是呢，而且以微软对VB的倾心，VB的功能必然会越来越强大。 VB的诞生 VB的出现可以说是Microsoft Windows的日渐成熟的必然产物。Microsoft Windows为程序员和最终用户提供了一个共同的人机界面。对用户，Windows提供了一个图形鼠标的操作环境，该环境对所有的应用程序都一样；对于程序员，Windows提供了一组预定义工具----称之为Microsoft Windows 的软件开发工具箱（SDK），该工具能使程序员建立一个与Windows界面相同的应用程序，而且，程序员不必关心最终用户的硬件配置情况。在这一开发环境中，程序员唯一困难的是Microsoft SDK提供了六百多个函数和与其一致的事件驱动（event-driven）编程技术。两种新方法的交叉使众多的程序员重新陷入困境，程序员不仅要掌握程序驱动编程技术和六百多个函数的功能，而且还得用C语言描述这些问题。因此一般情况下，程序员首先要掌握C程序设计技术，而后再开始学习SDK。这样的条件下就要求在Microsoft多任务环境下出现一种操作方便，使用简单的新工具－－－－Visual Basic由此诞生。 何为可视 英文Visual的意思是“视觉的”，“可视的Baisc”这个名字可能抽象了点，但实际上它却是最直观的编程方法，之所以叫做“可视”，你只要看到VB的界面就会明白，实际上你无需编程，就可以完成许多步骤。在VB中引入了控件的概念，在Windows中控件的身影无处不在，各种各样的按钮、文本框、无线钮，都是控件的种类，VB把这些控件模式化，并且每个控件都有若干属性用来控制控件的外观，工作方法。这样你就可以象在画板上一样，随意点几下鼠标，一个按钮就完成了，这些在以前的编程语言下是要经过相当复杂的工作的。