二级VISUAL+BASIC笔试85

二级VISUAL BASIC笔试85
(总分：94.00，做题时间：90分钟)
一、{{B}}选择题{{/B}}(总题数：35，分数：70.00)
1.为了避免流程图在描述程序逻辑时的灵活性，捉出了用方框图来代替传统的程序流程图，通常也把这种
图称为 ______。

（分数：2.00）
A.PAD图
B.N-S图√
C.结构图
D.数据流图
解析：[评析] 常见的过程设计工具有：程序流程图、N-S图、PAD图和HIPO图。

其中，为了避免流程图在描述程序逻辑时的灵活性，提出了用方框图来代替传统的程序流程图，通常也把这种图称为N-S图。

2.数据处理的最小单位是 ______。

（分数：2.00）
A.数据
B.数据元素
C.数据项√
D.数据结构
解析：[评析] 数据处理的最小单位是数据项；由若干数据项组成数据元素；而数据是指能够被计算机识别、存储和加工处理的信息载体：数据结构是指数据之间的相互关系和数据运算。

3.单个用户使用的数据视图的描述称为 ______。

（分数：2.00）
A.外模式√
B.概念模式
C.内模式
D.逻辑模式
解析：[评析] 外模式是用户的数据视图，也就是用户所见到的数据模式；全局数据视图的描述称为概念模式，即数据库中全部数据的整体逻辑结构的描述；物理存储数据视图的描述称为内模式，即数据库在物理
存储方面的描述；存储模式即为内模式。

4.以下叙述中错误的是 ______。

（分数：2.00）
A.打开—个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件
B.保存Visual Basic程序时，应分别保存窗体文件及工程文件
C.Visual Basic应用程序只能以解释方式执行√
D.事件可以由用户引发，也可以由系统引发
解析：[评析] Visual Basic应用程序可以以解释方式执行，也可以编译成可执行文件执行。

5.栈底至栈顶依次存放元素A、B、C、D，在第五个元素E入栈前，栈中元素可以出栈，则出栈序列可能是______。

（分数：2.00）
A.ABCED
B.DBCEA
C.CDABE
D.DCBEA √
解析：[评析] 栈操作原则上“后进先出”，栈底至栈顶依次存放元素A、B、C、D，则表明这4个元素中D 是最后进栈，B、C处于中间，A最早进栈。

所以出栈时一定是先出D，再出C，最后出A。

6.执行语句Open"Tel.dat"For Random As# 1 Len=50后，对文件Tel.dat中的数据能够执行的操作是______。

（分数：2.00）
A.只能写，不能读
B.只能读，不能写
C.既可以读，也可以写√
D.不能读，不能写
解析：[评析] Visual Basic访问文件的方式分为三类：有Input/Output/Append(访问顺序输入/输出文件)、Binary(访问二进制文件)、Random(访问随机存取文件)。

如果未指定方式，则以Random访问方式打开文件。

而以 Random形式打开的文件是既可以读，也可以写的。

7.在循环体中，可以使程序转让控制权，以便让操作系统处理其他的事件的语句是 ______。

（分数：2.00）
A.Exit Do
B.DoEvents √
C.End
D.Unload
解析：[评析] DoEvents的作用是转让控制权，以便让操作系统处理其他的事件。

在一些循环次数较多的循环体中使用DoEvems可以避免程序“不响应”。

8.在窗体上画两个滚动条，名称分别为Hscrolll、Hscroll2;六个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label4-Label6分别显示“A”、“B”、“A*B”等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值，Label3显示A*B的计算结果。

当移动滚动框时，在相应的标签中显示滚动条的值。

当单击命令按钮“计算”时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。

以下不能实现上述功能的事件过程是 ______。

（分数：2.00）
A.Private Sub Command1_Click() Label3.Caption=Str(Val(Label1.Captio*Val(Label2.Captio) End Sub
B.Private Sub Command1_Click() Label3.Caption=HScrollValue*HScroll2.Value End Sub
C.Private Sub Commandl_click() Label3.Caption=HScrolll*HScroll2 End Sub
D.Private Sub Command1_Click() Label3.Caption=HScrollText*HScroll2.Text End Sub √
解析：[评析] HScroll控件缺省属性为Value，即HScrolll与HScrolll.Value相等，而其属性中没有Text 属性。

9.在窗体上画—个名称为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 程序运行后，单击命令按钮，则窗体上显示的内容，是 ______。

（分数：2.00）
A.79
B.340
C.97 √
D.死循环
解析：[评析] Do...Loop While循环采用的是先执行循环体再判断条件的做法。

所以代码先执行了一次循环体，使得 s=9，a=7，再判断条件a＜=0为假，则终止循环。

10.以下能正确定义数据类型TelBook的代码是 ______。

（分数：2.00）
A.Type TelBook Name As String *10 TelNum As Integer End Type √
B.Type TelBook Name As String*10 TelNum As Integer End TelBook
C.Type TelBook Name String*10 TelNum Integer End Type TelBook
D.TypedefTelBook NameString*10 TelNum Integer End Type
解析：[评析] 用户可以利用Type语句定义自己的数据类型，其格式如下： Type数据类型名数据类型元素名As类型名数据类型元素名As类型名 ... End Type
11.下列有关数据库的描述，正确的是 ______。

（分数：2.00）
A.数据库是一个DBF文件
B.数据库是一个关系
C.数据库是一个鲒构化的数据集合√
D.数据库是一组文件
解析：[评析] 数据库(Database，简称DB)是数据的集合，它具有统一的结构形式并存放于统一的存储介质内，是多种应用数据的集成，并可被各个应用程序所共享。

数据库中的数据具有“集成”、“共享”之特点。

12.往窗体Form1上添加一个列表框控件List1，并编写如下代码： Private Sub Form_Load() For i=0 To 6 List1.AddItemi Next i End Sub 为了在程序运行时，按住Ctrl键单击列表中的项目可以选中多个项目，可以设置List1的属性 ______。

（分数：2.00）
A.List1.List
B.List1.ListIndex
C.List1. MultiSelect √
D.List1.Text
解析：[评析] Load事件是在窗体被装入工作区时触发的事件。

当应用程序启动时，自动执行该事件，所以该事件通常用来在启动应用时对属性和变量进行初始化。

而MouseDown、MouseUp是鼠标指针在某个对象上按键时激发的，Click是鼠标单击时激发的。

13.以下声明语句中错误的是 ______。

（分数：2.00）
A.Constvar1=123
B.Dimvar2='ABC' √
C.Dim intSum As Integer
D.Static var3 As Integer
解析：[评析] Visual Basic中Dim只能声明变量，而不能声明一个常量。

声明常量要用Const。

Static 则是用来定义一个静态变量的。

14.窗体的MouseDown事件过程Form _ MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)有4今参数，关于这些参数，正确的描述是 ______。

（分数：2.00）
A.通过Button参数判定当前按下的是哪一个鼠标键√
B.Shift参数只能用来确定是否按下Shift键
C.Shift参数只能用来确定是否按下Alt和Ctrl键
D.参数X，Y用来设置鼠标当前位置的坐标
解析：[评析] 窗体的MouseDown事件中，Button参数是用来判断当前按下的是哪个鼠标键(1表示左键，2表示右键，4表示中间按键)，Shift参数是用来判断Shift、Alt和Ctrl键有没有被按下(1表示Shift被按下，2表示Alt被按下，4表示Ctrl被按下，6表示Ctrl和Alt被同时按下等)，参数X，Y返回鼠标当前位置的坐标，而不是用来设置的。

15.在窗体上画—个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程： PrivateSubCommand1_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中显示的内容是 ______。

（分数：2.00）
A.10 √
B.20
C.30
D.40
解析：[评析] Select Case执行时，首先计算Select Case语句中的测试表达式的值，然后从第一个Case 开始找满足该值的Case语句，遇到第一个表达式列表值与测试表达式相匹配的Case语句，则执行其后的语句序列，然后跳出Select Case结构。

而本题第一个语句就满足条件，所以执行第一条语句，结果为x=10。

16.软件设计包括软件的结构、数据接口和过程设计，其中软件的过设计是指 ______。

（分数：2.00）
A.模块间的关系
B.系统结构部件转换成软件的过程描述√
C.软件层次结构
D.软件开发过程
解析：[评析] 软件设计包括软件结构设计、数据设计、接口设计和过程设计。

其中结构设计是定义软件系统各主要部件之间的关系；数据设计是将分析时创建的模型转化为数据结构的定义；接口设计是描述软件内部、软件和操作系统之间及软件与人之间如何通信；过程设计则是把系统结构部件转换成软件的过程性描述。

17.如果要在菜单中添加一个分隔线，则应将其Caption属性设置为 ______。

（分数：2.00）
A.=
B.*
C.&
D.- √
解析：[评析] 如果要在菜单的两个命令项之间添加一个分隔线，可在标题(Caption)文本框中输入一个连字符“-”。

18.在窗体上画一个名称为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 程序运行后，如果单击命令按钮，则在窗体上输出的内容为______。

（分数：2.00）
A.89
B.99
C.23 √
D.77
解析：[评析] 本题的循环过程如下：i=1时，x(1)=10，d=-10，c=10；i=2时，x(2)=12，d=2，c=12；i=3时，x(3)=21，d=23，c=21； i=4时，x(4)-32，d=55，c=32； i=5时，x(5)=24，d=23，c=32；
19.以下能判断是否到达文件尾的函数是 ______。

（分数：2.00）
A.BOF
B.LOC
C.LOF
D.EOF √
解析：[评析] Visual Basic中，LOC函数是用来在已打开的文件中指定当前读／写的位置，LOF函数是用来返回已打开文件的长度，EOF函数是用来判断是否到达已打开文件的尾部。

20.在窗体上画—个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim num As Integer num=1 DO Until num＞6 Print num; num=num+2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是 ______。

（分数：2.00）
A.13.45.8
B.1 3 5 √
C.1 4 7
D.无数据输出
解析：[评析] Do Until...Loop循环采用的是先判断循环条件后执行循环体的做法。

而用Until关键字表示当循环条件为False时执行循环体，直到条件为True时终止循环。

代码中，num是整型数据，循环体共被执行3次。

循环体第三次被执行后，num的值为7，故循环终止。

21.以下叙述中错误的是 ______。

（分数：2.00）
A.在工程资源管理器窗口中只能包含—个工程文件及属于该工程的其他文件√
B.以.BAS为扩展名的文件是标准模块文件
C.窗体文件包含该窗体及其控件的属性
D.—个工程中可以含有多个标准模块文件
解析：[评析] Visual Basic中可以定义工程组，此时的工程资源管理器窗口中可以看到多个工程文件及属于这些工程的其他文件。

22.设组合框Combol中有3个项目，则以下能删除最后一项的语句是 ______。

（分数：2.00）
boRemoveItem Text
boRemoveItem 2 √
boRemoveItem 3
boRemoveItem ComboListcount
解析：[评析] 在ComboBox控件中，RemoveItem方法是用来删除控件中的项目的，其表达式为：
object.RemoveItem index 其中，0{{U}}＜{{/U}}index主ComboBox.ListCount-1
23.设有如下程序： 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循环计算—个表达式的值，这个表达式是______。

（分数：2.00）
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
解析：[评析] 本题考查循环语句，其过程如下：i=1时，x=0/1=0，n=0+1=1，sum=0+0；i=2时，x=1/2，n=1+1=2，sum-0+1/2 i=3时，x=2/3，n=2+1-3，sum=0+1/2+2/3：i=4时，x=3/4，n=3+1=4，sum=0+1/2+2/3+3/4；i=5时，x=4/5，n=4+1=5，sum=0+1/2+2/3+3/4+4/5。

24.在窗体上画—个名称为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) Print "程序设计" End Sub Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print "Visual Basic"；End Sub 程序运行后，如果按A键，然后单击窗体，则窗体上显示的内容是______。

（分数：2.00）
A.Visual Basic
B.程序设计
C.A程序设计
D.Visual Basic程序设计√
解析：[评析] 因为程序一运行，文本框Text1获得焦点，按下A键后，执行Text1_KeyDown事件，在窗体上显示“Visual Basic”；这时再单击窗体，则触发Form MouseUp事件，在窗体上显示“程序设计”。

25.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() For n=1 To 20 If n Mod 3＜＞Then m=m+n/3 Next n Print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是 ______。

（分数：2.00）
A.15
B.18
C.21 √
D.24
解析：[评析] 本题考查的是For...Next循环语句。

For...Next循环执行时，先将初始值赋给循环变量，判断是否超过终值，若未超过则执行循环体，遇到Next语句后，循环变量增加一个步长(默认值为1)，再判断是否超过终值，若未超过则继续执行循环体，如此重复直到循环变量超过终值，退出循环。

本题中的循环变量为n，步长为1，当n=20时，再执行Next n，则n=21，此时n大于终值20，退出循环。

26.程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是 ______。

（分数：2.00）
A.MouseDown
B.MouseUp
C.Load
D.Click
解析：暂缺
27.如果—个工程含有多个窗体及标准模块，则以下叙述中错误的是 ______。

（分数：2.00）
A.如果工程中含有SubMain过程，则程序一定首先执行该过程√
B.不能把标准模块设置为启动模块
C.用Hide方法只是隐藏一个窗体，不自纵内存中清除该窗体
D.任何时该最多只有—个窗体是活动窗体
解析：[评析] 工程中首先执行的部分可以由编程人员自己设置，并不一定要先执行Sub Main过程。

28.线性表的顺序存储结构和线性表的链式存储结构分别是 ______。

（分数：2.00）
A.顺序存取的存储结构、顺序存取的存储结构
B.随机存取的存储结构、顺序存取的存储结构√
C.随机存取的存储结构、随机存取的存储结构
D.任意存取的存储结构、任意存取的存储结构
解析：[评析] 顺序存储结构中，数据元素存放在一组地址连续的存储单元中，每个数据元素地址可通过公式LOC(ai)=LOC(a1)+(i-1)L计算得到，从而实现了随机存取。

对于链式存储结构，要对某结点进行存取，都得从链的头指针指向的结点开始，这是一种顺序存取的存储结构。

29.以下有关数组定义的语句序列中，错误的是 ______。

（分数：2.00）
A.Static arrl(3) arrl(1)=100 arrl(2)="Hello" arrl(3)123.45
B.Dim arr2()As Integer Dim size As Integer Private Sub Command2_click() size=InputBox("输入:") ReDimarr2(siz End Sub
C.Option Base1 Private Sub Command3_click() Dim arr3(3)As Integer End Sub
D.Dim n As Integer Private Sub Command4_Click() Dim arr4(As Integer End Sub √
解析：[评析] 在数组定义中，定义的数组元素个数不能是变量。

而选项D中的n是一个变量。

30.数据结构中，与所使用的计算机无关的是数据的 ______。

（分数：2.00）
A.存储结构
B.物理结构
C.逻辑结构√
D.物理和存储结构
解析：[评析] 数据结构概念一般包括3个方面的内容，数据的逻辑结构、存储结构及数据上的运算集合。

数据的逻辑结构只抽象的反映数据元素之间的逻辑关系，而不管它在计算机中的存储表示形式。

31.需求分析阶段的任务是确定 ______。

（分数：2.00）
A.软件开发方法
B.软件开发工具
C.软件开发费用
D.软件系统功能√
解析：[评析] 需求分析是软件定义时期的最后一个阶段，它的基本任务就是详细调查现实世界要处理的对象(组织、部门、企业等)，充分了解原系统的工作概况，明确用户的各种需求，然后在此基础上确定新系统的功能。

选项A)软件开发方法是在总体设计阶段完成的任务：选项B)软件开发工具是在实现阶段需完成的任务；选项C)软件开发费用是在可行性研究阶段需完成的任务。

32.设有以下循环结构 Do 循环体 Loop While＜条件＞则以下叙述中错误的是 ______。

（分数：2.00）
A.若“条件”是—个为0的常数，则一次也不执行循环体√
B.“条件”可以是关系表达式、逻辑表达式或常数
C.循环体中可以使用ExitDo语句
D.如果“条件”总是为True，则不停地执行循环体
解析：[评析] Do...Loop While循环是先执行一次循环体，再判断条件是否为True，如为True，则继续执行循环体，如为False，则结束。

所以如果条件是一个为0的常数，即条件为False，则执行一次循环体后退出。

33.设a=10，b=5，c=1，执行语句Print a＞b＞c后，窗体上显示的是 ______。

（分数：2.00）
A.True
B.False √
C.1
D.出错信息
解析：[评析] 该打印语句是分为两步来执行的，先判断a＞b，即10＞5，结果为True：再判断True＞c，即True＞1，因为当把逻辑型值转化成数值型时，False转变成0，True转变成-1，即-1＞1，结果为False。

34.在单链表中，增加头结点的目的是 ______。

（分数：2.00）
A.方便运算的实现√
B.使单链表至少有—个结点
C.标识表结点中首结点的位置
D.说明单链表是线性表的链式存储实现
解析：[评析] 头结点不仅标识了表中首结点的位置，而且根据单链表<包含头结点)的结构，只要掌握了表头，就能够访问整个链表，因此增加头结点目的是为了便于运算的实现。

35.以下关于焦点的叙述中，错误的是 ______。

（分数：2.00）
A.如果文本框的TabStop属性为False，则不能接收从键盘上输入的数据√
B.当文本框失去焦点时，触发LostFocus事件
C.当文本框的Enabled属性为False时，其Tab顺序不起作用
D.可以用TabIndex属性改变Tab/顺序
解析：[评析] TabStop属性是用来判断是否能够使用Tab键来将焦点从一个对象移到另一个对象，它不能决定控件能否接收从键盘上输入的数据。

二、{{B}}填空题{{/B}}(总题数：12，分数：24.00)
36.算法的基本特征是可行性、确定性、{{U}} 【1】 {{/U}}和拥有足够的‘隋报。

（分数：2.00）
填空项1:__________________ （正确答案：有穷性）
解析：[评析] 算法是指解题方案的准确而完整的描述。

它有4个基本特征，分别是可行性、确定性、有穷性和拥有足够的情报。

37.顺序存储方法是把逻辑上相邻的结点存储在物理位置{{U}} 【2】 {{/U}}的存储单元中。

（分数：2.00）
填空项1:__________________ （正确答案：相邻）
解析：[评析] 常用的存储表示方法有4种，顺序存储、链式存储、索引存储、散列存储。

其中，顺序存储方法是把逻辑上相邻的结点存储在物理位置也相邻的存储单元中。

38.Jackson结构化程序设计方法是英国的M.Jackson提出的，它是一种面向{{U}} 【3】 {{/U}}的设计方祛。

（分数：2.00）
填空项1:__________________ （正确答案：数据结构）
解析：[评析] 结构化分析方法主要包括：面向数据流的结构化分析方法(SA，Structured analysis)，面向数据结构的Jackson方法(JSD，Jackson system development method)和面向数据结构的结构化数据系统开发方法(DSSD， Data structured system development method)。

39.数据库设计分为以下6个设计阶段：需求分析阶段、{{U}} 【4】{{/U}}、逻辑设计阶段、物理设计阶段、实施阶段、运行和维护阶段。

（分数：2.00）
填空项1:__________________ （正确答案：概念设计阶段或数据库概念设计阶段）
解析：[评析] 数据库设计分为以下6个设计阶段：需求分析阶段、概念设计阶段、逻辑设计阶段、物理设计阶段、实施阶段及数据库运行和维护阶段。

40.数据库保护分为：安全性控制、{{U}} 【5】 {{/U}}、并发性控制和数据的恢复。

（分数：2.00）
填空项1:__________________ （正确答案：完全性控制）
解析：[评析] 考查考生对数据库基本知识的了解。

安全性控制：防止未经授权的用户有意或无意存取数据库中的数据，以免数据被泄露、更改或破坏；完整性控制：保证数据库中数据及语义的正确性和有效性，防止任何对数据造成错误的操作；并发控制：正确处理好多用户、多任务环境下的并发操作，防止错误发生；恢复：当数据库被破坏或数据不正确时，使数据库能恢复到正确的状态。

41.下列表式有错误，正确的写法应该是{{U}} 【6】 {{/U}}。

[(a+B) +c]/80-5÷(d+e)
（分数：2.00）
填空项1:__________________ （正确答案：(a+b+c)/80-5/(d+e)）
解析：[评析] 在Visual Basic中：“+”不是合法的运算符。

括号不区分大、中、小括号，一律用小括号嵌套。

除号有两个：“/”，表示一般意义的除；“/”表示整除。

42.在窗体上画一个文本框和—个图片框，然后编写如下两个事件过程： Private Sub Form_Click()
Text1.Text="VB程序设计" End Sub Private Sub Textl Change() Picture1.Print"VB programming" End Sub 程序运行后，单击窗体，则在文本框中显示的内容是{{U}} 【7】 {{/U}}，而在图片框中显示的内容是{{U}} 【8】 {{/U}}。

（分数：2.00）
填空项1:__________________ （正确答案：[7]VB程序设计）
解析：[8] VB programming [评析] 文本框内容是因窗体的Click事件而改变，而PictureBox内容是因文本框内容的改变而改变的。

43.控件数组的名字由{{U}} 【9】 {{/U}}属性指定，而数组中的每个元素由{{U}} 【10】 {{/U}}属性指定。

（分数：2.00）
填空项1:__________________ （正确答案：[9]Name）
解析：[10]Index [评析] 返回或设置惟一的标识控件数组中一个控件的编号。

仅当控件是控件数组的元素时是有效的。

语法： object[(number)].Index。

44.在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下事件过程：Private Sub Form_Load() Show Text1.Text=" " Text2.Text=" " Text2.SetFocus End Sub Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) Text1. Text=Text1.Text+Chr(KeyCode-4) End Sub 程序运行后，如果在Text2文本框中输入“efghi”，则Text1文本框中的内容为{{U}} 【11】 {{/U}}。

（分数：2.00）
填空项1:__________________ （正确答案：ABCDE）
解析：[评析] 当用户在Text2中输入字符的时候，会触发Text2 事件。

该事件的处理代码使得Text1的
内容为在原内容的基础上追加一个字符。

追加的字符的ASCII值比输入的小4。

所以当输入efghi的时候，输出为ABCDE。

注意不是abode，因为KeyCode取的是键码，而不是ASCII码，小写字符的键码等于对应大写字符的ASCII码。

45.当用{{U}} 【12】 {{/U}}方式打开文件时，如果对文件进行写操作，则写入的数据附加到原来文件的
后面。

（分数：2.00）
填空项1:__________________ （正确答案：Append）
解析：[评析] 打开文件的语句为： Open pathname For mode[Access access][lock]As [#]filenumber [Len=reclength] 注：mode必要。

关键字，指定文件方式，有Append(追加)、Binary、Input、Output或Random方式。

如果未指定方式，则以Random访问方式打开文件。

其中Append方式的意思是“追加”。

46.以下Prime过程，用于判断一个数是否为素数。

素数是只能被1和数本身整除的自然数。

一个自然数不是素数，就是合数。

用被测试的数除以从2开始到该数本身的数，如果能除尽(余数为0)，则为合数；如果都除不尽(余数均不为0)，则为素数。

请在划线处将下面过程补充完整： Function Prime(inputvar As Integer)As Integer For i=2 To inputvar-1 If inputvar Mod i={{U}} 【13】{{/U}}Then Go To comfinish End If Next i Prime=inputvar Print"素数" Go To{{U}} 【14】{{/U}} comfinish：Prime=inputvar Print"合数" finish： End Function
（分数：2.00）
填空项1:__________________ （正确答案：[13]0）
解析：[14]finish [评析] 空1：当输入的数inputvar除以从2开始的数为何值时，能确定该数为合数。

显示，如果都能除尽，则为合数，故此处应当填入0。

空2：程序已做完素数或合数的判断，应当转向结束分支finish。

47.在窗体上画—个命令按钮，其名称为Command1，然后编写如下程序： Function M(x As Integer ,y As Integer) M=IIf(x＞y,x,y) End Function Private Sub Command1_Click() Dim a As Integer,b As Integer a=100 b=200 Print M(a,B) End Sub 程序运行后，单击命令按钮，输出结果为{{U}} 【15】 {{/U}}。

（分数：2.00）
填空项1:__________________ （正确答案：200）
解析：[评析] 该题主要考察自定义函数调用和IIf函数的使用。

IIf函数格式为IIf(expr,truepart，falsepart) 根据表达式的值，来返回两部分中的其中一个。

题目中调用M()时，x＜y所以返回值为y，即200。