【计算机类职业资格】二级VISUAL+BASIC-26-1及答案解析.doc

1、二级 VISUAL+BASIC-26-1 及答案解析(总分：69.50，做题时间：90 分钟)一、选择题(总题数：25，分数：40.50)1.使用 Line 控件在窗体上画一条从(0，0)到(600，700)的直线，则其相应属性的值应是_。（分数：1.00）A.X1=0，X2=600，Y1=0，Y2=700B.Y1=0，Y2=600，X1=0，X2=700C.X1=0，X2=0，Y1=600，Y2=700D.Y1=0，Y2=0，X1=600，X2=7002.在新建一个 VisualBasic 工程时，将新建窗体的 Name 属性设置为 TheFirst，则默认的窗体文件名为 _ 。（分数：2.

2、00）A.Form1.frmB.工程 1.frmC.TheFirst.frmD.Form1.vbp3.往窗体 Form1 上添加一个列表框控件 List1，并编写如下代码： Private Sub Form_Load() For i=0 To 6 List1.AddItemi Next i End Sub 为了在程序运行时，按住 Ctrl 键单击列表中的项目可以选中多个项目，可以设置 List1 的属性 _。（分数：1.00）A.List1.ListB.List1.ListIndexC.List1. MultiSelectD.List1.Text4.能对顺序文件进行输出的语句是_。（分数：2.

3、00）A.PutB.GetC.WriteD.Read5.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For i=1 To 4 x=4 For j=1 To 2 x=x+6 Next Next Print x End Sub 程序运行后，单击命令按钮，输出结果是（分数：2.00）A.12B.13C.16D.176.若要使标签控件显示时，不覆盖其背景内容，应设置标签控件的_属性。（分数：2.00）A.BackColorB.BorderStyleC.ForeColorD.BackStyle7.现有语句：y=IIf(x0，x Mod 3，0

4、) 设 x=10，则 y 的值是_。（分数：1.00）A.0B.1C.3D.语句有错8.Visual Basic 程序中分隔各语句的字符是 _ 。（分数：2.00）A.“B.:C./D._9.在窗体上画一个通用对话框，程序运行后，通过 ShowOpen 方法显示“打开”对话框，要求在该对话框的“文件类型”栏中只显示扩展名为.DOC 的文件，则对通用对话框的 Filter 属性的正确设置是_。（分数：2.00）A.“(*.DOC) *.DOC“B.“(*.DOC) (.DOC) “C.“(*.DOC) *.DOC“D.“(*.DOC) *.DOC“10.以下不属于对象的基本特点的是 _。（分数：

5、2.00）A.分类性B.多态性C.继承性D.封装性11.下列程序的运行结果是 Private Sub Form_Click() Dim k As Integer n5 m1 k1 Do mm+2 kk+1 Loop Until kn Print m End Sub（分数：1.00）A.1B.12C.11D.3212.Visual Basic 窗体设计器的主要功能是 _。（分数：1.00）A.建立用户界面B.编写源程序代码C.画图D.显示文字13.数据的完整性是指数据的正确性、有效性和_。（分数：1.00）A.可维护性B.独立性C.安全性D.相容性14.窗体上有名称为 Command1 的命令按

6、钮和名称为 Text1 的文本框 _ 。 Private Sub Command1_Click() Text1.Text=“程序设计“ Text1.SetFocus End Sub Private Sub Text1_GotFocus() Text1.Text=“等级考试“ End Sub 运行以上程序，单击命令按钮后 _ 。（分数：2.00）A.文本框中显示的是“程序设计”，且焦点在文本框中B.文本框中显示的是“等级考试”，且焦点在文本框中C.文本框中显示的是“程序设计”，且焦点在命令按钮上D.文本框中显示的是“等级考试”，且焦点在命令按钮上15.以下能够正确计算 1+2+3+10 的程序是

7、（分数：1.00）A.Private sub Command1_Click( )sum=0For 1=1 To 10Sum=sum+1，Next IPrint SumEnd SubB.Private sub Command1_Click( )Sum=0,I=1Do While l=10Sum=Sum+1I=I+1Print SumEnd SubC.Private Sub command1_click( )Sum=0：I=1DoSum=Sum+1I=I+1Loop While I10Print SumEnd SubD.Private Sub command1_ClickSum=0：I=1DoSu

8、m=Sum+1l=I+1Loop Until I10Print SumEnd Sub16.表达式 2*32+4*2/2+32 的值是_。（分数：1.00）A.30B.31C.49D.4817.在窗体上有一个名为 Text1 的文本框。当光标在文本框中时，如果按下字母键“A”，则被调用的事件过程是（分数：2.00）A.Form_KeyPress()B.Text1_LostFocus()C.Text1_Click()D.Text1_Change()18.结构化程序所要求的基本结构不包括_。（分数：3.00）A.顺序结构B.GOTO 跳转C.选择(分支)结构D.重复(循环)结构19. （分数：1.0

9、0）A.(-A)2 Log(Exp(k)/(A-B)(3-A)*(B+8)*Sin(75)B.(-A)2*Log(Exp(K)/Log(10)/(A-B)=(3-A)*(B8)*Sin(75/180*3.14159)C.(-A)2 Log(Exp(K)/(A-B)=(3-A)*(B+8)*Sin(75/180)D.(-A)2*Log(Exp(K)/Log(10)/(A-B)=(3-A)*(B+8)*Sin(75*3.14159)20.设有如下程序： Private Sub Form_Click() Dim ary(1 To 5)As Integer Dim i As Integer Dim s

10、um As Integer For i=1 To 5 ary(i)=i+1 sum=sum+ary(i) Next i Print sum End Sub 程序运行后，单击窗体，则在窗体上显示的是 _ 。（分数：2.00）A.15B.16C.20D.2521.在软件生产过程中，需求信息的来源是 _ 。（分数：2.00）A.程序员B.项目经理C.设计人员D.软件用户22.以下语句中那句可以选择指定的表项或取消已选择的表项（分数：1.00）A.列表框.Selected(索引值)B.列表框Selected(索引值)；True|FalseC.列表框.SelectedD.列表框.Selected=Tru

11、e |False23.下列不能打开代码窗口的操作是_。（分数：1.00）A.双击窗体上的某个控件B.双击窗体C.按F7键D.单击窗体或控件24.命令按钮 Command1 的事件过程如下： Private Sub Command1_Click() Dim art(5, 5)As Integer Dim i As Integer, j As Integer For i=1 To 4 For j=2 To 4 arr(i, j)=i+j Next j Next i Print arr(1, 3)+arr(3, 4) End Sub 执行上述过程，输出结果是（分数：2.50）A.6B.7C.11D.

12、1225.假定有下列两个过程： Private Sub PPP(a As Single, b As Single) a=a+b Print a, b b=a+b Print a, b End Sub Private Sub Form_Activate() x=18 Call PPP(x), (x) Print x End Sub 则下列说法中不正确的是 _ 。（分数：2.00）A.形参是 a 和 b，两个实参(x)和(x)允许重名B.形参是 a 和 b，实参(x)表示传值调用C.形参是 a 和 b，实参(x)表示是非传址调用D.形参是 a 和 b，两个实参(x)和(x)不允许重名二、填空题(总

13、题数：15，分数：29.00)26.下面的程序用冒泡法将数组 a 中的 10 个整数按升序排列，请在三处将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim a a=Array(678，45，324，528，439，387，87，875，273，823) For i= 1 For j= 2 If a(i) 3a(j)Then a1=a(i) a(i)=a(j) a(j)=a1 End If Next j Next i For i=1 To 10 Print a(i) Next i End Sub （分数：6.00）27.有如下事件过程：

14、 Private Sub Form_Active() Dim Score(1 to 3) As Integer Dim i As Integer Dim t As Variant For i=3 To 1 step-1 Score (i)=2*i Next For Each t In Score Print t Next End Sub 程序运行后窗体上显示的值为 1。 （分数：2.00）28.有以下程序： Private Sub Form_Activate() Fori=1 to 3 x=3 For i=i to 2 x=x+6 Next Next Print X End Sub 程序运行后

15、，窗体上显示的结果为 _ 1_ （分数：2.00）29.以下过程用来在 w 数组中插入 x，w 数组中的数已按由小到大的顺序存放，n 指存储单元中存放数组中数据的个数，插入后数组中的数仍有序。请填空补充程序。 Sub fun(w，x，n) Dim i，p p=0 w(n)=x Do While xw(p) 1 Loop For i=n to p+1 Step-1 w(i)= 2 Next i w(p)=x n=n+1 Sub End （分数：1.00）30.假定有如下程序代码，程序运行后，把鼠标光标移到窗体内，每单击一次，变换一种鼠标光标的形状，依次显示鼠标光标的 15 个属性。请在划线处将程

16、序补充完整。 Private Sub Form_Click( ) Static x As Integer Cls Print “Mousepointer Property is now “; x Forml. _ 1_ =x x=-x+1 If x = 15 Then x = 0 End Sub （分数：1.00）31.有一个事件过程，其功能是：从已存在于磁盘上的顺序文件 NM1.txt 中读取数据，计算读出数据的平方值，将该数据及其平方值存入新的顺序文件 NM2.txt 中。请填空。 Private Sub Form_Click0 Dim X As Single,y As Single Op

17、en“NM1.txt“For Input As #1 Open“NM2.txt“For OutputAs#2 Do While Not EOF(1) 1 Print X y=x2 Print#2,x,f Printy Loop Close#1,#2 End Sub （分数：2.00）32.已知变量 boo1 Var 是一个布尔型的变量，如果要给其赋值为 True，则正确的赋值语句就是 1。 （分数：2.00）33.软件工程的出现是由于 1。 （分数：1.00）34.一个控件在窗体上的位置由 Top 和 Left 属性决定，其大小由 _ 1_ 和 _ 2_ 属性决定。 （分数：1.00）35.由

18、 Array 函数建立的数组的名字必须是 _ 1_ 类型。 （分数：2.00）36.Visual Basic 程序在运行过程中，用户可通过按 _ 1_ 键进入中断状态。 （分数：1.00）37.如果存在如下过程： Private Function Fun(a()As Integer) Dim First As Integer，Last As Integer，i As Integer First=LBound(a) Last=LBound(a) Max=a(First) For i=First To Last If a(i)Max Then Max=a(i) Next Fun=Max End F

19、unction 在窗体上添加一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() ReDim in(1 To 4)As Integer m(1=20:m(2)=30:m(3)+50:m(4)=100 c=Fun(m) Print c End Sub 单击命令按钮，其输出结果为 1。 （分数：2.00）38.有序线性表进行二分查找的前提是该线性表必须是 _ 1_ 存储的。 （分数：2.00）39.有如下程序： Private Sub Command1_Click() j =10 For i= -1 To 1 Step 0.3 j =j + 1 Next

20、i Print j End Sub 该程序共循环 1 次，程序执行完毕后 j 的值是 2。 （分数：2.00）40.常用的软件结构设计工具是结构图(SC)，也称程序结构图。其中，用矩形表示 1，用带空心圆的箭头表示传递的是数据。 （分数：2.00）二级 VISUAL+BASIC-26-1 答案解析(总分：69.50，做题时间：90 分钟)一、选择题(总题数：25，分数：40.50)1.使用 Line 控件在窗体上画一条从(0，0)到(600，700)的直线，则其相应属性的值应是_。（分数：1.00）A.X1=0，X2=600，Y1=0，Y2=700 B.Y1=0，Y2=600，X1=0，X2=

21、700C.X1=0，X2=0，Y1=600，Y2=700D.Y1=0，Y2=0，X1=600，X2=700解析：解析 X1、Y1、X2、Y2 属性是直线的起点、终点坐标。故选 A。2.在新建一个 VisualBasic 工程时，将新建窗体的 Name 属性设置为 TheFirst，则默认的窗体文件名为 _ 。（分数：2.00）A.Form1.frmB.工程 1.frmC.TheFirst.frm D.Form1.vbp解析：解析 设置 Name 的属性其实就是给窗体重命名。窗体的文件名是由文件名和后缀名(.frm)组成，即“自定义名.frm”。3.往窗体 Form1 上添加一个列表框控件 Li

22、st1，并编写如下代码： Private Sub Form_Load() For i=0 To 6 List1.AddItemi Next i End Sub 为了在程序运行时，按住 Ctrl 键单击列表中的项目可以选中多个项目，可以设置 List1 的属性 _。（分数：1.00）A.List1.ListB.List1.ListIndexC.List1. MultiSelect D.List1.Text解析：解析 Load 事件是在窗体被装入工作区时触发的事件。当应用程序启动时，自动执行该事件，所以该事件通常用来在启动应用时对属性和变量进行初始化。而 MouseDown、MouseUp 是鼠标

23、指针在某个对象上按键时激发的，Click 是鼠标单击时激发的。4.能对顺序文件进行输出的语句是_。（分数：2.00）A.PutB.GetC.Write D.Read解析：5.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For i=1 To 4 x=4 For j=1 To 2 x=x+6 Next Next Print x End Sub 程序运行后，单击命令按钮，输出结果是（分数：2.00）A.12B.13C.16 D.17解析：解析 观察程序，由于每次执行外层循环时 x 都被重新赋值，因此只要看到 i=4 时，执行内循环所得到的

24、结果即可。6.若要使标签控件显示时，不覆盖其背景内容，应设置标签控件的_属性。（分数：2.00）A.BackColorB.BorderStyleC.ForeColorD.BackStyle 解析：7.现有语句：y=IIf(x0，x Mod 3，0) 设 x=10，则 y 的值是_。（分数：1.00）A.0B.1 C.3D.语句有错解析：解析 IIF 是条件函数，它的语法格式是： IIf(条件表达式，表达式为 True 时的取值，表达式为 False 时的取值)，本题中，x=10 时，条件表达式 x0 的值为 True，执行 x Mod 3 即 10 Mod 3 结果为 1。故选 B。8.Vis

25、ual Basic 程序中分隔各语句的字符是 _ 。（分数：2.00）A.“B.: C./D._解析：9.在窗体上画一个通用对话框，程序运行后，通过 ShowOpen 方法显示“打开”对话框，要求在该对话框的“文件类型”栏中只显示扩展名为.DOC 的文件，则对通用对话框的 Filter 属性的正确设置是_。（分数：2.00）A.“(*.DOC) *.DOC“B.“(*.DOC) (.DOC) “C.“(*.DOC) *.DOC“D.“(*.DOC) *.DOC“ 解析：解析 CommonDialog1.Filter=-“(*.DOC)*.DOC“，通过 ShowOpen 方法显示“打开”对话框

26、时对话框的“文件类型”栏中只显示扩展名为.DOC 的文件。10.以下不属于对象的基本特点的是 _。（分数：2.00）A.分类性B.多态性C.继承性 D.封装性解析：解析 对象有一些基本特点，即标识惟一性、分类性、多态性、封装性和模块独立性。11.下列程序的运行结果是 Private Sub Form_Click() Dim k As Integer n5 m1 k1 Do mm+2 kk+1 Loop Until kn Print m End Sub（分数：1.00）A.1B.12C.11 D.32解析：解析 本题主要是对 Do.Loop Until 循环语句的考查。当 Loop Until

27、后的条件不成立时，即退出循环。该题在 k 为 1、2、3、 4、5 时，都执行了循环语句，故一共执行了五次，同时 mm+2 也执行了五次，最后 m 的值增加了 10，故运行结果为 11。12.Visual Basic 窗体设计器的主要功能是 _。（分数：1.00）A.建立用户界面 B.编写源程序代码C.画图D.显示文字解析：解析 窗体设计器窗口简称窗体(Form)，是应用程序最终面向用户的窗口，它对应于应用程序的运行结果。13.数据的完整性是指数据的正确性、有效性和_。（分数：1.00）A.可维护性B.独立性C.安全性D.相容性 解析：14.窗体上有名称为 Command1 的命令按钮和名称为

28、 Text1 的文本框 _ 。 Private Sub Command1_Click() Text1.Text=“程序设计“ Text1.SetFocus End Sub Private Sub Text1_GotFocus() Text1.Text=“等级考试“ End Sub 运行以上程序，单击命令按钮后 _ 。（分数：2.00）A.文本框中显示的是“程序设计”，且焦点在文本框中B.文本框中显示的是“等级考试”，且焦点在文本框中 C.文本框中显示的是“程序设计”，且焦点在命令按钮上D.文本框中显示的是“等级考试”，且焦点在命令按钮上解析：解析 SetFocus 方法用于将焦点移到指定的对象

29、上，而当一个对象获得焦点时将触发其 GotFocus事件过程。15.以下能够正确计算 1+2+3+10 的程序是（分数：1.00）A.Private sub Command1_Click( )sum=0For 1=1 To 10Sum=sum+1，Next IPrint SumEnd Sub B.Private sub Command1_Click( )Sum=0,I=1Do While l=10Sum=Sum+1I=I+1Print SumEnd SubC.Private Sub command1_click( )Sum=0：I=1DoSum=Sum+1I=I+1Loop While I10

30、Print SumEnd SubD.Private Sub command1_ClickSum=0：I=1DoSum=Sum+1l=I+1Loop Until I10Print SumEnd Sub解析：解析 A 选项进行 10 次循环，分别将 1 至 10 累加给 Sum，故正确。选项 B 缺少 Loop 关键词，否则也是正确的。选项 C 与 D 由于受条件“Iclo“限制，Do 循环只能进行一次。16.表达式 2*32+4*2/2+32 的值是_。（分数：1.00）A.30B.31 C.49D.48解析：解析 根据 VB 中算术运算符的优先级顺序计算。先计算，即 2*9+4*2/2+9；再

31、计算*/，即18+4+9；最后计算+，结果为 31，故选 B。17.在窗体上有一个名为 Text1 的文本框。当光标在文本框中时，如果按下字母键“A”，则被调用的事件过程是（分数：2.00）A.Form_KeyPress()B.Text1_LostFocus()C.Text1_Click()D.Text1_Change() 解析：解析 按下字母键 A 将触发 Change 事件，调用的过程为 Text1_Change()。当按下并松开 A 键时触发 KeyPress 事件。Click 是鼠标单击事件，LostFocus 是失去焦点事件，按下 A 键后光标还在文本框中，未失去焦点。18.结构化程

32、序所要求的基本结构不包括_。（分数：3.00）A.顺序结构B.GOTO 跳转 C.选择(分支)结构D.重复(循环)结构解析：解析 1966 年 Boehm 和 Jacopini 证明了程序设计语言仅仅使用顺序、选择和重复三种基本控制结构就足以表达出各种其他形式结构的程序设计方法。19. （分数：1.00）A.(-A)2 Log(Exp(k)/(A-B)(3-A)*(B+8)*Sin(75)B.(-A)2*Log(Exp(K)/Log(10)/(A-B)=(3-A)*(B8)*Sin(75/180*3.14159) C.(-A)2 Log(Exp(K)/(A-B)=(3-A)*(B+8)*Sin

33、(75/180)D.(-A)2*Log(Exp(K)/Log(10)/(A-B)=(3-A)*(B+8)*Sin(75*3.14159)解析：20.设有如下程序： Private Sub Form_Click() Dim ary(1 To 5)As Integer Dim i As Integer Dim sum As Integer For i=1 To 5 ary(i)=i+1 sum=sum+ary(i) Next i Print sum End Sub 程序运行后，单击窗体，则在窗体上显示的是 _ 。（分数：2.00）A.15B.16C.20 D.25解析：解析 本题是一个简单的循环累

34、加问题，在每次循环中累加 i+1，即最后输出结果为2+3+4+5+6=20。21.在软件生产过程中，需求信息的来源是 _ 。（分数：2.00）A.程序员B.项目经理C.设计人员D.软件用户 解析：解析 软件需求是指用户对目标软件系统在功能、性能、设计约束等方面的要求，是由用户提出的。22.以下语句中那句可以选择指定的表项或取消已选择的表项（分数：1.00）A.列表框.Selected(索引值)B.列表框Selected(索引值)；True|False C.列表框.SelectedD.列表框.Selected=True |False解析：解析 Selected 属性实际上是一个数组，每个元素的值

35、为 True 或 False，每个元素与列表框中的一项相对应。当元素的值为 True 时，表示选择了该项；当元素的值为 False 时，表示未选择该项。列表框名 Selected(索引值)；True|False 语句可以选择指定的表项或取消已选择的表项。由于 Selected是个数组，所以如果语句中缺少了索引值就不正确了。23.下列不能打开代码窗口的操作是_。（分数：1.00）A.双击窗体上的某个控件B.双击窗体C.按F7键D.单击窗体或控件 解析：24.命令按钮 Command1 的事件过程如下： Private Sub Command1_Click() Dim art(5, 5)As In

36、teger Dim i As Integer, j As Integer For i=1 To 4 For j=2 To 4 arr(i, j)=i+j Next j Next i Print arr(1, 3)+arr(3, 4) End Sub 执行上述过程，输出结果是（分数：2.50）A.6B.7C.11 D.12解析：解析 本题中首先在一个二重循环中给二维数组 arr 的部分元素赋值，循环结束后输出两个数组元素的和，根据题意 arr(1，3)+arr(3，4)=4+7=11。25.假定有下列两个过程： Private Sub PPP(a As Single, b As Single)

37、a=a+b Print a, b b=a+b Print a, b End Sub Private Sub Form_Activate() x=18 Call PPP(x), (x) Print x End Sub 则下列说法中不正确的是 _ 。（分数：2.00）A.形参是 a 和 b，两个实参(x)和(x)允许重名B.形参是 a 和 b，实参(x)表示传值调用C.形参是 a 和 b，实参(x)表示是非传址调用D.形参是 a 和 b，两个实参(x)和(x)不允许重名 解析：解析 过程调用时，实参的变量名用括号括起来，表示传值调用，实参传递时，参数允许重名，只要与形参在类型和个数上一一对应就可以

38、了，因此选项 D)错误。二、填空题(总题数：15，分数：29.00)26.下面的程序用冒泡法将数组 a 中的 10 个整数按升序排列，请在三处将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim a a=Array(678，45，324，528，439，387，87，875，273，823) For i= 1 For j= 2 If a(i) 3a(j)Then a1=a(i) a(i)=a(j) a(j)=a1 End If Next j Next i For i=1 To 10 Print a(i) Next i End Sub （

39、分数：6.00）解析：a To 9 i+1 To 10 = 解析 Option Base 1 指示数组下标从 1 开始。冒泡排序为首先将第一个记录的关键字与第二个记录的关键字进行比较，若逆序则交换，然后比较第二个与第三个，依此类推，直至第 n-1 个和第 n 个记录的关键字进行比较为止。上述过程为第一趟冒泡排序，使最大的关键字元素放到最后。依此类推，进行第2n 次冒泡排序。根据冒泡排序的原理，结合本题，构成二重循环，应填 a To 9 和 i+1 To 10，此时将判断 a(i)与 a(j)的大小，根据题意，故填=。27.有如下事件过程： Private Sub Form_Active() D

40、im Score(1 to 3) As Integer Dim i As Integer Dim t As Variant For i=3 To 1 step-1 Score (i)=2*i Next For Each t In Score Print t Next End Sub 程序运行后窗体上显示的值为 1。 （分数：2.00）解析：2 4 6解析 本题考查数组的定义和 For EachNext 语句。题中定义了下标下界为 1，下标上界为 3 的 Score 数组，通过 For 循环语句赋值后，再通过 For EachNext 语句在窗体上输出数组中的每个成员。28.有以下程序： Pri

41、vate Sub Form_Activate() Fori=1 to 3 x=3 For i=i to 2 x=x+6 Next Next Print X End Sub 程序运行后，窗体上显示的结果为 _ 1_ （分数：2.00）解析：15解析 每一次 j 的赋值后，x 都等于 3，所以只用计算最后一层循环。当 j=3，i=1 时，x=3+6=9；i=2 时，x=9+6=15。29.以下过程用来在 w 数组中插入 x，w 数组中的数已按由小到大的顺序存放，n 指存储单元中存放数组中数据的个数，插入后数组中的数仍有序。请填空补充程序。 Sub fun(w，x，n) Dim i，p p=0 w(

42、n)=x Do While xw(p) 1 Loop For i=n to p+1 Step-1 w(i)= 2 Next i w(p)=x n=n+1 Sub End （分数：1.00）解析：pp+1 w(i-1)解析 先要找到 x 的插入点，从 w(0)开始与 x 比较，找到第一个大于 x 的元素，该元素的位置即为 x 的插入点，DoWhile 语句就是完成这个功能，p 作为下标变量，每循环比较一次，就移动一次，因此要对 p 进行加 1 的操作；找到 x 的插入点后，要将其后元素依次后移，从最后一个元素开始移动，把前一个元素的值送到后一个元素处。30.假定有如下程序代码，程序运行后，把鼠标

43、光标移到窗体内，每单击一次，变换一种鼠标光标的形状，依次显示鼠标光标的 15 个属性。请在划线处将程序补充完整。 Private Sub Form_Click( ) Static x As Integer Cls Print “Mousepointer Property is now “; x Forml. _ 1_ =x x=-x+1 If x = 15 Then x = 0 End Sub （分数：1.00）解析：MousePointer 解析 MousePointer 属性可以通过代码设置，也可以通过属性窗口设置，在程序代码中设置 MousePoimer 属性的一般格式为： 对象.Mou

44、sePointer=设置值 由于程序中使用 Static 关键字定义变量 x，每次单击窗体时 x 的值增加 1，并且下次单击窗体时，x 能保留上次的值，这样就能保证每次单击窗体时看到到鼠标光标都和上一次看到的不一样。31.有一个事件过程，其功能是：从已存在于磁盘上的顺序文件 NM1.txt 中读取数据，计算读出数据的平方值，将该数据及其平方值存入新的顺序文件 NM2.txt 中。请填空。 Private Sub Form_Click0 Dim X As Single,y As Single Open“NM1.txt“For Input As #1 Open“NM2.txt“For Output

45、As#2 Do While Not EOF(1) 1 Print X y=x2 Print#2,x,f Printy Loop Close#1,#2 End Sub （分数：2.00）解析：Input#1,x32.已知变量 boo1 Var 是一个布尔型的变量，如果要给其赋值为 True，则正确的赋值语句就是 1。 （分数：2.00）解析：boo1 Var=Ture解析 赋值运算符号为“=”，功能是将右侧的值赋值给左侧的变量，并要求两侧的数据类型匹配，布尔类型的值有两个 True 或 False，所以正确的赋值形式为：布尔型变量名=True (或False)。33.软件工程的出现是由于 1。

46、（分数：1.00）解析：软件危机的出现解析：从 20 世纪 60 年代中期到 70 年代中期，随着计算机应用的日益普及，软件数量急剧膨胀，在程序运行时发现的错误必须设法改正，用户有了新的需求时必须相应的修改程序以适应新的环境。种种软件维护工作耗费惊人的资源，更严重的是许多程序个体化使得程序最终无法维护，“软件危机”就这样出现了。为了更有效的开发与维护软件，新兴了一门软件工程学即软件工程。34.一个控件在窗体上的位置由 Top 和 Left 属性决定，其大小由 _ 1_ 和 _ 2_ 属性决定。 （分数：1.00）解析：Width Height 解析 Left 属性决定了控件相对于窗体的左边距。

47、Top 属性决定了控件相对于窗体的顶边距。Width 决定的是控件的水平宽度。Height 决定的是控件的垂直高度。35.由 Array 函数建立的数组的名字必须是 _ 1_ 类型。 （分数：2.00）解析：变体或 Variant 解析 Array 返回一个包含数组的 Variant。 语法 Army(arglist) 所需的 arglist 参数是一个用逗号隔开的值表，这些值用于给 Variant 所包含的数组的各元素赋值。如果不提供参数，则创建一个长度为。的数组。36.Visual Basic 程序在运行过程中，用户可通过按 _ 1_ 键进入中断状态。 （分数：1.00）解析：CtrlBr

48、eak37.如果存在如下过程： Private Function Fun(a()As Integer) Dim First As Integer，Last As Integer，i As Integer First=LBound(a) Last=LBound(a) Max=a(First) For i=First To Last If a(i)Max Then Max=a(i) Next Fun=Max End Function 在窗体上添加一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() ReDim in(1 To 4)As Integer m(1=20:m(2)=30:m(3)+50:m(4)=100 c=Fun(m) Print c End Sub 单击命令按钮，其输出结果为 1。 （分数：2.00）解析：100解析 在程序 Sub 中定义了一个含 4 个元素的数组，并且分别给它们赋值，数组上界是 4，下界为 1；将数组 m 作为实参调用 Fmax 事件过程，并将数组 m 的地址传递给数组 a，即此时数组 a 与 m 共用一个存储空间；将数组的上界和下界分别赋给变量 Last 和 First，在赋值表