1、二级 VISUAL+BASIC 笔试-283 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.如果要将窗体中的某个命令按钮设置成不可见状态，应该设置命令按钮的什么属性（分数：2.00）A.ValueB.VisibleC.EnabledD.Default2.设 a=6，则执行x=IIF(a5，-1，0) 后，x 的值为（分数：2.00）A.5B.6C.0D.-13.下列有关数据库的描述，正确的是（分数：2.00）A.数据处理是将信息转化为数据的过程B.数据的物理独立性是指当数据的逻辑结构改变时，数据的存储结构不变C.关系中的每一列称为元组，一
2、个元组就是一个字段D.如果一个关系中的属性或属性组并非该关系的关键字，但它是另一个关系的关键字，则称其为本关系的外关键字4.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click() For i=1 To 4x=4For j=1 To 2x=x+6NextNextPrint xEnd Sub程序运行后，单击命令按钮，输出结果是（分数：2.00）A.12B.13C.16D.175.要使文本框可输入多行文字，要更改的默认选项是（分数：2.00）A.SorollBoars 和 MultiLineB.VisibleC.SorollBoarsD.以上都不是6.
3、将 E-R 图转换到关系模式时，实体与联系都可以表示成（分数：2.00）A.属性B.关系C.键D.域7.有 3 个关系 R、S 和 T 如下：（分数：2.00）A.并B.自然连接C.笛卡儿积D.交8.要触发组合框的 DblClick 事件，只有将组合框的 Style 属性设置为（分数：2.00）A.0B.1C.2D.39.在窗体上画一个通用对话框，其名称为 CommonDialog1，然后画一个命令按钮，并编写如下事件过程：Private Sub Command1_Click() CommonDialog1.Flags=vbOFNHideReadOnlyCommonDialog1.Filter
4、=“All Files(*.*)|*.*|Text Files(*.txt)|*.txtCommonDialog1.FilterIndex=1CommonDialog1.ShowOpenMsgBox CommonDialog1.FileNameEnd Sub程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是（分数：2.00）A.All Files(*.*)B.Text Files(*.txt)C.Batch Files(*.bat)D.All Files(*.*)|Text Files(*.txt)10.如果将文本框的 Locked 属性设置为 True，则以下
5、说法正确的是（分数：2.00）A.此时在属性窗口不可以修改文本框的 Text 属性值B.运行时用户不可以在界面修改文本框中的内容C.在程序代码中不可以修改文本框的内容，如不可以使用语句 Text1.Text=“aaa“，D.以上均不正确11.定义有 5 个整数型元素的数组，正确的语句是（分数：2.00）A.Dim a(4) As IntegerB.Option Base 1:Dim a(5)C.Dim a & (5)D.Dime a(5) As Integer12.为了避免流程图在描述程序逻辑时的不灵活性，Nassi 和 Shneiderman 提出了用方框图来代替传统的程序流程图，通常也把这
6、种图称为（分数：2.00）A.PAD 图B.N-S 图C.结构图D.数据流图13.算法的有穷性是指（分数：2.00）A.算法程序的运行时间是有限的B.算法程序所处理的数据量是有限的C.算法程序的长度是有限的D.算法只能被有限的用户使用14.函数过程 Fun1 的功能是：如果参数 b 为奇数，则返回值为 1，否则返回值为 0。Function Fun1(b As Integer) if _ ThenFun1=0ElseFun1=1End IfEnd Function使该功能完整，应在空行处填入以下哪条语句（分数：2.00）A.b Mod 20)B.y Mod 20D.y Mod 20premin
7、der=x/yx=yy=preminderLoopgys=xEnd Function以下是调用该函数的事件过程，该程序的运行结果是_。Private Sub Command1_Click() Dim a As Integer，b As Integera=10:b=2x=gys(a，b) Print xEnd Sub（分数：2.00）填空项 1:_46.语句 Form2.Show 0 表示 11 ；语句 Form3.Show 1 表示 12 ；（分数：4.00）填空项 1:_47.下列程序的功能是：将数据 1，2，8 写入顺序文件 Num.txt 中，请补充完整。Private Sub Form
8、_Click() Dim i As IntegerOpen “Num.txt“ For Output As #1For i=1 To 8_NextClose#1End Sub（分数：2.00）填空项 1:_48.下列事件过程的功能是：建立一个名为 Data1 的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为 1，2，3，90。请在空白处填入适当的内容，将程序补充完整。Private Type AngK As IntegerSinx As SingleCosx As SingleEnd TypeDim Ksc As AngPrivate Sub Form_Click() Dim
9、Y As SingleOpen 14 Y=3.14159/180For i=1 To 90Ksc.K=iKsc.Sinx=Sin(i*Y) Ksc.Cosx=Cos(i*Y) 15 Next iClose #2End Sub（分数：4.00）填空项 1:_二级 VISUAL+BASIC 笔试-283 答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.如果要将窗体中的某个命令按钮设置成不可见状态，应该设置命令按钮的什么属性（分数：2.00）A.ValueB.Visible C.EnabledD.Default解析：解析 Visible 属性是命令
10、按钮的状态属性，如果将该属性设为 True，则命令按钮可见；如果设置成 Flase，则命令按钮不可见。2.设 a=6，则执行x=IIF(a5，-1，0) 后，x 的值为（分数：2.00）A.5B.6C.0D.-1 解析：解析 IIF 方法根据表达式的值来快定返回其第 2 和第 3 个参数中的某一个，表达式是其第 1 个参数。在本题中 a5 为 True，所以返回的是-1。3.下列有关数据库的描述，正确的是（分数：2.00）A.数据处理是将信息转化为数据的过程B.数据的物理独立性是指当数据的逻辑结构改变时，数据的存储结构不变C.关系中的每一列称为元组，一个元组就是一个字段D.如果一个关系中的属性
11、或属性组并非该关系的关键字，但它是另一个关系的关键字，则称其为本关系的外关键字 解析：解析 数据处理是指将数据转换成信息的过程，故选项 A)叙述错误；数据的物理独立性是指数据的物理结构的改变，不会影响数据库的逻辑结构，故选项 B)叙述错误；关系中的行称为元组，对应存储文件中的记录，关系中的列称为属性，对应存储文件中的字段，故选项 C)叙述错误。4.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click() For i=1 To 4x=4For j=1 To 2x=x+6NextNextPrint xEnd Sub程序运行后，单击命令按钮，输出结果是（
12、分数：2.00）A.12B.13C.16 D.17解析：解析 观察程序，由于每次执行外层循环时 x 都被重新赋值，因此只要看到 i=4 时，执行内循环所得到的结果即可。5.要使文本框可输入多行文字，要更改的默认选项是（分数：2.00）A.SorollBoars 和 MultiLine B.VisibleC.SorollBoarsD.以上都不是解析：解析 MultiLine 被设置为 True 时可以使用多行文字，不用改 SorollBoars。6.将 E-R 图转换到关系模式时，实体与联系都可以表示成（分数：2.00）A.属性B.关系 C.键D.域解析：解析 关系数据库逻辑设计的主要工作是将
13、E-R 图转换成指定 RDBMS 中的关系模式。首先，从 E-R 图到关系模式的转换是比较直接的，实体与联系都可以表示成关系，E-R 图中属性也可以转换成关系的属性，实体集也可以转换成关系。7.有 3 个关系 R、S 和 T 如下：（分数：2.00）A.并B.自然连接C.笛卡儿积D.交 解析：解析 在关系运算中，交的定义如下：设 R1 和 R2 为参加运算的两个关系，它们具有相同的度n，且相对应的属性值取自同一个域，则 R1R2 为交运算，结果仍为度等于 n 的关系，其中，交运算的结果既属于 R1，又属于 R2。8.要触发组合框的 DblClick 事件，只有将组合框的 Style 属性设置为
14、（分数：2.00）A.0B.1 C.2D.3解析：解析 组合框的事件依赖于其 Style 属性，只有 Style 属性设置为 1 时，才能接收 DblClick 事件，因此只有 B)选项正确。9.在窗体上画一个通用对话框，其名称为 CommonDialog1，然后画一个命令按钮，并编写如下事件过程：Private Sub Command1_Click() CommonDialog1.Flags=vbOFNHideReadOnlyCommonDialog1.Filter=“All Files(*.*)|*.*|Text Files(*.txt)|*.txtCommonDialog1.Filter
15、Index=1CommonDialog1.ShowOpenMsgBox CommonDialog1.FileNameEnd Sub程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是（分数：2.00）A.All Files(*.*) B.Text Files(*.txt)C.Batch Files(*.bat)D.All Files(*.*)|Text Files(*.txt)解析：解析 通用对话框控件 CommonDialog1 的 Filter 属性用来指定在对话框中显示的文件类型。利用该属性可以设置多个文件类型，供用户在对话框“文件类型”的下拉列表中选择。F
16、ilter 的属性值由一对或多对文本字符串组成，每对字符串用管道符“|”隔开，在管道符“|”前面的部分称为描述，后面的部分一般为通配符文件扩展名，称为“过滤器”。如“*. txt”等，各对字符串间也用管道符隔开。其格式如下：窗体.对话框名.Filter=“描述符 1|过滤器 1|描述符 2|过滤器 2“如果省略窗体，则为当前窗体。本题执行语句后，可以在文件类型栏内通过下拉列表选择要显示的文件类型，而最初默认显示的文件类型(过滤器) 可以由 FilterIndex 属性来指定，该属性是一个整数。用Filter 属性设置多个过滤器后，每个过滤器都有一个值，第一个过滤器的值为 1，第二个过滤器的值为
17、2用 FilterIndex 属性可以指定作为默认显示的过滤器，本题中的值是 1，所以显示 All Files(*.*) 。10.如果将文本框的 Locked 属性设置为 True，则以下说法正确的是（分数：2.00）A.此时在属性窗口不可以修改文本框的 Text 属性值B.运行时用户不可以在界面修改文本框中的内容 C.在程序代码中不可以修改文本框的内容，如不可以使用语句 Text1.Text=“aaa“，D.以上均不正确解析：解析 文本框的 Locked 属性是用来指定文本框是否锁定，当设置值为 False(默认值)时，可以编辑文本框中的文本，当设置值为 True 时，可以滚动和选择控件中的
18、文本，但不可以编辑。11.定义有 5 个整数型元素的数组，正确的语句是（分数：2.00）A.Dim a(4) As Integer B.Option Base 1:Dim a(5)C.Dim a & (5)D.Dime a(5) As Integer解析：解析 在选项 B 中，语句 OptionBase1 不能放在过程中与 Dim 语句写在一行；选项 C 中，使用了多余的字符“&”；选项 D 中的关键字错误。选项 A 中的 4 表示最大下标的值，而起始下标默认为 0，数组包含 a(0)a(4)5 个元素。12.为了避免流程图在描述程序逻辑时的不灵活性，Nassi 和 Shneiderman 提
19、出了用方框图来代替传统的程序流程图，通常也把这种图称为（分数：2.00）A.PAD 图B.N-S 图 C.结构图D.数据流图解析：解析 N-S 图是由 Nossi 和 Shneideman 提出的一种符合程序化结构设计原则的图形描述工具。它的提出是为了改进流程图在描述程序逻辑时的不灵活性。13.算法的有穷性是指（分数：2.00）A.算法程序的运行时间是有限的 B.算法程序所处理的数据量是有限的C.算法程序的长度是有限的D.算法只能被有限的用户使用解析：解析 算法具有 5 个特性：有穷性：一个算法必须(对任何合法的输入值) 在执行有穷步之后结束，且每一步都可在有限时间内完成，即运行时间是有限的；
20、确定性：算法中每一条指令必须有确切的含义，读者理解时不会产生歧义。可行性：一个算法是可行的，即算法中描述的操作都可以通过已经实现的基本运算执行有限次来实现。输入：一个算法有零个或多个输入，这些输入取自于某个特定的对象的集合。输出：一个算法有一个或多个输出。14.函数过程 Fun1 的功能是：如果参数 b 为奇数，则返回值为 1，否则返回值为 0。Function Fun1(b As Integer) if _ ThenFun1=0ElseFun1=1End IfEnd Function使该功能完整，应在空行处填入以下哪条语句（分数：2.00）A.b Mod 20)B.y Mod 20D.y M
21、od 20preminder=x/yx=yy=preminderLoopgys=xEnd Function以下是调用该函数的事件过程，该程序的运行结果是_。Private Sub Command1_Click() Dim a As Integer，b As Integera=10:b=2x=gys(a，b) Print xEnd Sub（分数：2.00）填空项 1:_ （正确答案：5）解析：解析 本题的难点是 Do WhileLoop 循环控制问题。y=2、5、0.4 的过程中，最后 x=5。46.语句 Form2.Show 0 表示 11 ；语句 Form3.Show 1 表示 12 ；（分
22、数：4.00）填空项 1:_ （正确答案：11将窗体 Form2 作为无模式对话框显示12将窗体 Form3 作为模式对话框显示）解析：解析 显示窗体有两种模式：第一种模式显示窗体，其格式为窗体.Show VbMode1，使用该模式必须等本窗体运行结束后，才能继续运行后面的程序；第二种是非模式显示窗体，使用该模式则正好与第一种模式相反。47.下列程序的功能是：将数据 1，2，8 写入顺序文件 Num.txt 中，请补充完整。Private Sub Form_Click() Dim i As IntegerOpen “Num.txt“ For Output As #1For i=1 To 8_N
23、extClose#1End Sub（分数：2.00）填空项 1:_ （正确答案：Print#1，i）解析：解析 向文件中写入数据时用 Print 语句。48.下列事件过程的功能是：建立一个名为 Data1 的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为 1，2，3，90。请在空白处填入适当的内容，将程序补充完整。Private Type AngK As IntegerSinx As SingleCosx As SingleEnd TypeDim Ksc As AngPrivate Sub Form_Click() Dim Y As SingleOpen 14 Y=3.1415
24、9/180For i=1 To 90Ksc.K=iKsc.Sinx=Sin(i*Y) Ksc.Cosx=Cos(i*Y) 15 Next iClose #2End Sub（分数：4.00）填空项 1:_ （正确答案：14 “C:/Data1.txt“ For Random As #2 Len=1015 Put #2，i，Ksc）解析：解析 第 1 个空白行已经告诉我们是打开文件的语句，现在要将它填写完整。该语句应确定文件的存取方式是随机存取。在自定义变量中，有 3 个成员，其中角度为整型数据，占 2 个字节；弦和余弦函数值为单精度类型，各占 4 个字节，故文件的记录占 10 个字节。若不指定 Len 参数，则隐含一个记录占128 字节。为了节省存储空间，可在 Open 语句中只写 Len 参数值。程序中没有将数据写入随机文件的语句，第 2 个空白行应是 Put 语句。
