1、二级 VISUAL+BASIC 笔试-322 及答案解析(总分：92.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.如果对一个关系实施了一种关系运算后得到了一个新的关系，而且新的关系中属性个数少于原来关系中属性个数，这说明所实施的运算关系是 ( )（分数：2.00）A.选择B.投影C.连接D.并2.下面_不是 VB 的文件类控件。 ( )（分数：2.00）A.DriveListBox 控件B.DirListBox 控件C.FileListBox 控件D.MsgBox3.执行下面的语句后，所产生的信息框的标题是 ( )a=MsgBox(“AAAA”，“BBBB”，“
2、”，5)（分数：2.00）A.BBBBB.空C.AAAAD.出错，不能产生信息框4.Date Time 是一个 Date 类型的变量，以下赋值语句中正确的是 ( )（分数：2.00）A.DateTime=“5/12/03“B.Date Time=September 1， 2003C.DateTime=#12 :15 :30 AM#D.Date Time(“8/8/99“)5.下面语句中错误的是 ( )（分数：2.00）A.ReDim Preserve Matrix(10, UBound(Matrix, 2)+1)B.ReDim Preserve Matrix(UBound(Matrix, 1)
3、-4-1, 10)C.ReDim Preserve DynArray(UBound(DynArray)+1)D.ReDim DynArray(UBound(DynArray)+1)6.为清除 PietureBox 控件中的图形，下列方法正确的是 ( )（分数：2.00）A.Set Picturel. Picture=LoadPicture(“c:/Win1.bmp“, vbLPLarge, vbLPColor)B.Pieturel. Picture=LoadPicture(“c:/Win1.bmp“, vbLPLarge, vbLPColor)C.Set Picturel. PrietureL
4、oadPictureD.Priturel. PictureLoadPicture7.假定有以下两个过程：Sub S1(ByVal x As Integer, ByVal y As Integer)Dim t As Integert=Kx=yy=tEnd SubSub S2(x As Integer, y As Integer)Dim t As Integert=Kx=yy=tEnd Sub则以下说法中正确的是 ( )（分数：2.00）A.用过程 S1 可以实现交换两个变量值的操作，S2 不能实现B.用过程 S2 可以实现交换两个变量值的操作，S1 不能实现C.用过程 S1 和 S2 都可以实现
5、交换两个变量值的操作D.用过程 S1 和 S2 都不能实现交换两个变量值的操作8.对建立良好的程序设计风格，下面描述正确的是 ( )（分数：2.00）A.程序应简单、清晰、可读性好B.符号名的命名只要符合语法C.充分考虑程序的执行效率D.程序的注释可有可无9.如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是 ( )（分数：2.00）A.如果工程中含有 Sub Main 过程，则程序一定首先执行该过程B.不能把标准模块设置为启动模块C.用 Hide 方法只是隐藏一个窗体，不能从内存中清除该窗体D.任何时刻最多只有一个窗体是活动窗体10.在窗体中添加一个标签 LblResult 和一个命令
6、按钮 Command1，然后编写程序。程序的功能是单击命令按钮，计算 1+2+3+4+5 的值，并把结果转化为字符串显示在标签内，能够实现上述功能的程序段是， ( )（分数：2.00）A.Private Sub Command1_Click()Dim I,R As IntegerFor I=1 To 5 Step 1R=R+INextLblResult. Name=Str$ (R)End SubB.Private Sub Command1_ClickODim I,R As IntegerFor I=1 To 5 Step 1R=R+INextLblResult. Caption= Str$ (
7、R)End SubC.Private Sub Command1_Click()Dim I,R As IntegerDo While I5R=R+II=I+1LoopLblResult. Caption=Str$ (R)End SubD.Private Sub Command1_Click()Dim I,R As IntegerDoR=R+II=I+1Loop While I5LblResult. Caption=Str$ (R)End Sub11.下列选项中，不属于模块间耦合的是 ( )（分数：2.00）A.数据耦合B.同构耦合C.异构耦合D.公用耦合12.在 VB 中，过程共有三种，它们是
8、( )（分数：2.00）A.事件过程，子过程和函数过程B.Sub 过程，Function 过程和 Property 过程C.事件过程，函数过程和属性过程D.Sub 过程，函数过程和通用过程13.下面 4 项中不属于面向对象系统三要素的是 ( )（分数：2.00）A.属性B.类C.方法D.事件14.以下控件中不是标准控件的是 ( )（分数：2.00）A.水平滚动条和垂直滚动条B.ActiveX 控件C.文件列表框、目录列表框和驱动器列表框D.OLE 容器15.在软件测试设计中，软件测试的主要目的是 ( )（分数：2.00）A.实验性运行软件B.证明软件正确C.找出软件中全部错误D.发现软件错误而
9、执行程序16.若要求在文本框中输入密码时文本框中只显示#号，则应在此文本框的属性窗口中设置 ( )（分数：2.00）A.Text 属性值为#B.Caption 属性值为#C.PasswordChar 属性值为#D.PasswordChar 属性值为真17.在 Visual Basic 中，要使一个窗体不可见，但不从内存中释放，应使用的语句是( )（分数：2.00）A.ShowB.HideC.LoadD.UnLoad18.以下语句的输出结果是 ( )Print Format $ (3678. 234.“000，000，000“)（分数：2.00）A.000，003.678B.003，678.23
10、C.003，678.234D.000，003.67819.数据结构作为计算机的一门学科，主要研究数据的逻辑结构、对各种数据结构进行的运算，以及 ( )（分数：2.00）A.数据的存储结构B.计算方法C.数据映象D.逻辑存储20.单击命令按钮时，下列程序代码的运行结果为Private Sub Command1_Click()Print MyFunc(20, 18)End SubPublic Function MyFunc(m As Integer, n As Integer)As IntegerDo While mnDo While mn:m=m-n:LoopDo Whle mn:n=n-m:L
11、oopLoopMyFunc=mEnd Function（分数：2.00）A.0B.2C.4D.621.在窗体中添加一个命令按钮 Commandl 和一个文本框 Text1，编写命令按钮 Com-mand1 的 Click 事件代码；Private Sub Command1_Click()Dim S As String*20S=Text1. TextEnd Sub该程序的功能是当单击按钮 Command1 时，把变量 S 中内容写入一个顺序文件 datl. dar 中，正确的程序段是 ( )（分数：2.00）A.Open “datl. dat“, For lnput As#1Write 井 1,
12、SB.Open“datl. dat“ For Output As#1Write#1, SC.Open“dat“, For Binary As #1 Write #1, SClose #1D.Open datl. dat“For Random As #1Write #1, SClose #122.在窗体中添加一个命令按钮(其 Name 属性为 Command1)，然后编写如下代码：Option Base 1Private Sub Command1_Click()Dim aa=Array(2，4，6，8)j=1For i=4 To 1 Step-2ss+a(i)*jj=j*10Next iPrin
13、t 3End Sub运行上面的程序，单击命令按钮，其输出结果是 ( )（分数：2.00）A.2B.4C.8D.4823.窗体上有 3 个按钮 Commandl、Command2 和 Command3，如以下代码：Private Sub Commandl Click()Command2Enabled：Fal3eCommand3Vi3ibleFal3eEnd Sub该程序的功能是 ( )（分数：2.00）A.当单击按钮 Command1 时, Command2 和 Command3 按钮不可用B.当单击按钮 Command1 时, Command2 和 Command3 按钮不可见C.当单击按钮
14、Command1 时, Cammand2 按钮不可用和 Command3 按钮不可见D.当单击按钮 Command1 时, Command2 按钮不可见和 Command3 按钮不可用24.下列函数中，能够得到一个字符串的一组函数是 ( )（分数：2.00）A.Leh 函数、Right 函数、Mid 函数B.LTrim 函数、RTrim 函数、Trim 函数C.Len 函数、LCase 函数、UCase 函数D.Space 函数、Len 函数、Trim 函数25.执行语句 Open“C:/stu.dat“For Input As #2 之后，系统 ( )（分数：2.00）A.将 C 盘当前文件
15、夹下名为 stu. dat 的文件的内容读人内存B.在 C 盘当前文件夹下建立名为 stu 的顺序文件C.将内存数据存放在 C 盘当前文件夹下名为 stu. dat 的文件中D.将某个磁盘文件的内容写入 C 盘当前文件夹下名为 stu. dat 的文件中26.程序设计语言的基本成分是数据成分、运算成分、控制成分和 ( )（分数：2.00）A.对象成分B.变量成分C.语句成分D.传输成分27.假定在窗体上建立了一个通用对话框，其名称为 Cd1，用下面的语句可以建立一个对话框：Cdl. ShowPrinter与该语句等价的语句是 ( )（分数：2.00）A.Cd1. Action=2B.Cd1.
16、Action3C.Cd1 Action=4D.Cd1. Action528.已知有如下语句：s“hello, world“r=Mid(s，7，5)运行上面的语句后，变量 r 的值为 ( )（分数：2.00）A.“hello“B.“wotld“C.“llo,w“D.“orld“29.链表不具有的特点是 ( )（分数：2.00）A.不必事先估计存储空间B.可随机访问任一元素C.插入删除不需要移动元素D.所需空间与线性表长度成正比30.以下叙述正确的是 ( )（分数：2.00）A.组合框包含了列表框的功能B.列表框包含了组合框的功能C.组合框和列表框的功能完全不同D.组合框和列表框的功能完全相同31
17、.在数据管理技术的发展过程中，经历了人工管理阶段、文件系统阶段和数据库系统阶段。其中数据独立性最高的阶段是 ( )（分数：2.00）A.数据库系统B.文件系统C.人工管理D.数据项管理32.假定有一个菜单，名为 Menultem，为了运行时使该菜单项失效，应使用的语句为( )（分数：2.00）A.Menultem. Enabled=FalseB.Mennltem. EnabledTrueC.Menultem. Visible=TrueD.Menultem. Visible=False33.下列叙述中，正确的是 ( )（分数：2.00）A.用 ER 图能够表示实体集间一对一的联系、一对多的联系和
18、多对多的联系B.用 ER 图只能表示实体集之间一对一的联系C.用 ER 图只能表示实体集之间一对多的联系D.用 ER 图表示的概念数据模型只能转换为关系数据模型34.一些重要的程序语言(如 C 语言和 Pascal 语言)允许过程的递归调用。而实现递归调用中的存储分配通常用 ( )（分数：2.00）A.栈B.堆C.数组D.链表35.在 Visual Basic 集成环境创建应用程序时，除了窗体设计器、【工具箱】窗口、【属性】窗口以外，必不可少的窗口是 ( )（分数：2.00）A.代码编辑器窗口B.工程资源管理器窗口C.立即窗口D.窗体布局管理器二、填空题(总题数：11，分数：22.00)36.
19、当循环队列非空且队尾指针等于队头指针时，说明循环队列已满，不能进行人队运算。这种情况称为 【1】 。（分数：2.00）填空项 1:_37.软件工程的出现是由于 【2】 。（分数：2.00）填空项 1:_38.软件设计模块化的目的是 【3】 。（分数：2.00）填空项 1:_39.软件开发环境是全面支持软件开发全过程的 【4】 集合。（分数：2.00）填空项 1:_40.关系模型的完整性规则是对关系的某种约束条件，包括实体完整性、 【5】 和自定义完整性。（分数：2.00）填空项 1:_41.DIM a(3, -3 to 0, 3 to 6)AS STRING 语句定义的数组元素有 【6】 个。
20、（分数：2.00）填空项 1:_42.已知在窗体上有一个文本框控件，它的名称为 Text1，且输入的字符全部为数字，现在要把该字符转换为整数送给整型变量 C，所用到的语句是 【7】 。（分数：2.00）填空项 1:_43.通过选择组合框中的选项来改变文本框的字体。在窗体中添加一个组合框 (Combo1)和一个文本框(Text1)，代码如下。请填入适当的内容，将程序补充完整。Private Sub Combo1_Cliek()Text1. FontName=Combo1. List(Combo1. Listlndex)End SubPrivate Sub Form_Load()With Comb
21、olAddltem“宋体“Addltem“隶书“Addltem“黑体“Addltem“楷体_GB2312“Listlndex0End WithText1. 【8】 30Textl. 【9】 =Combol.List(0)End Sub（分数：2.00）填空项 1:_44.下面程序用“冒泡”法将数组 a 中的 10 个整数按升序排列，算法是：从数组的第 1 个元素开始，依次将相邻的两个数相比较(第 1 个数与第 2 个数，第 2 个数与第 3 个数如此重复)，若前面的数较大，则这两个数交换位置。这样执行一遍后，最后一个数已经是数组中最大的数。然后将数组的前 n-1 个数重复上述过程。如此继续，可
22、将数组排序，请将程序补充完整。Option Base 1Private Sub Command1_Click()Dim a()a=Array(678，45，324，528，439，387，87，875，273，823)Fori 【10】 Forj= 【11】If a(j) 【12】 a(j+1)Thena1=a(j)a(j)a(j+1)a(j+1)=alEnd lfNextjNext iFor i1 To 10Print a(i)Next iEnd Sub（分数：2.00）填空项 1:_45.面向对象的程序设计方法是把 【13】 封装起来作为一个对象，并为每一个对象设置所需要的 【14】 。（
23、分数：2.00）填空项 1:_46.在 C 盘当前文件夹下建立一个名为 StuData. txt 的顺序文件。要求用 InputBox 函数输入 5 名学生的学号(StuNo)、姓名(StuName)和英语成绩(StuEng)。Private Sub Form Click()Open“C: StuData. txt“For OutPut As#1Fori=1 To 5StuNo=InpuzztBox(“请输入学号”)StuName=InputBox(“请输入姓名”)StuEng=Val(InputBox(“请输入英语成绩”)【15】 Next iClose#1End Sub（分数：2.00）填
24、空项 1:_二级 VISUAL+BASIC 笔试-322 答案解析(总分：92.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.如果对一个关系实施了一种关系运算后得到了一个新的关系，而且新的关系中属性个数少于原来关系中属性个数，这说明所实施的运算关系是 ( )（分数：2.00）A.选择B.投影 C.连接D.并解析：解析 选择运算是对二维表进行行切割，执行后会删除某些元组。投影运算是对二维表的列操作，执行后去除某列属性。连接运算有选择的将两关系中取出的元组组合，属性列并不会减少。并运算同样不会减少属性列的个数。根据以上知识点可知选项 B 正确。2.下面_不是 VB 的
25、文件类控件。 ( )（分数：2.00）A.DriveListBox 控件B.DirListBox 控件C.FileListBox 控件D.MsgBox 解析：解析 为了管理计算机中的文件，VB 6.0 提供了一组文件系统控件来帮助用户管理文件系统。主要包括：驱动器列表框 (Drive ListBox)、目录列表框(Directory List Box)和文件列表框(File ListBox)。3.执行下面的语句后，所产生的信息框的标题是 ( )a=MsgBox(“AAAA”，“BBBB”，“”，5)（分数：2.00）A.BBBB B.空C.AAAAD.出错，不能产生信息框解析：解析 奉题主要是
26、对 MsgBox 函数的考查。执行语句 aMsgBox(“AAAA“，“ BBBB“，“，5)显示在对话框中的信息为 AAAA，对话框的标题是“BBBB”。故选项 A 正确。4.Date Time 是一个 Date 类型的变量，以下赋值语句中正确的是 ( )（分数：2.00）A.DateTime=“5/12/03“B.Date Time=September 1， 2003C.DateTime=#12 :15 :30 AM# D.Date Time(“8/8/99“)解析：解析 表示日期类型即 Date 类型数据时要用“#”括起来。分析各选项可知 C 项正确。5.下面语句中错误的是 ( )（分数
27、：2.00）A.ReDim Preserve Matrix(10, UBound(Matrix, 2)+1)B.ReDim Preserve Matrix(UBound(Matrix, 1)-4-1, 10) C.ReDim Preserve DynArray(UBound(DynArray)+1)D.ReDim DynArray(UBound(DynArray)+1)解析：解析 ReDim 语句的一般格式为：ReDim Preserve数组名(下标上界，下标上界)As 类型如果想在程序中知道数组的下界值和上界值可以使用 LBound 和 UBound 函数，格式为：LBound(数组名，维)
28、UBound(数组名，维)，题中可知数组 Matrix 是二维的，故 UBound(Matrix，1)有误，应为 UBound (Matrix，2)。选项 B 的语句错误。6.为清除 PietureBox 控件中的图形，下列方法正确的是 ( )（分数：2.00）A.Set Picturel. Picture=LoadPicture(“c:/Win1.bmp“, vbLPLarge, vbLPColor)B.Pieturel. Picture=LoadPicture(“c:/Win1.bmp“, vbLPLarge, vbLPColor)C.Set Picturel. PrietureLoadP
29、icture D.Priturel. PictureLoadPicture解析：解析 Set PicturelPicture= LoadPictures 可以清除 PictureBox 控件中的图形。选项 C 正确。7.假定有以下两个过程：Sub S1(ByVal x As Integer, ByVal y As Integer)Dim t As Integert=Kx=yy=tEnd SubSub S2(x As Integer, y As Integer)Dim t As Integert=Kx=yy=tEnd Sub则以下说法中正确的是 ( )（分数：2.00）A.用过程 S1 可以实现
30、交换两个变量值的操作，S2 不能实现B.用过程 S2 可以实现交换两个变量值的操作，S1 不能实现 C.用过程 S1 和 S2 都可以实现交换两个变量值的操作D.用过程 S1 和 S2 都不能实现交换两个变量值的操作解析：解析 本题主要是对调用方式的考查。在 S1 中实现的是传值调用，故不影响实际参数值。S2 过程中实现的是传址调用，影响到实际参数。故用过程 S2 可以实现两个变量值的操作，而 S1 不能实现。选项 B 正确。8.对建立良好的程序设计风格，下面描述正确的是 ( )（分数：2.00）A.程序应简单、清晰、可读性好 B.符号名的命名只要符合语法C.充分考虑程序的执行效率D.程序的注
31、释可有可无解析：解析 具有良好程序设计风格的程序应简单，清晰，可读性好。B、C、D 三个选项均违背了此设计风格，故选项 A 正确。9.如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是 ( )（分数：2.00）A.如果工程中含有 Sub Main 过程，则程序一定首先执行该过程 B.不能把标准模块设置为启动模块C.用 Hide 方法只是隐藏一个窗体，不能从内存中清除该窗体D.任何时刻最多只有一个窗体是活动窗体解析：解析 Sub Main 过程是具有启动应用程序功能的启动过程，即除了窗体模块以外，应用程序还可以由 Sub Main 过程启动。一般来说，在多重窗体工程中需要启动第一个显示窗体
32、前进行一些初始化工作，使用 Sub Main 过程就可以实现这一点，具体操作如下：在标准模块中添加一个 Sub Main 过程；然后，编写 Sub Main 过程中的初始化代码；最后，选择“工程”菜单的“工程属性”命令，单击“通用”选项卡，将其中的“启动对象”设置为SubMain；根据以上知识点可知：如果工程中含有 Sub Main 过程，则程序不一定首先执行该过程。10.在窗体中添加一个标签 LblResult 和一个命令按钮 Command1，然后编写程序。程序的功能是单击命令按钮，计算 1+2+3+4+5 的值，并把结果转化为字符串显示在标签内，能够实现上述功能的程序段是， ( )（分数
33、：2.00）A.Private Sub Command1_Click()Dim I,R As IntegerFor I=1 To 5 Step 1R=R+INextLblResult. Name=Str$ (R)End SubB.Private Sub Command1_ClickODim I,R As IntegerFor I=1 To 5 Step 1R=R+INextLblResult. Caption= Str$ (R)End Sub C.Private Sub Command1_Click()Dim I,R As IntegerDo While I5R=R+II=I+1LoopLbl
34、Result. Caption=Str$ (R)End SubD.Private Sub Command1_Click()Dim I,R As IntegerDoR=R+II=I+1Loop While I5LblResult. Caption=Str$ (R)End Sub解析：解析 标签的 Name 属性用于设置标签控件的名称，Caption 属性用于设置控件的标题。题中要把结果显示在标签内，应用 Caption 属性，排除选项 A。选项 C、D 项中都只计算了 1+2+3+4 的值，故不满足题意。只有 B 项是正确的。11.下列选项中，不属于模块间耦合的是 ( )（分数：2.00）A.数
35、据耦合B.同构耦合C.异构耦合 D.公用耦合解析：解析 本题主要考查模块间耦合的类型。模块之间的耦合程度反映了模块的独立性，也反映了系统分解后的复杂程度。按照耦合程度从弱到强，可以将其分成 5 级，分别是：数据耦合、同构耦合、控制耦合、公用耦合和内容耦合。没有选项 C 中的异构耦合这种耦合方式。12.在 VB 中，过程共有三种，它们是 ( )（分数：2.00）A.事件过程，子过程和函数过程B.Sub 过程，Function 过程和 Property 过程 C.事件过程，函数过程和属性过程D.Sub 过程，函数过程和通用过程解析：解析 VB 中有三种过程：Sub 过程、Function 过程和
36、Property(属性)过程。Property 过程用来设置和返回属性值。 Sub 过程常被其它事件过程调用，它并不与任何特定的事件直接相联系，它完成特定的任务，通过过程由用户创建。Function 过程用来返回一个函数值。13.下面 4 项中不属于面向对象系统三要素的是 ( )（分数：2.00）A.属性B.类 C.方法D.事件解析：解析 面向对象系统的三要素有：属性、方法、事件。属性是用来描述和反映对象特征的参数。方法是由 VB 6.0 系统提供的，它们是特定的过程和函数。事件是 VB 6.0 预先设置好的，能够被对象识别的动作，不同的对象能够识别不同的事件。14.以下控件中不是标准控件的是
37、 ( )（分数：2.00）A.水平滚动条和垂直滚动条B.ActiveX 控件 C.文件列表框、目录列表框和驱动器列表框D.OLE 容器解析：解析 滚动条、列表框、OLE 容器都是标准控件，只有 ActiveX 控件不是标准控件。选项 B 正确。15.在软件测试设计中，软件测试的主要目的是 ( )（分数：2.00）A.实验性运行软件B.证明软件正确C.找出软件中全部错误D.发现软件错误而执行程序 解析：解析 使用人工或自动手段来运行或测定某个系统的过程，其目的在于检验它是否满足规定的需求或是弄清预期结果与实际结果之间的差别。软件测试的目的是为了发现错误而执行程序的过程。测试要以查找错误为中心，而
38、不是为了演示软件的正确功能。16.若要求在文本框中输入密码时文本框中只显示#号，则应在此文本框的属性窗口中设置 ( )（分数：2.00）A.Text 属性值为#B.Caption 属性值为#C.PasswordChar 属性值为# D.PasswordChar 属性值为真解析：解析 文本框中的 Password- Char 属性表示字符串类型，允许设置一个字符，运行程序时，将输入到 Text 的内容全部显示为该属性值。题中要求在文本框中输入密码时文本框中只显示#号，则应在此文本框的属性窗口中设置 PasswordChar 属性值为#。17.在 Visual Basic 中，要使一个窗体不可见，
39、但不从内存中释放，应使用的语句是( )（分数：2.00）A.ShowB.Hide C.LoadD.UnLoad解析：解析 Show 和 Hide 使窗体在内存中，隐藏窗体用 Hide，重新显示用 Show; Load 和 UnLoad 是针对内存而言的，Load 是加载程序到内存，UnLoad 是从内存中卸载，释放内存。因此，本题的正确答案为B 项。18.以下语句的输出结果是 ( )Print Format $ (3678. 234.“000，000，000“)（分数：2.00）A.000，003.678B.003，678.23C.003，678.234D.000，003.678 解析：解析
40、本题主要是对输出格式的考查。输出数据的格式由 Format 函数确定， Format 函数的一般格式如下：Format(数值表达式，格式字符串)Format 与 Format $ 等效。格式字符串中描述符的作用如下：#：输出数字，不在输出的前后补 0。0：输出数字，在输出的前后补 0。：输出小数点。，输出千分位分隔符。%：输出百分比符号，同时转化数值。$：输出数字前加“$”。+或-：输出数字前加“+”或“-”。E+或 E-：指数形式输出。根据以上知识点可知选项 D 正确。19.数据结构作为计算机的一门学科，主要研究数据的逻辑结构、对各种数据结构进行的运算，以及 ( )（分数：2.00）A.数据
41、的存储结构 B.计算方法C.数据映象D.逻辑存储解析：解析 数据结构是研究数据元素及其之间的相互关系和数据运算的一门学科，它包含 3 方面的内容，即数据的逻辑结构、数据的存储结构及对各种数据结构进行的运算。故选项 A 正确。20.单击命令按钮时，下列程序代码的运行结果为Private Sub Command1_Click()Print MyFunc(20, 18)End SubPublic Function MyFunc(m As Integer, n As Integer)As IntegerDo While mnDo While mn:m=m-n:LoopDo Whle mn:n=n-m:
42、LoopLoopMyFunc=mEnd Function（分数：2.00）A.0B.2 C.4D.6解析：解析 本题主要考查对函数的定义和调用的理解。此题程序代码中，被调过程采用了 Do WhileLoop 的嵌套语句结构，主调过程只调用了一次被调过程，Print MyFunc (20，18)语句表明，程序最后输出的只是被调过程的返回值。主调过程在调用被调过程 MyFunc 时，把数值 20 和 18 分别传给形参 m 和 n，从被调过程中的循环语句来看，因为此时 m 的值大于 n 的值，所以执行语句 mm-n， m 的值变为 2，由语句 MyFuncm 可看出，此过程的返回值就是 m 的值即
43、 2。21.在窗体中添加一个命令按钮 Commandl 和一个文本框 Text1，编写命令按钮 Com-mand1 的 Click 事件代码；Private Sub Command1_Click()Dim S As String*20S=Text1. TextEnd Sub该程序的功能是当单击按钮 Command1 时，把变量 S 中内容写入一个顺序文件 datl. dar 中，正确的程序段是 ( )（分数：2.00）A.Open “datl. dat“, For lnput As#1Write 井 1,SB.Open“datl. dat“ For Output As#1Write#1, S
44、C.Open“dat“, For Binary As #1 Write #1, SClose #1D.Open datl. dat“For Random As #1Write #1, SClose #1解析：解析 引用文件时首先必须将文件打开或建立，可以使用 Open 语句完成这一工作。Open 语句的格式：Open pathname For 打开方式Access 存取类型锁定As#文件号Len记录长度题中主要考查了打开方式参数，打开方式有五种，分别为 Append(追加)、Binary(二进制)、Input(输入)、Output(输出)和Random (随机)方式。分析题意可知这里的打开方式
45、应为 Output(输出)方式。故选项 B 正确。22.在窗体中添加一个命令按钮(其 Name 属性为 Command1)，然后编写如下代码：Option Base 1Private Sub Command1_Click()Dim aa=Array(2，4，6，8)j=1For i=4 To 1 Step-2ss+a(i)*jj=j*10Next iPrint 3End Sub运行上面的程序，单击命令按钮，其输出结果是 ( )（分数：2.00）A.2B.4C.8D.48 解析：解析 由于语句 Option Base 1 的存在，则数组下标的下界是 1。Array 函数是用来给数组元素赋初值的，
46、它要求数组必须是一个变体变量名。题中语句Dim aa=Array(2，4，6，8)是将 2 赋给 a(1)，将 4 赋给 a(2)，将 6 赋给。a(3)，将 8 赋给 a(4)。分析 For 循环语句，可知循环一共执行了两次。i4 时，执行语句 ss+a(i)*j 相当于 s =0+a(4)*1(s 未被初始化，则默认为 0)得 s 的值为 8。接着执行语句 jj*10 相当于 j=1 *10，得 j 的值为 10。i2 时，执行语句 ss+a(i)*j 相当于 s8+a(2)*10(此次循环中的 s 和 j 均为上次循环所得结果值)得s 的值为 48。然后再执行语句 j=j*l0。最后执行
47、的语句 Prints，故最后的输出结果为 s 的值 48。23.窗体上有 3 个按钮 Commandl、Command2 和 Command3，如以下代码：Private Sub Commandl Click()Command2Enabled：Fal3eCommand3Vi3ibleFal3eEnd Sub该程序的功能是 ( )（分数：2.00）A.当单击按钮 Command1 时, Command2 和 Command3 按钮不可用B.当单击按钮 Command1 时, Command2 和 Command3 按钮不可见C.当单击按钮 Command1 时, Cammand2 按钮不可用和
48、Command3 按钮不可见 D.当单击按钮 Command1 时, Command2 按钮不可见和 Command3 按钮不可用解析：解析 本题主要是对命令按扭属性的考查。其中 Enabled 肩性用来表示按扭是否可用。Visible属性用来表示按扭是否可见。故选项 C 正确。24.下列函数中，能够得到一个字符串的一组函数是 ( )（分数：2.00）A.Leh 函数、Right 函数、Mid 函数 B.LTrim 函数、RTrim 函数、Trim 函数C.Len 函数、LCase 函数、UCase 函数D.Space 函数、Len 函数、Trim 函数解析：解析 本题是对常用的字符串函数的考查。B 项中的 LTrim、RTrim、Trim 三个函数分别用来删除字符串左边的前导空格、删除右边的尾随空格、删除字符串前导和尾随的空格。它们的结果值不一定能得到一个字符串，排除选项 B。Len 函数用来返回字符串的长度，得到的是一数值而不是一个字符串，故又可排除 C、D 选项。只有选项 A 是正确的。25.执行语句 Open“C:/stu.dat“For Input As #2 之后，系统 ( )（分数：2.00）A.将 C 盘当前文件夹下名为 stu. dat 的文件的内容读人内存 B.在 C 盘当
