[计算机类试卷]VB笔试模拟试卷50及答案与解析.doc

《[计算机类试卷]VB笔试模拟试卷50及答案与解析.doc》由会员分享，可在线阅读，更多相关《[计算机类试卷]VB笔试模拟试卷50及答案与解析.doc（26页珍藏版）》请在麦多课文档分享上搜索。

1、VB 笔试模拟试卷 50 及答案与解析 1 下面叙述正确的是 _。 （ A）算法的执行效率与数据的存储结构无关 （ B）算法的空间复杂度是指算法程序中指令 (或语句 )的条数 （ C）算法的有穷性是指算法必须能在执行有限个步骤之后终止 （ D）以上三种描述都不对 2 以下数据结构中不属于线性数据结构的是 _。 （ A）队列 （ B）线性表 （ C）二叉树 （ D）栈 3 在一棵二叉树上第 5层的结点数最多是 _。 （ A） 8 （ B） 16 （ C） 32 （ D） 15 4 进行 程序设计时， ( )不是进行输入和输出方式设计时必须考虑的原则。 （ A）应允许使用自由格式 （ B）应允许默

2、认值 （ C）输入格式要简单，以使得输入的步骤和操作尽可能简单 （ D）一次最好只输入一个数据，系统确认后再输入下一个数据 5 数据流图是用于表示软件模型的一种图示方法，在下列可采用的绘制方法中，( )是常采用的。 自顶向下 自底向上 分层绘制 逐步求精 （ A） 和 （ B） 、 和 （ C） 、 和 （ D）全部 6 下面关于在软 件开发过程中的问题的叙述，说法正确的是 ( )。 （ A）程序流程图是逐步求精的好工具 （ B） NS图不可能任意转移控制，符合结构化原则 （ C）判定表是一种通用的设计工具 （ D）程序流程图和 NS图都不易表示模块的层次结构 7 下列关于测试的叙述，错误的是

3、 ( )。 （ A）测试是为了发现程序中的错误而执行程序的过程 （ B）测试是为了表明程序是正确的 （ C）好的测试方案是极可能发现迄今为止尚未发现的错误的测试方案 （ D）成功的测试是发现了至今为止尚未发现的错误的测试 8 数据管理技术 的发展是与计算机技术及其应用的发展联系在一起的，经历了由低级到高级的发展过程。分布式数据库、面向对象数据库等新型数据库是属于 ( )。 （ A）人工管理阶段 （ B）文件系统阶段 （ C）数据库系统阶段 （ D）高级数据库技术阶段 9 下面有关 E-R模型向关系模型转换的叙述中，不正确的是 ( )。 （ A）一个实体类型转换为一个关系模式 （ B）一个 1：

4、 1联系可以转换为一个独立的关系模式，也可以与联系的任意一端实体所对应的关系模式合并 （ C）一个 1： n联系可以转换为一个独立的关系模式，也可以与 联系的任意一端实体所对应的关系模式合并 （ D）一个 m： n联系转换为一个关系模式 10 在关系数据库设计中，设计关系模式是数据库设计中 ( )阶段的任务。 （ A）需求分析阶段 （ B）概念设计阶段 （ C）逻辑设计阶段 （ D）物理设计阶段 11 在窗体中添加一个命令按钮，然后编写如下代码： Private Sub Command1_Click( ) For i=l To 4 x=4 For j=1 To 3 x=3 For k=l To

5、 3 x=x+6 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，输出结果是 （ A） 7 （ B） 15 （ C） 21 （ D） 538 12 单击命令按钮时，下列程序代码的执行结果为 Public Sub proc1(n As Integer， Byva1 m As Integer) n=n Mod 10 m=m Mod 10 End Sub Private Sub Cmmand1_Click( ) Dim x As Integer， y As lngeger x=12：y=12 Call Proe1(x， y) Print x； y

6、End Sub （ A） 12 2 （ B） 2 12 （ C） 2 2 （ D） 12 12 13 有如下程序段，该程序段执行完后，共执行循环的次数是 Private Sub Command1_Click( ) Tota1=0 Counter=1 Do Print Counter Tota1=tota1+Counter Print total Counter=Counter+1 If total=10 Then Exit Do End lf Loop While Counter =10 End Sub （ A） 5 （ B） 10 （ C） 12 （ D） 20 14 设有如下程序： Pri

7、vate Static Function Fac(n As Integer)As Integer Dim f As Integer f=f+n Fac=f End Function Private Sub Form_Click( ) Dim I As Integer For 1=2 To 3 Print“#“； I&“=”&Fac(1) Next I End Sub 程序运行后，单击窗体，在窗体上显示的是 （ A） #2=2 #3=3 （ B） #2=2 #3=5 （ C） #； 2=2 #； 3=3 （ D） #； 2=2 #3； =5 15 有以下函数过程： Function Gys(By

8、Val x As Integer， ByVal y As Integer)As Integer Do While y 0 Remender=x Mod v x=y Y=Reminder Loop Gys=x End Function 以下是调用该函数的事件过程，该程序的运行结果是 Private Sub Command1_Click( ) Dim a As Integer Dim b As Integer a=50 b=10 x=Cys(a， B)Print x End sub （ A） 0 （ B） 10 （ C） 50 （ D） 100 16 下列程序段的执行结果为 Dim M(10) F

9、or k=1 To 10 M(K)=11-k Ncxt k x=6 Print M(2+M(x) （ A） 2 （ B） 3 （ C） 4 （ D） 5 17 编写了如下事件过程： Private Sub Form_KeyDown(KeyCode As Integer，Shift As lnteger) If(Button And 3)=3 Then Print“AAAA” End lf End Sub 程序运行后， 为了窗体上输出 “AAAA”，应按下的鼠标键是 （ A）左 （ B）右 （ C）同时按下左和右 （ D）按鼠标键没有反应 18 用于获得字符串 s从第 3个字符开始的 3个字符的

10、函数是 （ A） Mid (s， 2， 3) （ B） Middle (s， 2， 3) （ C） Right (s， 2， 3) （ D） Left (s， 1， 3) 19 以下能够正确计算 1+2+3+10 的程序是 （ A） Private sub Command1_Click( ) sum=0 For 1=1 To 10 Sum=sum+1， Next I Print Sum End Sub （ B） Private sub Command1_Click( ) Sum=0,I=1 Do While l =10 Sum=Sum+1 I=I+1 Print Sum End Sub （ C

11、） Private Sub command1_click( ) Sum=0： I=1 Do Sum=Sum+1 I=I+1 Loop While I 10 Print Sum End Sub （ D） Private Sub command1_Click( ) Sum=0： I=1 Do Sum=Sum+1 l=I+1 Loop Until I 10 Print Sum End Sub 20 单击命令按钮时，下列程序代码的执行结果为 Private Sub Command1_Click( ) Print MyFunc(24， 18) End Sub Public Function MyFunc

12、(m As Integer， n As Integer)As Integer Do While m n Do While mn： m=mn： Loop DO While m n： n=n-m： Loop Loop My Func=m End Function （ A） 2 （ B） 4 （ C） 6 （ D） 8 21 执行以下语句后，输出的结果是 s =“ABCDEFGHI” Print Mid (s， 3， 4) Print Len(s ) （ A） ABCD 11 （ B） CDEF 11 （ C） EFGH 11 （ D） HIJK 11 22 有关多文档界面 (Multiple Do

13、cument Interface)的不正确描述是 （ A）多文档界面 (MDl)是指在一个父窗口下面可以同时打开多个子窗口 （ B）子窗口归属于父窗口 （ C）如果父窗口关闭，则所有子窗口全部关闭 （ D）如果所有子窗口全部关闭，则父窗口关闭 23 单击窗口时，下列程序代码的执行结果为 Private Sub Form_Click( ) Text1 End Sub Private Sub Text(x As Integer) x=x*3+1 if x 6 Then call Text(x) End if x=x*2+1 Print x； End Sub （ A） 27 55 （ B） 11 3

14、5 （ C） 22 45 （ D） 24 51 24 在窗体上面画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) a =“321“： b =“abc“ For j=l To 5 Print Mid (a， 6-j， 1)+Mid (b， j， 1)； Next j End Sub 程序运行后，输出的结果是 （ A） alb2c3 （ B） ablc23 （ C） clb2a3 （ D） a12bcl 25 以下关于保存工程的说法正确的是 （ A）保存工程时只保存窗体文件即可 （ B）保存工程时只保存工程文件即可 （ C）先保存窗体文件，再保存工

15、程文 件 （ D）先保存工程文件，再保存窗体文件 26 Dim a(3， -3 to 0， 3 to 8)As String语句定义的数组元素有 （ A） 12个 （ B） 96个 （ C） 120个 （ D） 80个 27 下列程序段的执行结果为 X=5 Y=-20 If Not X0 Then X=Y-3 Else Y=X+3 Print X-Y； （ A） -3 （ B） 5 （ C） 3 （ D） 25 28 当一个工程含有多个窗体时，其 中的启动窗体是 （ A）启动 VB时建立的窗体 （ B）第一个添加的窗体 （ C）最后一个添加的窗体工程属性 （ D）在工程属性对话框中指定的窗体

16、29 在窗体中添加两个文本框 (其 Name属性分别为 Text1和 Text2)和一个命令按钮(其 Name属性为 Com- mand1)，然后编写如下程序： Private Sub Command1_Click( ) x=0 Do While x 20 x=(x+1) *(x+2) n=n+1 Loop Text1.Text=Str(n) TextText=Str(x) End Sub 程序运行后，单击命令按钮，在两个文本框 Text1和 Text2中分别显示的值是 （ A） 1和 0 （ B） 2和 12 （ C） 3和 182 （ D） 3和 12 30 设在工程中有一个标准模块，其中

17、定义了如下记录类型： TyPe Record ID A3 Integer Name As String*20 End TyPe 在窗体中添加一个名为Command1的命令按钮，假设 d： F1.dat文件中含有 5个用户自定义类型的记录。要求当执行事件过程 Command1_Click时，随机访问该文件，并把文件中的第 4条记录读出。下列能够完成该操作的程序段是 （ A） Private Sub Command1_Click( ) Dim MyRecord As Record， Position Open“d： F1.dat“For Random As#1 Len=Len(My RecorD)

18、Position=4 Get#1，Position， Myrecord Close #1 End Sub （ B） Private Sub Command1_Click( ) Dim MyRecord As Record， Position Open“d： F1.dat“For Random As #1 Len=Len(MyRecorD)Position=4 Put #1，Position， MyRecord Close#1 End Sub （ C） Private Sub Command1_Click( ) Dim MyRecord As Record， Position Open“d： F

19、1.dar“For OutPut As #1 Len=Len(My RecorD0Position=4 Get #1，Position， MyRecord Close#1 End Sub （ D） Private Sub Command1_Click( ) Dim MyRecord As record， Position Open“d： F1.dat“For lnput As #1 Len=Len(MyRecorD)Position=4 Get #1，Position， MyRecord Close#1 End Sub 31 定义过程的格式中， Static关键字的作用是指定过程中的局部变量在

20、内存中的存储方式。若使用了 Staff关键字，则 （ A）每次调用此过程，该过 程中的局部变量都会被重新初始化 （ B）在本过程中使用到的，在其他过程中定义的变量也为 Static型 （ C）每次调用此过程时，该过程中的局部变量的值保持在上一次调用后的值 （ D）定义了该过程中定义的局部变量为 “自动 ”变量 32 单击命令按钮时，下列程序的执行结果为 Private Sub Command1_Click( ) Dim x As Integer， y As Integer x=50： y=78 Call PPP(x， y) Print x； y End Sub Public Sub PPP(B

21、yVM n As Integer， ByVal m As Integer) n=nl0 m=ml0 End Sub （ A） 08 （ B） 50 78 （ C） 450 （ D） 78 50 33 单击按钮时，以下列程序运行后的输出结果是 Private Sub proc1(x As Integer， y As Integer， z As Integer) x=3*z y=2*z z=X+y End Sub Private Sub Command1_Click( ) Dim x As Integer， y As Integer， z As Integer x=1： y=2： z=3 Call

22、 proc1(x， x， 2) Print x； x； z Call proc1(x， y， y) Print x； y； y End Sub （ A） 6 6 12 6 6 10 （ B） 9 5 10 5 10 10 （ C） 9 6 12 9 10 15 （ D） 9 5 10 5 4 10 34 单击命令按钮时，下列程序的运行结果为 Private Sub Command1_Click( ) Print MyFund(20， 18) End Sub Public Function MyFund(m As Integer， n As Integer)As Integer Do While

23、 m n Do While mn： m=m-n:Loop Do While m n： n=n-m:Loop Loop MyFund=m End Function （ A） 0 （ B） 2 （ C） 4 （ D） 6 35 在窗体上画一个命令按钮，然后编写如下程序 Private Sub Command1_Click( ) Dim a As Integer， b As hiteger a=1 b=2 Print N(a， B)End Sub Function N(x As Integer， y As Integer)As Integer N=IIf(xy， x， y) End Function

24、 程序运行后，单击命令按钮，输出结果为 （ A） 1 （ B） 2 （ C） 5 （ D） 8 36 解题方案的准确而完整的描述称为【 】。 37 在数据结构中，顺序存储结构的数据元素所占的存储空间是【 】的。 38 软件开发环境是全面支持软件开发全过程的【 】的集合。 39 数据库理论中，数据的独立性一般可分为物理独立性和【 】 40 数据库系统中，实现各种数据管理功能的核心软件称为【 】 41 设有如下程 序： Private Sub search(a()As Variant， ByVal key As Variant， index%) Dim I% For i=LBound(A)To U

25、Bound(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 程序运行后，输出结果是【 】。 42 执行下面的程序，当输入 3时，输出的结果是【 】 Private sub Command1_Click() i=2 j= InputBox(

26、“ j = “) On j GoTo 20,30,40,50 i=i+2 20:i=i+2 30:i=i+2 40:i=i+2 50:i=i+2 Print i End Sub 43 在窗体上画一个命令按钮，然后编写如下事件过程，程序运行后，单击命令按钮，输出结果是【 】 Private Sub Command1_Click() Dim a(1 To 10) Dim p(1 To 3) k=5 For i = 1 To 10 a(i) = i Next i For i = 1 To 3 p(i) = a(i * i) Next i For i = 1 To 3 k=k+p(i) *2 Next

27、 i Print k End Sub 44 在窗体上画一个文本框和一个图 片框，然后编写如下两个事件过程： Private Sub Form_Click( ) Text1.Text=“VB程序设计 ” End Sub PrivmeSubText1_Change() Picture1.Print“VB Programming“ End Sub 程序运行后，单击窗体，则在文本框中显示的内容是【 】，而在图片框中显示的内容是【 】。 45 设有如下程序： Private Sub Form_Click( ) Dim a As Integer， s As Integer n=8 S=0 DO S=S+n

28、 n=n-1 Loop While n 0 Print S End Sub 以上程序的功能是【 】。程序进行后，单击窗体，输出结果为【 】。 46 设有如下程序： Option Base 1 Pfivme Sub Command1_Click( ) Dim arr1 Dim Min As Integer， i As Integer arrl=Array(12， 435， 76， -24， 78， 54， 866， 43) Min=【 】 For i=2 TO 8 If arr1(i) Min Then【 】 Next i Print“最小值是： ”； Min End Sub 以上程序的功能是：

29、用 Array函数建立一个含有 8个元素的数组，然后查找并输出该数组中各元素的小值。请填空。 47 在名称为 Form1的窗体上画一个文本框，其名称为 Text1，在属性窗口中把该文本框的 Muhiline属性设置为 True，然后编写如下的事件过程： Private Sub Form_Click( ) Open“d： testsmText1.txt“For lnput As#1 Do While Not【 】 Line lnput#1， aspect whole =wholes+aspect +Chr (13)+Chr (10) Loop Text1.Text=whole Close#1 O

30、pen“d： testsmtexttxt“For Output As #1 Print #1，【 】 Close#1 End Sub 上述程序的功能是，把磁盘文件， mText1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件 smtexttxt。请填空。 48 把一个磁盘文件的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存人另一个磁盘文件，请填空完成程序。在窗体上建立一个文本框，在属性窗口中把该文本框的 Muhiline属性设置为 True，然后编写如下的事件过程： Private Sub Form_Click( ) Open“d： testsmte

31、xt1 txt“For lnput As#1 Text1.Fontsize=14 Text1.FontName=“幼圆 ” Do While Not EOF(1) 【 】 whole =whole $ aspect $+Chr$(13)+Chr $(10) Loop Text1.Text=【 】。 Close Open“d： testsmtexttxt“For Output As#1 Print #1【 】 Close End Sub VB 笔试模拟试卷 50 答案与解析 1 【正确答案】 C 【试题解析】 算法的执行效率与数据的逻辑结构和存储结构都有很紧密的关系。算法的空间复杂度是指执行该算

32、法需要的内存空间，并非算法程序中指令的条数。算法一般应该具有以下 4个特征：可行性、确定性、有穷性和拥有足够情报。其中，有穷性是指算法必须能在执行有限个步骤之后终止，否则可能失去实际意义。 2 【正确答案】 C 【试题解析】 线性数据结构属于数据的逻辑结构，具体是指 逻辑上满足两个条件： 有且只有一个根结点； 每一个结点最多有一个前件，也最多有一个后件。可以看出，二叉树逻辑上有两个子结点，故不属于线性数据结构。 3 【正确答案】 B 【试题解析】 一棵二叉树，在第 i层上，当其所有结点都存在时，该层将拥有最多的结点数，为 2i-1，所以第 5层的结点数最多是 2(5-1)=16。 4 【正确答

33、案】 D 【试题解析】 良好的程序设计风格应注意输入 /输出的方式和格式应尽可能方便用户使用。选项 A、 B、 C都是输入和输出时应考虑的原则。选项 D的叙述是错误的，数据输入的 方式应根据具体情况确定。 5 【正确答案】 B 【试题解析】 画数据流图应遵循的原则是理解并模拟现行系统的处理过程，据此画出最初的数据流图。自顶向下地分层画出各层数据流图，也就是通过一系列分解步骤，逐步地表现出整个软件的构成。 6 【正确答案】 B 【试题解析】 程序流程图本质上不是逐步求精的好工具，它会使程序员过早地考虑程序的控制流程，而不去考虑程序的全局结构；判定表不是一种通用的设计工具，没有一种简单的方法使用它

34、能同时清晰地表示顺序和循环等结构；程序流程图不易表示模块的层次结构， NS 图则可以表示模块的层次结构。 7 【正确答案】 B 【试题解析】 正确认识测试的目标是十分重要的，测试目标决定了测试方案的设计。如果为了表明程序是正确的而进行测试，就会设计一些不易暴露错误的测试方案；相反，如果测试是为了发现程序中的错误，就会力求设计出最能暴露错误的测试方案。 8 【正确答案】 D 【试题解析】 人工管理阶段和文件系统阶段不存在数据库管理，网状、层次、关系等数据库属于数据库系统阶段，而分布式数据库、面向对象数据库等是新型的数据，属于第三代数据库系统即高级数据库技术阶段。 9 【正确答案】 C 【试题解析

35、】 选项 C是错误的。一个 1： n联系可以转换为一个独立的关系模式，也可以与联系的 n端实体 (而不是任意一端 )所对应的关系模式合并。 10 【正确答案】 C 【试题解析】 需求分析阶段的任务是在调查、分析的基础上明确用户对系统的需求。概念设计阶段的任务是设计概念模型，较著名的是 E-R图。逻辑结构设计的任务是把概念模型转化为特定 DBMS 的逻辑结构 (模式和外模式 )，物理设计的任务是设计合适的物理 (存储 )数据库结构。 11 【正确答案】 C 【试题解析】 本 题由最外层的 For循环语句逐一执行到最内层的 For k 循环，x=x +6这一语句始终在 For j循环的基础上执行的

36、，故 x最终结果为3+6+6+6=21。 12 【正确答案】 B 【试题解析】 由于 n为默认的传地址参数， m为传值参数，故在调用 Proc1过程后， x值为经过处理后的值， y为原值，不发生改变。 13 【正确答案】 A 【试题解析】 由于本题在 Do循环内嵌套 If语句，当 If 语句满足条件时， Do循环也可以终止，故要比较 Total= 10 与 Counter10这两个条件谁先达到。通 过观察去执行第五次循环时， Total 值满足条件， Do循环终止，故选择 A。 14 【正确答案】 B 【试题解析】 由于 Print方法中的分号表示前后字符之间的连接，并不显示在窗体中，同时由于

37、 Function 过程以 Static定义，在 I=3时， Fac(1)的值为 5。 15 【正确答案】 B 【试题解析】 首先要读懂 Gys函数过程的意思， Gys函数过程返回参数 y的值，具体过程是先令参数 x的值为 y的值， y的值为 xMody的值，再令 Gys值为 x的值，据此本题的正确结果为 10。 16 【正确答案 】 C 【试题解析】 通过 For k 循环，数组 M(10)被逐一赋值，结果是要显示 (通过Print语句 )M(2+M(x)的值。根据 M(k)=11-k，不难得出当 x=6时，M(2+M(x)=M(2 +5)=M(7)=11-7=4，故答案为 C。 17 【正

38、确答案】 D 【试题解析】 该事件过程响应的是 KeyDown 事件，按下鼠标键，不会调动该事件过程。另外，值得一提的是， (Botton And 3)=3表示同时按下鼠标左右键。 18 【正确答案】 A 【试题解析】 为了获得字符串 S自 n 个字符开始的 n 个字符，可以用 Mid(S，n， n)表达，故本题选 A。其中 C、 D项的用法有误， Visual Basic 中没有 B 项描述的函数。 19 【正确答案】 A 【试题解析】 A选项进行 10次循环，分别将 1至 10累加给 Sum，故正确。选项B 缺少 Loop关键词，否则也是正确的。选项 C与 D由于受条件 “Iclo限制，

39、Do循环只能进行一次。 20 【正确答案】 C 【试题解析】 根据 Myfune的定义，当 m与 n 不相等时执行 D。循环，此时如果m大于 n，则执行 m=m-n 的 Do循环。据此， MyFune(24， 18)的值应该为 24减去18。 21 【正确答案】 B 【试题解析】 Mid(s ,i,n)表示从字符串 s的第 i个字符开始向后截取 n 个字符， Len(s )返回字符串 s$的长度。 22 【正确答案】 D 【试题解析】 在一般情况下，我们打开的 Viasual Basic界面就是 MDI多文档界面。它含有一个父窗口与若干子窗口，子窗口从属于父窗口。子窗口的关闭不影响父窗口，父窗

40、口的关闭会导致所有子窗口的关闭。故本题的答案为 D。 A、 B、C项的说法都是正确的。另外，与 MDI相对应的是 SDI单文档界面，在 Visual Basic中可通过 “工具 ”菜单中的 “选项 ”“ 高级 ”来设置 Visual Basic的启动是否以SDI方式。 23 【正确答案】 A 【试题解析】 难点在于 Sub过程 Text中嵌套了一个 Text过程。根据 Text的描述，当把 1以传地址的方式传送给 x时， x的值为 4，此时 x的值满足 If条件，所以再次执行 1次 Text过程。第 2次执行时， x的值变为 13，此时跳过 If语句，执行 x=x*2+1语句， x值变为 27

41、，随后用 Print方法输出。注意，到此时，整个Text过程仅仅执行完 了 call Text(x)这一语句块，结束这个语句块，系统接着执行x=x*2+1语句，由于 x参数的传地址的方式传送，此时在执行该句前， x的值为27，执行完之后 x的值为 55，再将这一值输出。窗体上显示 27与 55。 24 【正确答案】 B 【试题解析】 Mid 函数是 Visual Basic 考试的热点之一。 Mid(a ,i,n)表示从字符串 a的第 i个字符开始向后截取 n个字符，据此不难看出答案为 B。注意 Print方法后面以分号结束，意味着每执行一次 For 循环输出的字符都以紧凑方式与上一次 For

42、循环输出的 字符相连。 25 【正确答案】 C 【试题解析】 保存工程的正确方法是先保存窗体文件，再保存工程文件。但是如果直接保存工程文件，系统会自动提示保存窗体文件。 26 【正确答案】 B 【试题解析】 根据题意，数组 a有三个下标，每个下标分别可以取 4个值、 4个值、 6个值，故该数组的元素个数为 4乘 4乘 6，共 96个元素。 27 【正确答案】 A 【试题解析】 根据题意，当 X， 0为非真时，执行 Then后面的语句，否则执行Else后面的语句。据此， Y的值为 8， X的值仍为 5。 Print语句先计 算 X-Y的值，再输出。 28 【正确答案】 D 【试题解析】 在 Vi

43、sual Basic中可以通过 “工程属性 ”对话框指定程序运行的启动窗体。在没有设置的情况下，启动窗体为启动 Visual Basic时建立的窗体。第一个添加的窗体与最后一个添加的窗体都不一定是启动窗体。 29 【正确答案】 C 【试题解析】 根据题意，当 x 20时， Do循环执行。第 1次执行完 Do循环， x的值为 2。故再执行 1次，此时 x值变为 12，此时仍符合条件，故执行第 3次 Do循环， x值变为 182，循环就此结束。 n的值加了 三次 1。 30 【正确答案】 A 【试题解析】 由于是以随机方式访问该文件，故打开方式为 Random。选项 C以Output方式打开，选项

44、 D以 Input方式打开都是错误的。同时由于要读出第四条记录，故使用 Get#语句。 31 【正确答案】 C 【试题解析】 static关键字用于指定局部变量在内存中的存储方式。变量的存储方式有两种：静态的和自动的。静态存储方式是指当过程运行完毕后，变量所占的内存单元不释放，而变量的值被保存下来，该变量为静态变量。 Static型变量所占存储空间只初始化一次， 且变量的值在整个程序运行期间都存在； Static关键字对过程之外定义的变量没有影响； Static关键字是定义该过程中定义的局部变量为静态变量。 32 【正确答案】 B 【试题解析】 在调用过程时，一般主调与被调过程之间有数据传递，

45、即将主调过程的实参传递给被调用的过程，完成实参与形参的结合，然后执行被调过程，在Visual Basic中，实参与形参的结合有两种方式，即传址与传值。这两种方法的特点如下： 1) 传址的结合过程时：当调用一个过程时，它将实参的地址传给形参，因此在被调用的过程中，对形 参的任何操作都变成了对相应实参的操作，因此实参的值会随形参的改变而改变。 2) 传值的结合过程时：当调用一个过程时，系统将实参的值复制给形参并断开了联系，被调用过程中的操作是在形参自己的存储单元中进行的，当过程调用结束时，这些形参所占用的存储单元也同时被释放，因此在过程中对形参的任何操作不会影响实参。而题中被调过程 PPP中有两个

46、形参，两者均为传值方式。主调过程分别把实参 x、 y传递给 PPP，所以当过程调用结束后，实参 x、 y的值都没有改变，最后输出的值应为 50 78。 33 【正确答案】 A 【试题解析】 从整体上看，主调过程将两次调用过程 Proc1后，实参的值将随形参变化而变化，现在分析一下这两次调用实参和形参是怎么变化的。 第一次调用被调过程 proc1，主调过程把实参 x， x， z的地址分别传给形参 x，y， z，此时形参 x， y， z值分别为 1， 1， 3，执行语句 x=3*z后，形参 x值变为9，此时相对应的实参，也变为 9，执行语句 y=2*z后，形参 y值变为 6，则相对应的实参 x值为 6。执行 z=x+y后，形参。值应为 12，当然这次调用后，程序代码输出的数值为 6， 6， 12。 第二次调用被调过程 proc1，主调过程把实参 x， x， x的地址分别传给形参 x，y， z。我们应注意一下，此时实参 x的值为 6而不是 1，所以此时形参 x， y， z值分别为 6， 2和 2，执行语句 x=3*z后，形参 x值