1、二级 VISUAL+BASIC-8-1 及答案解析(总分：72.00，做题时间：90 分钟)一、选择题(总题数：25，分数：42.00)1.在窗体上画一个命令按钮，然后编写下列程序： Private Sub Command1 click( ) Dim a As Single，b As Single a=6:b=2 RC a，b Print a，b End Sub Sub RC(x As Single，y As Single) i=x x=i/y y=i Mod y End Sub（分数：1.00）A.4 3B.1 1C.3 0D.2 62.有如下函数过程： Function lj(x As I
2、nteger)As Long Dims As Long Dimi As Integer s=0 Fori=1 To x s=s+i Nexti lj=s End Funcfion 在窗体上添加一个命令按钮，名为 Commandl，编写事件过程调用该函数，输出结果为 _ 。 Private Sub Commandl_lick() Dimi As Integer Dim sum As Long Fori=1 To 5 sum=sum+lj(i) Nexti Print sum End Sub（分数：2.00）A.25B.35C.45D.553.在 Visual Basic 中最基本的对象是 _，它
3、是应用程序的基石。（分数：2.00）A.标签B.窗体C.文本框D.命令按钮4.以下叙述中错误的是 _ 。（分数：2.00）A.打开一个工程文件时，系统自动装入与该工程有关的窗体文件B.保存 Visual Basic 程序时，应分别保存窗体文件及工程文件C.Visual Basic 应用程序只能以解释方式执行D.窗体文件包含该窗体及其控件的属性5.设 a=10，b=5，c=1，执行语句 Print abc 后，窗体上显示的是 _。（分数：1.00）A.TrueB.FalseC.1D.出错信息6.数据库 DB、数据库系统 DBS、数据库管理系统 DBMS 之间的关系是（分数：2.00）A.DB 包
4、含 DBS 和 DBMSB.DBMS 包含 DB 和 DBSC.DBS 包含 DB 和 DBMSD.没有任何关系7.关系数据库系统存储与管理数据的基本形式是_。（分数：1.00）A.关系树B.节点路径C.二维表D.程序文件8.以下程序段的输出结果为 _。 X=1 Y=4 Do Until Y4 X=X*Y Y=Y+1 Loop Print X（分数：1.00）A.1B.4C.8D.209.通过 InputBox 函数可以产生输入对话框。若执行下列语句： st=InputBox(“请输入字符串“,“字符串对话框“,“字符串“) 运行程序，用户输入完毕并单击“确定”按钮后，st变量的内容为 _ 。
5、（分数：2.00）A.字符串B.请输入字符申C.字符串对话框D.用户输入内容10.某人为计算 n!(0n12)编写了下面的函数过程： Private Function Fun(n As Integer) As Long Dim p As Long p=1 For k=n-1 To 2 Step-1 p=p*k Next k fun=p End Function 在调试时发现该函数过程产生的结果是错误的，程序需要修改。下列的修改方案中有三种是正确的，错误的方案是（分数：2.00）A.把 p=1 改为 p=nB.把 For k=n-1 To 2 Step-1 改为 For k=1 To n-1C.
6、把 For k=n-1 To 2 Step-1 改为 For k=1 to nD.把 For k=n-1 To 2 Step-1 改为 For 2 To n11.下列叙述中正确的是 _（分数：2.00）A.数据的逻辑结构与存储结构必定是一一对应的B.由于计算机存储空间是矢量式的存储结构，因此，数据的存储结构一定是线性结构C.程序设计语言中的数组一般是顺序存储结构，因此，利用数组只能处理线性结构D.以上三种说法都不对12.在文本框中，要使键入的所有字符都显示“*”号，这时应该设置 _ 属性为“*”号。（分数：1.00）A.TextB.MultiLineC.ScrollBarsD.Password
7、Char13.在窗体上画一个通用对话框，其名称为 CommonDialogl，然后画一个命令按钮，并编写如下事件过程。Private Sub Command1_Click() CommonDialog1.Flags=vbOFNHideReadOnly CommonDialog1.Filter=“All Files(*.*)|*.*|Text Files(*.txt)|*.txt CommonDialog1.FilterIndex=1 CommonDialog1.ShowOpen MsgBox CommonDialog1.FileName End Sub 程序运行后，单击命令按钮，将显示一个“打
8、开”对话框，此时在“文件类型”框中显示的是（分数：1.00）A.All Files(*.*)B.Text Files(*.txt)C.*.txtD.All Files(*.*)|Text Files(*.*)14.如果要将文本框作为密码框使用，应设置的属性为 _ 。（分数：2.00）A.NameB.CaptionC.PasswordCharD.Text15.在 Visual Basic 中，下列运算符中优先级最高的是_。（分数：2.00）A.*B./C.D.Not16.在窗体上画一个命令按钮，然后编写如下代码： Private Sub Command1_Click() 0pen “d：/vb/
9、test.txt “For Input As #1 Print LOF(1) Close #1 End Sub 假设文件 d:/vb/test.txt 的内容为 I am a student，那么程序运行后，单击命令按钮，其输出结果为_.（分数：1.00）A.13B.14C.15D.1617.Sub 过程与 Function 过程最根本的区别是 _ 。（分数：2.00）A.Sub 过程可以使用 Call 语句或直接使用过程名调用，而 Function 过程不可以B.Function 过程可以有参数，Sub 过程不能有参数C.两种过程参数的传递方式不同D.Sub 过程的过程名不能有返回值，而 F
10、unction 过程能通过过程名返回值18.在数据结构中，根据各数据元素之间前后件关系的复杂程度，一般将数据结构分成两类，它们是_。（分数：2.00）A.动态结构和静态结构B.紧凑结构和非紧凑结构C.线性结构和非线性结构D.内部结构和外部结构19.设 a=5，b=6，c=7，d=8，执行下列语句后，x 的值为 _ 。 x=IIff(aB) And(cD) ,10,20)（分数：2.00）A.10B.20C.TrueD.False20.窗体上有一个列表框，编写下列程序： Private Sub Command1_Click() List1. RemoveItem3 End Sub Private
11、 Sub Form_Load() List1. AddItem “拉瓦锡“ List1. AddItem “道尔顿“ List1. AddItem “汤姆森“ List1. AddItem “门捷列夫“ End Sub 程序执行时，单击 Commandd1，则在列表框中将不再出现 _。（分数：3.00）A.拉瓦锡B.道尔顿C.汤姆森D.门捷列夫21.数据库系统的核心部分是_。（分数：1.00）A.数据模型B.数据库C.数据库管理系统D.计算机硬件22.设窗体上有一个滚动条，要求单击滚动条右端的(图片)按钮一次，滚动块移动一定的刻度值，决定此刻度值的属性是_。（分数：1.00）A.MaxB.Mi
12、nC.SmallChangeD.LargeChange23.设 a=3，b=5，c=2，d=6，则下面语句输出的是_。 Print45 * b Or a=c And bc Or cd（分数：2.00）A.FalseB.1C.TrueD.-124.需求解析中开发人员要从用户那里了解_。（分数：2.00）A.软件做什么B.用户使用界面C.输入的信息D.软件的规模25.下列函数中，能够得到一个字符串的一组函数是 _（分数：2.00）A.Leh 函数、Right 函数、Mid 函数B.LTrim 函数、RTrim 函数、Trim 函数C.Len 函数、LCase 函数、UCase 函数D.Space
13、函数、Len 函数、Trim 函数二、填空题(总题数：12，分数：30.00)26.在窗体上画一个文本框，名称为 Text1，画一个命令按钮，名称为 Commandl。程序运行时，单击命令按钮，能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件 test.dat 中。请在空白处填上适当的内容，将程序补充完整。 Private Sub Command1_Click() Open“c：/test.dat“For Output As #1 For I=1 to Len(Text1.text) 1 Next I Close #1 End Sub （分数：2.00）27.鼠标移动经过控件时，将触
14、发控件的 1 事件。 （分数：2.00）28.设有如下程序 Private Sub Search(a()As Variant， ByVal key As Variant， index%) Dim I% For I=LBound(a) To UBound(a) If key=a(I) Then Index=I Exit Sub End If Next I Index=-1 End Sub Private Sub Form Load() Show Dim b()As Variant Dim n As Integer b=Array(1，3，5，7，9， 11， 13， 15) Call Searc
15、h(b， 11， n) Print n End Sub 程序运行后，输出结果是 1。 （分数：2.00）29.阅读以下程序： Private Sub Form_click() Dim k,n,m As integer n=10 m=1 k=1 Do While k=n m=m+2 k=k+1 Loop Print m End Sub 单击窗体程序的执行结果是 _ 1_ 。 （分数：1.00）30.软件需求规格说明书应具有完整性、无歧义性、正确性、可验证性、可修改性等特征，其中最重要的是 1。 （分数：2.00）31.下列程序的输出结果为 1。 Sub OnGousbGotoDemo() Dim
16、 Number，MyString Number=2 On Number GoTo Line1, Line2 Exit Sub Line 1： MyString=“In Line 1“ Print MyString Line2： MyString=“In Line2“ Prnt MyString End Sub （分数：2.00）在程序的空白处填写适当的语句(一个空白处只能填写一条语句)，使程序完成相应的数据处理。Form_Load 事件过程给数组赋初值 35，48，15，22，67。Form_Click 事件过程对数组元素进行处理。 DimA rr(1 To 5) Private Sub Fo
17、rm_Load() 7 End Sub Private Form_Click() 8 If Int(x/3)=x/3 Then PrintX End If Next X End Sub（分数：4.00）在窗体上画 1 个命令按钮，其名称为 Command1，然后编写如下事件过程： PriVate Sub Commandl_CUck() Dimalt(1 To 100)As Integer Fori=1 To 100 arr(i)=Int(Rnd*1000) Nexti Max=arr(1) Min=arr(1) Fori=1 To 100 If 9 Then Max=arr(i) End If
18、 If 10 Then Min=arr(i) End If Nexti Print“Max=“；Max，“Min=“；Min End Sub 程序运行后，单击命令按钮，将产生 100 个 1000 以内的随机整数，放入数组 alt 中，然后查找并输出这100 个数中的最大值 Max 和最小值 Min，请填空。（分数：4.00）32.以下程序的功能是：把当前目录下的顺序文件 smtext1.txt 的内容读入内存，并在图片框 Picture1 中显示出来。请填空。 Private Sub Command1_Click 1 Dim inData As String Open “./mText1.t
19、xt“ 2 As 1 Do While Not EOF(1) Input #1, inData Picture1.Print inData Loop Close #1 End Sub （分数：2.00）33.窗体上有两个按钮，则执行程序后按键盘 Cancel 键的输出结果是 _ 1_ 。 Private Sub Command1 _ Click( ) Print“北京“； End Sub Private Sub Command2 _ Click( ) Print“南京“； End Sub Private Sub Form _ Load( ) Command2CancelTrue Command
20、1Cancel=True End Sub （分数：1.00）34.在程序运行执行闲置循环过程中，程序的控制权被系统占用。若要获得控制权，可以使用一个语句。这样用户可以在获得系统的控制权后进行其他操作。这个语句是 1。 （分数：2.00）请填写下列空白以实现运行后形成一个主对角线上元素值为 l，其他元素为 0 的 66 阶矩阵。 Private Sub Command1_Click() Dim s (6,6) For i=1 To 6 For i=1 To 6 If i=j Then 14 Else 15 End If Print 16 Next j Print Next i End Sub（分
21、数：6.00）二级 VISUAL+BASIC-8-1 答案解析(总分：72.00，做题时间：90 分钟)一、选择题(总题数：25，分数：42.00)1.在窗体上画一个命令按钮，然后编写下列程序： Private Sub Command1 click( ) Dim a As Single，b As Single a=6:b=2 RC a，b Print a，b End Sub Sub RC(x As Single，y As Single) i=x x=i/y y=i Mod y End Sub（分数：1.00）A.4 3B.1 1C.3 0 D.2 6解析：2.有如下函数过程： Function
22、 lj(x As Integer)As Long Dims As Long Dimi As Integer s=0 Fori=1 To x s=s+i Nexti lj=s End Funcfion 在窗体上添加一个命令按钮，名为 Commandl，编写事件过程调用该函数，输出结果为 _ 。 Private Sub Commandl_lick() Dimi As Integer Dim sum As Long Fori=1 To 5 sum=sum+lj(i) Nexti Print sum End Sub（分数：2.00）A.25B.35 C.45D.55解析：3.在 Visual Basi
23、c 中最基本的对象是 _，它是应用程序的基石。（分数：2.00）A.标签B.窗体 C.文本框D.命令按钮解析：解析 窗体是 VB 最基本的对象，它用于创建 VB 应用程序的用户界面或对话框，是包容用户界面或对话框所需的各种控件的容器。4.以下叙述中错误的是 _ 。（分数：2.00）A.打开一个工程文件时，系统自动装入与该工程有关的窗体文件B.保存 Visual Basic 程序时，应分别保存窗体文件及工程文件C.Visual Basic 应用程序只能以解释方式执行 D.窗体文件包含该窗体及其控件的属性解析：5.设 a=10，b=5，c=1，执行语句 Print abc 后，窗体上显示的是 _。
24、（分数：1.00）A.TrueB.False C.1D.出错信息解析：解析 该打印语句是分为两步来执行的，先判断 ab，即 105，结果为 True；再判断Truec，即 True1，因为当把逻辑型值转化成数值型时，False 转变成 0，True 转变成-1，即-11，结果为 False。6.数据库 DB、数据库系统 DBS、数据库管理系统 DBMS 之间的关系是（分数：2.00）A.DB 包含 DBS 和 DBMSB.DBMS 包含 DB 和 DBSC.DBS 包含 DB 和 DBMS D.没有任何关系解析：解析 数据库管理系统(DBMS)是数据库系统中实现各种数据管理功能的核心软件，它负
25、责数据库中所有数据的存储、检索、修改以及安全保护等，数据库内的所有活动都是在其控制下进行的。所以，DBMS 包含数据库 DB。操作系统、数据库管理系统与应用程序在一定的硬件支持下就构成 17 数据库系统。所以，DBS 包含 DBMS，也就包含 DB。选项 C 正确。7.关系数据库系统存储与管理数据的基本形式是_。（分数：1.00）A.关系树B.节点路径C.二维表 D.程序文件解析：8.以下程序段的输出结果为 _。 X=1 Y=4 Do Until Y4 X=X*Y Y=Y+1 Loop Print X（分数：1.00）A.1B.4 C.8D.20解析：解析 Do Until 语句是条件为 Fa
26、lse 的时候执行循环体。程序中的循环体只执行了一次，结果是x=4，y=5。最后输出的结果为 4。9.通过 InputBox 函数可以产生输入对话框。若执行下列语句： st=InputBox(“请输入字符串“,“字符串对话框“,“字符串“) 运行程序，用户输入完毕并单击“确定”按钮后，st变量的内容为 _ 。（分数：2.00）A.字符串B.请输入字符申C.字符串对话框D.用户输入内容 解析：解析 InputBox 函数用于产生一个输入对话框，在对话框中显示提示，等待用户在对话框的文本框中输入内容或按下按钮，然后返回包含文本框内容的字符串。10.某人为计算 n!(0n12)编写了下面的函数过程：
27、 Private Function Fun(n As Integer) As Long Dim p As Long p=1 For k=n-1 To 2 Step-1 p=p*k Next k fun=p End Function 在调试时发现该函数过程产生的结果是错误的，程序需要修改。下列的修改方案中有三种是正确的，错误的方案是（分数：2.00）A.把 p=1 改为 p=nB.把 For k=n-1 To 2 Step-1 改为 For k=1 To n-1 C.把 For k=n-1 To 2 Step-1 改为 For k=1 to nD.把 For k=n-1 To 2 Step-1
28、改为 For 2 To n解析：解析 题目要求计算 n!，而 n!=1*2*3*(n-1)*n，B 选项没有乘 n，所以本题的答案为 B。11.下列叙述中正确的是 _（分数：2.00）A.数据的逻辑结构与存储结构必定是一一对应的B.由于计算机存储空间是矢量式的存储结构，因此，数据的存储结构一定是线性结构C.程序设计语言中的数组一般是顺序存储结构，因此，利用数组只能处理线性结构D.以上三种说法都不对 解析：解析 数据的逻辑结构是指反映数据元素之间逻辑关系的数据结构。数据的存储结构(也称数据的物理结构)是指数据的逻辑结构在计算机存储空间中的存放形式。通常一种数据的逻辑结构根据需要可以表示成多种存储
29、结构。12.在文本框中，要使键入的所有字符都显示“*”号，这时应该设置 _ 属性为“*”号。（分数：1.00）A.TextB.MultiLineC.ScrollBarsD.PasswordChar 解析：解析 PasswordChar 属性：返回或设置一个值，该值指示所键入的字符或占位符在 TextBox 控件中是否要显示出来；返回或设置用作占位符。 为了在对话框中创建一个密码域应使用此属性。虽然能够使用任何字符，但是大多数基午 Windows 的应用程序使用星号(*)。 注意：如果 MultiLine 属性被设为 True，那么设置 PasswordChar,性将不起效果。 13.在窗体上画
30、一个通用对话框，其名称为 CommonDialogl，然后画一个命令按钮，并编写如下事件过程。Private Sub Command1_Click() CommonDialog1.Flags=vbOFNHideReadOnly CommonDialog1.Filter=“All Files(*.*)|*.*|Text Files(*.txt)|*.txt CommonDialog1.FilterIndex=1 CommonDialog1.ShowOpen MsgBox CommonDialog1.FileName End Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件
31、类型”框中显示的是（分数：1.00）A.All Files(*.*) B.Text Files(*.txt)C.*.txtD.All Files(*.*)|Text Files(*.*)解析：14.如果要将文本框作为密码框使用，应设置的属性为 _ 。（分数：2.00）A.NameB.CaptionC.PasswordChar D.Text解析：解析 文本框的 PasswordChar 设置是否在控件中显示用户输入的字符。如果该属性设置为某一字符，那么无论其 Text 属性值是什么，在文本框中都只显示该字符。15.在 Visual Basic 中，下列运算符中优先级最高的是_。（分数：2.00）
32、A.* B./C.D.Not解析：16.在窗体上画一个命令按钮，然后编写如下代码： Private Sub Command1_Click() 0pen “d：/vb/test.txt “For Input As #1 Print LOF(1) Close #1 End Sub 假设文件 d:/vb/test.txt 的内容为 I am a student，那么程序运行后，单击命令按钮，其输出结果为_.（分数：1.00）A.13B.14C.15 D.16解析：解析 本题中，应该注意 LOF()函数，其格式为：LOF(文件号)。该函数返回给文件分配的字节数(即文件的长度)。在这里文件的长度应该是
33、15(包括所有的空格以及标点符号)。17.Sub 过程与 Function 过程最根本的区别是 _ 。（分数：2.00）A.Sub 过程可以使用 Call 语句或直接使用过程名调用，而 Function 过程不可以B.Function 过程可以有参数，Sub 过程不能有参数C.两种过程参数的传递方式不同D.Sub 过程的过程名不能有返回值，而 Function 过程能通过过程名返回值 解析：解析 Function 过程与 Sub 过程的相似之处是：都可以获取参数，执行一系列语句，以及改变其参数值的独立过程；不同之处的是：Function 函数有返回值，可以在表达式的右边使用，使用方式与内部函数
34、一样，而 Sub 过程没有返回值。18.在数据结构中，根据各数据元素之间前后件关系的复杂程度，一般将数据结构分成两类，它们是_。（分数：2.00）A.动态结构和静态结构B.紧凑结构和非紧凑结构C.线性结构和非线性结构 D.内部结构和外部结构解析：解析 数据的逻辑结构抽象地反映数据元素之间的逻辑关系，即数据元素之间的前后件关系，而不管它在计算机中的存储表示形式。根据数据结构中各数据元素之间前后件关系的复杂程度，一般将数据结构分为两大类型：线性结构与非线性结构。19.设 a=5，b=6，c=7，d=8，执行下列语句后，x 的值为 _ 。 x=IIff(aB) And(cD) ,10,20)（分数：
35、2.00）A.10B.20 C.TrueD.False解析：解析 本题考查 IIf 函数。IIf 函数可用于执行简单的条件判断操作，其格式为 result=IIf(条件，True 部分，False 部分)，其中“result”是函数的返回值，“条件”是一个逻辑表达式。当“条件”为真时，IIf 函数返回“True 部分”的值，而当“条件”为假时返回“False 部分”的值。“True 部分”或“False 部分”可以是表达式、变量或其他函数。本题中由于(ab)And(cd)的结果为假，所以 x 的值为 20。20.窗体上有一个列表框，编写下列程序： Private Sub Command1_Cl
36、ick() List1. RemoveItem3 End Sub Private Sub Form_Load() List1. AddItem “拉瓦锡“ List1. AddItem “道尔顿“ List1. AddItem “汤姆森“ List1. AddItem “门捷列夫“ End Sub 程序执行时，单击 Commandd1，则在列表框中将不再出现 _。（分数：3.00）A.拉瓦锡B.道尔顿C.汤姆森 D.门捷列夫解析：解析 在窗体加载的时候，通过 Form Load 事件给列表框添加了四个选项。当单击 Command1 的时候，移去序号为 3 的选项，即“汤姆森”。21.数据库系统
37、的核心部分是_。（分数：1.00）A.数据模型B.数据库C.数据库管理系统 D.计算机硬件解析：解析 数据库系统(DBS)是指在计算机系统中引人数据库后的系统构成。因此，数据库系统不仅包括数据本身，还包括相应的硬件、软件和各类人员。在数据库系统中，数据库管理系统 DBMS 是在特定操作系统支持下建立、使用、维护和管理数据库的一种软件。数据库的一切操作都是通过数据库管理系统来实现的。数据库管理系统 DBMS 是数据库系统的核心部分。22.设窗体上有一个滚动条，要求单击滚动条右端的(图片)按钮一次，滚动块移动一定的刻度值，决定此刻度值的属性是_。（分数：1.00）A.MaxB.MinC.Small
38、Change D.LargeChange解析：解析 滚动条控件(HScroll 或者 VScroll)的属性和事件有： Min 和 Max 属性：Min 属性设置滚动框位于滚动条最左端或者最顶端时 Value 属性的值。Max 属性设置滚动框位于滚动条最右端或者最底端时 Value 属性的值。 SmallChange 属性：设置鼠标单击滚动箭头时滚动框移动的大小。 LargeChange 属性：设置鼠标单击滚动箭头和滚动框之间的区域时，滚动框的移动大小。23.设 a=3，b=5，c=2，d=6，则下面语句输出的是_。 Print45 * b Or a=c And bc Or cd（分数：2.0
39、0）A.False B.1C.TrueD.-1解析：解析 本题中包含的三种运算的优先级别由高到低依次为：算术运算符、比较运算符、逻辑运算符，Or 前面表达式的值为 False，两个 Or 之间表达式的值为 False，第二个 Or 后表达式的值也为False，And 的优先级比 Or 要高，所以最后输出的也是 False。因此，答案为 A) 。24.需求解析中开发人员要从用户那里了解_。（分数：2.00）A.软件做什么 B.用户使用界面C.输入的信息D.软件的规模解析：解析 需求解析是软件定义时期的最后一个阶段，它的基本任务就是准确回答“系统必须做什么”这个问题，即软件系统功能，需求解析的任务
40、还不是确定系统怎样完成它的工作，而仅仅是确定系统必须完成哪些工作，也就是对目标系统提出完整、准确、清晰、具体的要求。25.下列函数中，能够得到一个字符串的一组函数是 _（分数：2.00）A.Leh 函数、Right 函数、Mid 函数 B.LTrim 函数、RTrim 函数、Trim 函数C.Len 函数、LCase 函数、UCase 函数D.Space 函数、Len 函数、Trim 函数解析：解析 本题是对常用的字符串函数的考查。B 项中的 LTrim、RTrim、Trim 三个函数分别用来删除字符串左边的前导空格、删除右边的尾随空格、删除字符串前导和尾随的空格。它们的结果值不一定能得到一个
41、字符串，排除选项 B。Len 函数用来返回字符串的长度，得到的是一数值而不是一个字符串，故又可排除 C、D 选项。只有选项 A 是正确的。二、填空题(总题数：12，分数：30.00)26.在窗体上画一个文本框，名称为 Text1，画一个命令按钮，名称为 Commandl。程序运行时，单击命令按钮，能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件 test.dat 中。请在空白处填上适当的内容，将程序补充完整。 Private Sub Command1_Click() Open“c：/test.dat“For Output As #1 For I=1 to Len(Text1.text
42、) 1 Next I Close #1 End Sub （分数：2.00）解析：Print #1,Mid(text1.text,I,1)27.鼠标移动经过控件时，将触发控件的 1 事件。 （分数：2.00）解析：MouseMove解析 MouseDown、MouseUp，MouseMove 事件是鼠标在控件上按下、放开和移动时触发的事件。MouseDown 事件是在控件上按下任意鼠标按钮时发生的事件；MouseUp 事件是释放任意鼠标按钮时发生的事件；当鼠标指针在控件上移动时就会发生 MouaeMove 事件。28.设有如下程序 Private Sub Search(a()As Variant
43、， ByVal key As Variant， index%) Dim I% For I=LBound(a) To UBound(a) If key=a(I) Then Index=I Exit Sub End If Next I Index=-1 End Sub Private Sub Form Load() Show Dim b()As Variant Dim n As Integer b=Array(1，3，5，7，9， 11， 13， 15) Call Search(b， 11， n) Print n End Sub 程序运行后，输出结果是 1。 （分数：2.00）解析：5解析 本题综
44、合考查了数值的初始赋值，Sub 过程的建立与调用，For 循环控制语句等多项内容。本题的要点在于理解 Sub 过程 Search 所要表达的意思根据题意，Search 需要在数组 a()中寻找等于key 的数，如果找到了，则令 Index 等于该元素的下标值，如果没有找到，则令 Index 等于-1。据此，在调用 Search 时，11 为 b(8)的第 6 个元素，下标为 5，故 index 为 5。29.阅读以下程序： Private Sub Form_click() Dim k,n,m As integer n=10 m=1 k=1 Do While k=n m=m+2 k=k+1 Lo
45、op Print m End Sub 单击窗体程序的执行结果是 _ 1_ 。 （分数：1.00）解析：21 解析 本题的循环体共要执行 10 次，m 的最终值为 1+2*10=21。30.软件需求规格说明书应具有完整性、无歧义性、正确性、可验证性、可修改性等特征，其中最重要的是 1。 （分数：2.00）解析：无歧义性解析 软件需求规格说明书是需求分析阶段的最后成果，其最重要的特性是无歧义性，即需要规格说明书应该是精确的、无二义的。31.下列程序的输出结果为 1。 Sub OnGousbGotoDemo() Dim Number，MyString Number=2 On Number GoTo
46、Line1, Line2 Exit Sub Line 1： MyString=“In Line 1“ Print MyString Line2： MyString=“In Line2“ Prnt MyString End Sub （分数：2.00）解析：In Line2在程序的空白处填写适当的语句(一个空白处只能填写一条语句)，使程序完成相应的数据处理。Form_Load 事件过程给数组赋初值 35，48，15，22，67。Form_Click 事件过程对数组元素进行处理。 DimA rr(1 To 5) Private Sub Form_Load() 7 End Sub Private Fo
47、rm_Click() 8 If Int(x/3)=x/3 Then PrintX End If Next X End Sub（分数：4.00）解析：Arr=Anay(35,48,15,22,67)解析：For Each x In Arr在窗体上画 1 个命令按钮，其名称为 Command1，然后编写如下事件过程： PriVate Sub Commandl_CUck() Dimalt(1 To 100)As Integer Fori=1 To 100 arr(i)=Int(Rnd*1000) Nexti Max=arr(1) Min=arr(1) Fori=1 To 100 If 9 Then
48、Max=arr(i) End If If 10 Then Min=arr(i) End If Nexti Print“Max=“；Max，“Min=“；Min End Sub 程序运行后，单击命令按钮，将产生 100 个 1000 以内的随机整数，放入数组 alt 中，然后查找并输出这100 个数中的最大值 Max 和最小值 Min，请填空。（分数：4.00）解析：arr(i)Max 或 arr(i)=Max 或 Maxarr(i)或 Max=arr(i)解析：arr(i)Min 或 arr(i)=Min 或 Minarr(i)或 Min=arr(i)32.以下程序的功能是：把当前目录下的顺序文件 smtext1.txt 的内容读入内存，并在图片框 Picture1 中显示出来。请填空。 Private Sub Command1_Click 1 Dim inData As String Open “./mText1.txt“ 2 As 1 Do While Not EOF(1) Input #1, inData Picture1.Print inData Loop Close #1 End Sub （分数：2.00）解析：For Input33.窗体上有两个按钮，则执行程序后按键盘 Cancel 键的输出结果是 _ 1_ 。 Private Sub Com
