【计算机类职业资格】国家计算机二级(VB)84及答案解析.doc

1、国家计算机二级(VB)84 及答案解析(总分：100.00，做题时间：120 分钟)一、选择题(每小题 2分，共 70分) 下列各(总题数：35，分数：70.00)1.为了通过键盘访问主菜单项，可在菜单编辑器的“标题”选项中的某个字母前插入何字符，建立热键字母? （分数：2.00）A.&B.#C.*D.$2.在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程： Private Sub Command1_Click() a = 12345 Print Format$(a, “000.00“) End Sub 程序运行后，单击命令按钮，窗体上显示的是（ ）。 （分数：2.00

2、）A.123.45B.12345.00C.12345D.00123.453.表达式 x=Sqr(a2-5)+sqr(b2-5)的类型是（ ）。（分数：2.00）A.在 Visual Basic 中的对话框分为两种类型：预定义对话框和自定义对话框B.自定义对话框由用户根据自己需要定义的C.预定义对话框是用户在设置程序代码后定义的D.MssgBox 函数是用户的自定义对话框的函数4.在 E-R图中，用来表示实体的图形是_。 （分数：2.00）A.矩形B.椭圆形C.菱形D.三角形5.设有命令按钮 Command1 的单击事件过程，代码如下： Private Sub Command1_Click()

3、Dim a(3,3) As Integer For i=1 To 3 For j=1 To 3 a(i,j)=i*j+i Next j Next i Sum=0 For i=1 To 3 Sum=Sum+a(i,4-i) Next i Print Sum End Sub 运行程序，单击命令按钮，输出结果是_。 （分数：2.00）A.20B.7C.16D.176.下面有一段程序代码，如果从键盘上输入“Computer“，则在文本框内显示的内容是( )。 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii =65 And KeyA

4、scii=122 Then KeyAscii=42 End If End Sub （分数：2.00）A.PictureB.CurentYC.CurrentXD.Stretch7.下列程序段的执行结果为( )。 I=1 x=5 Do I= I + 1 x= x + 2 Loop Until I=7 Print “ I= “；I Print “x=“；x （分数：2.00）A.for循环只能用于循环次数已经确定的情况B.for循环是先执行循环体语句，后判断表达式C.在 for循环中，不能用 break语句跳出循环体D.for循环的循环体语句中，可以包含多条语句，但必须用花括号括起来8.下列说法错误

5、的是（ ）。（分数：2.00）A.方法是对象的一部分B.方法的调用格式和对象的属性的使用格式相同C.方法是一种特殊的过程和函数D.在调用方法时，对象名是不可缺少的9.窗体上有 1 个过程为 CD1 的通用对话框，1 个名称为 Command1 的命令按钮。命令 按钮的单击事件过程 如下 ： Private Sub Command1_Click() CD1.FileName = “ CD1.Filter = “All Files|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt“ CD1.FilterIndex = 2 CD1.Action = 1 End Sub 关于以上代码，错

6、误的叙述是_。 （分数：2.00）A.执行以上事件过程，通用对话框被设置为“打开“文件对话框B.通用对话框的初始路径为当前路径C.通用对话框的默认文件类型为*.TxtD.以上代码不对文件执行操作10.执行下列程序后，鼠标单击窗体，输出结果为（ ）。 Private Sub Form_Click() Print“Click”； End Sub Private Sub Form_MouseDown(Button As Integer，Shift_ As Integer，X As Single，Y As Single) Print “Donw” End Sub Private Sub Form_Mo

7、useUp(Button As Integer，Shift_ As Integer，X As Single，Y As Single) Print“Up” End Sub （分数：2.00）A.J2DEB.J2SEC.J2MED.Y2EE11.在窗体上有一个命令按钮，然后编写如下事件过程 Private Sub Command1 _ cickc ( ) a=InputBox(“enter the first integer“) b=InputBox(“enter the second integer“) Print b + a End Sub 程序运行后，单击命令按钮，先后在两个输入框中分别输入

8、“2”和“6”，则输出结果为( )。 （分数：2.00）A.2B.62C.8D.2612.假定有如下的命令按扭（名称为 Command1）事件过程： Private Sub Command1_Click() x=InputBox(“输入：“,“输入整数“)MsgBox “输入的数据是：“,“输入数据：“+x End Sub 程序运行后，单击命名按扭，所果从键盘上输入整数 10，则以下叙述中错误的是_。 （分数：2.00）A.x的值是数值 10B.输入对话框的标题是“输入整数”C.信息框的标题是“输入数据：10”D.信息框中显示的“输入的数据是：”13.在窗体上画一个命令按钮，然后编写如下程序：

9、 Private Sub Commandl_Click( ) Dim a AS Integer，b As Integer a=15 b=2 t N(a，b) End Sub Function N(x As Integer，y As Integer) As Integer N=IIf(x)y，x，y) End Function 程序运行后，单击命令按钮，输出结果为( )。 （分数：2.00）A.1B.2C.15D.814.确定窗体控件启动位置的属性是（ ）。（分数：2.00）A.Caption不是只读属性，运行时对象的名称可以通过代码改变B.设置 Height或 Width的数值单位为 twip

10、，1twip=1/10pointC.Icon属性用来设置窗体最小化时的图标D.用来激活属性窗口的快捷键是 F4键15.在窗体上画一个命令按钮，然后编写如下程序： Private Sub Commandl_Click( ) Dim a AS Integer，b As Integer a=15 b=2 t N(a，b) End Sub Function N(x As Integer，y As Integer) As Integer N=IIf(x)y，x，y) End Function 程序运行后，单击命令按钮，输出结果为( )。 （分数：2.00）A.20B.261C.15D.2516.下列语句

11、的输出结果为( )。 Print Format (1000936，“000，000000”) （分数：2.00）A.cdeB.字符cC.字符c的地址D.无确定的输出结果17.执行以下程序段 Dim i As Integer, x As nteger x = 0 For i = 20 To 1 Step -2 Next x = x + i / 5 Print x 后，x 的值为_。 （分数：2.00）A.16B.17C.18D.1918.假定有下表所列的菜单结构： （分数：2.00）A.Private Sub bigicon_Click() bigicon.Checked = False End

12、 SubB.Private Sub bigicon_Click() Me.appear.bigicon.Checked = True End SubC.Private Sub bigicon_Click() bigicon.Checked = True End SubD.Private Sub bigicon_Click() appear.bigicon.Checked = True End Sub19.下面语句正确的是（ ）。（分数：2.00）A.If xy Then y=x3B.If xy Then y=3xC.If xy Then y=x3D.If xy Then y=x * * 320

13、.下列各选项说法错误的一项是（ ）。（分数：2.00）A.窗体模块和报表模块都属于类模块，它们从属于各自的窗体或报表B.窗口模块和报表模块具有局部特性，其作用范围局限在所属窗体或报表内部C.窗体模块和报表模块中的过程可以调用标准模块中已经定义好的过程D.窗口模块和报表模块生命周期是伴随着应用程序的打开而开始、关闭结束21.下列说法正确的是（ ）。（分数：2.00）A.属性的一般格式为对象名_属性名称，可以在设计阶段赋予初值，也可以在运行阶段通 过代码来更改对象的属性B.对象是有特殊属性和行为方法的实体C.属性是对象的特性，所有的对象都有相同的属性D.属性值的设置只可以属性窗口中设置22.下面叙

14、述正确的是_。 （分数：2.00）A.程序设计就是编制程序B.程序的测试必须由程序员自己去完成C.程序经调试改错后还应进行再测试D.程序经调试改错后不必进行再测试23.结构化程序设计的基本原则不包括（分数：2.00）A.多态性B.自顶向下C.模块化D.逐步求精24.单击命令按钮时，下列程序的执行结果是（ ）。 Private Sub Command1_Click() Dim a As Integer，b As Integer，c As Integer a=3 b=4 c=5 Print SecProc(c，b，a) End Sub Function FirProC(x As Integer，y

15、 As Integer，z As Integer) FirProc=2*s+y+3*z End Function Function SecProc(x As Integer，y As Integer，z As Integer) SecProc=FirProc(z，x，y)+x End Function （分数：2.00）A.20B.22C.28D.3025.设工程文件包含两个窗体文件 Forml.frm、Form2.frm 及一个标准模块文件 Modulel.bas。两个窗体上分别只有一个名称为 Command1的命令按钮。 Forml 的代码如下： Public x As Integer P

16、rivme Sub Form_Load() x=1 y=5 End Sub Private Sub Command1_Click() Form2.Show End Sub Form2的代码如下：Private Sub Command1_Click() Print Form1.x，y End Sub Modulel 的代码如下： Public y As Integer 运行以上程序，单击 Form1的命令按钮 Command1，则显示 Form2；再单击 Form2上的命令按钮Command1，则窗体上显示的是( )。 （分数：2.00）A.1 5B.0 5C.0 0D.程序有错26.定义过程的

17、格式中，Static 关键字的作用是指定过程中的局部变量在内存中的存储方式。若使用了Static关键字，则（ ）。（分数：2.00）A.每次调用此过程，该过程中的局部变量都会被重新初始化B.在本过程中使用到的，在其他过程中定义的变量也为 Statci型C.每次调用此过程时，该过程中的局部变量的值保持在上一次调用后的值D.定义了该过程中定义的局部变量为“自动“变量27.下面程序段执行结果为（ ）。 x=Iht(Rnd()+4) Select Case x Case 5 Print“excellent“ Case 4 Print“good“ Case 3 Print“paSS“ Case Else

18、 Print “fail“ End Select （分数：2.00）A.excellentB.goodC.passD.fail28.下面叙述不正确的是（ ）。（分数：2.00）A.对顺序文件中的数据操作只能按一定的顺序操作B.顺序文件结构简单C.顺序文件的数据以字符(ASCII 码)形式存储D.能同时对顺序文件进行读写操作29.当 Esc键与单击该命令按钮作用相同时，此命令按钮的什么属性被设置为 Tree?（分数：2.00）A.USEB.OPENC.SELECTD.以上命令均可30.有如下程序： Private Sub Commandl_Click( ) Dim i As Integer Fo

19、r i=1 To 2 DS Next i End Sub Sub DS( ) Dim x As Integer，m As String Static y，n X=X + 1 y=y + 1 m=m &“*”：n=n&“#“ Print x，y，m，n End Sub 程序运行后，输出的结果是( )。 （分数：2.00）A.* p表示的是指针变量 p的地址B.p表示的是变量 a的地址，而不是变量 a的值C.* p表示的是指针变量 p的值D.* p只能用来说明 p是一个指针变量31.下列程序段的执行结果为（ ）。 a=1 b=0 Select Case a Case 1 Select Case b

20、 Case 0 Print“*0*“ Case 1 Print“*1*“ End Select Case 2 Print“*2*“ End Select （分数：2.00）A.a=2，b=1B.a=1，b=1C.a=1，b=0D.a=2，b=232.有如下函数过程： Function HFC(ByVal x AS Integer，ByVal y As Integer)As Integer Do While y 0 sic=x/y X=y y=sic Loop HFC=x End Function 以下是该函数的调用过程，该程序的运行结果是( )。 Private Sub Command1 _

21、Click( ) Dim a AS Integer Dim b As Integer a=12 b=2 x=HFC(a，b) Print x End Sub （分数：2.00）A.0B.6C.2D.8033.单击命令按钮，下列程序的执行结果为( )。 Private Sub Commandl_Click() Dim x As Integer，y As Integer x=32：y=42 Call PCS(x，y) Print x；y End Sub Public Sub PCS(Byval n As Integer，ByVal m As Integer) n=n Mod 10+1 m=m Mo

22、od 10+1 End Sub （分数：2.00）A.If xy Then y=x3B.If xy Then y=3xC.If xy Then y=x3D.If xy Then y=x * * 334.以下叙述中错误的是【 】（分数：2.00）A.顺序文件中的数据只能按顺序读写B.对同一个文件,可以用不同的方式和不同的文件号打开C.执行 Close语句,可将文件缓冲区中的数据写到文件中D.随机文件中各记录的长度是随机的35.在菜单编辑器中建立 1 个名称为 Menu0 菜单项，将其“可见”属性设置为 False，并 3 建立其若干子菜单，然后编写如下过程： Private Sub Form_M

23、ouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then PopupMenu Menu0 End If End Sub 则以下叙述错误的是_。（分数：2.00）A.该过程的作用是弹出一个菜单B.单击鼠标右键时弹出菜单C.Menu0在菜单编辑器中定义的弹出菜单的名称D.参数 X、Y 指明鼠标当前位置的坐标二、填空题（每空 2分，共 30分）(总题数：10，分数：30.00)36.给定年份，下列程序用来判断该年是否是闰年，请填空。 Sub YN1 Dim X AS Integ

24、er xInput Box(“请输入年号“) If( x Mod 4=0 2 x Mod l000) 3 (x Mod 400=0)Then Print“是闰年“ Else Print“不是闰年，是普通年份“ End If End Sub （分数：3.00）填空项 1:_37.以下是一个计算矩形面积的程序，调用过程计算矩形面积，请将程序补充完整。 Sub RecArea(L，W) Dim S As Double S=L*W MsgBox“Total Area is“& Str(S) End Sub Private Sub Command1_Click1 Dim M，N M=InputBox(“

25、What is the L?“) M=Val(M) 2 N=Val(N) 3 End Sub （分数：3.00）填空项 1:_38.下列程序的功能是：将数据 1，2，10 写入顺序文件 Basetxt 中，请填空。 Private Sub Form_Click1 Dim i As Integer Open 2 As #1 For i=1 To 10 3 Next i Close #1 End Sub （分数：3.00）填空项 1:_填空项 1:_39.把窗体的 KeyPreView属性设置为 True，并编写如下两个事件过程： Private Sub Form_KeyDown(KeyCode

26、As Integer，Shift As Integer) Print KeyCode End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print KeyAscii End Sub 程序运行后，如果按下 B键，则在窗体上输出的数值是 1 和 2。 （分数：3.00）填空项 1:_40.在修改列表框内容时，RemoveItem 方法的作用是 1。（分数：3.00）填空项 1:_41.下列事件过程的功能是：建立一个名为 Data1的随机文件，存放角度值及这些角度的正弦 函数值和余弦函数值，角度为 1，2，3，90。请在空白处填入适当的内容

27、，将程序补充完整。 Private Type Ang K As Integer Sinx As Single Cosx AS Single End Type Dim Ksc As Ang Private Sub Form _Click1 Dim Y As Single Open 2 Y=314159/180 For I=1 To 90 KscK=I KscSinx=Sin(I*Y) KscCosx=Cos(I*Y) 3 Next I Clise #2 End Sub （分数：3.00）填空项 1:_42.下述语句段在运行时的显示结果是 1。 Cis x=1034 + 8 Print Len(x

28、) （分数：3.00）填空项 1:_43.用户可以用 1 语句定义自己的数据类型。（分数：3.00）填空项 1:_44.在 Visual Basic 的立即窗口内输入以下语句 X=97 ? Chr (X) 在窗门中显示的结果是 1。 （分数：3.00）填空项 1:_45.某二叉树中度为 2的结点有 18个，则该二叉树中有 1 个叶子结点。（分数：3.00）填空项 1:_国家计算机二级(VB)84 答案解析(总分：100.00，做题时间：120 分钟)一、选择题(每小题 2分，共 70分) 下列各(总题数：35，分数：70.00)1.为了通过键盘访问主菜单项，可在菜单编辑器的“标题”选项中的某个

29、字母前插入何字符，建立热键字母? （分数：2.00）A.& B.#C.*D.$解析：标题文本框是让用户键入显示在窗体上的某个菜单标题，键入的内容会在菜单编辑器窗口的下边空白部分显示出来，该区域称为菜单显示区域；如果输入时在菜单标题的某个字母前输入一个&字符，那么该字母就成了热键字母，在窗体上显示时该字母带有下划线，操作时同时按下 Alt键和该带下划线的字母，就可以选择这个菜单项命令，例如：建立编辑菜单 Edit，在标题文本框内应输入&Edit，程序执行时按Alt+ E键就可以选择 Edit菜单。2.在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程： Private Su

30、b Command1_Click() a = 12345 Print Format$(a, “000.00“) End Sub 程序运行后，单击命令按钮，窗体上显示的是（ ）。 （分数：2.00）A.123.45B.12345.00 C.12345D.00123.45解析：3.表达式 x=Sqr(a2-5)+sqr(b2-5)的类型是（ ）。（分数：2.00）A.在 Visual Basic 中的对话框分为两种类型：预定义对话框和自定义对话框B.自定义对话框由用户根据自己需要定义的 C.预定义对话框是用户在设置程序代码后定义的D.MssgBox 函数是用户的自定义对话框的函数解析：任何一个多窗

31、体的程序，在一定的时间，只有一个窗体是活动窗体，所以 选项 C)是正确的；活动窗体上有 8个黑色的小方块，所以选项 B)说有 4个黑色的小方块 是不正确的；活动窗体的缩放可以通过拖动四个角的小方块来调整控件的大小，即宽度 和高度，所以 A)是不正确的；在窗体上的非活动控件不是隐藏的，所以选项 D)不正确。4.在 E-R图中，用来表示实体的图形是_。 （分数：2.00）A.矩形 B.椭圆形C.菱形D.三角形解析：E-R 图中用矩形表示实体集，用椭圆表示属性，用菱形表示联系。5.设有命令按钮 Command1 的单击事件过程，代码如下： Private Sub Command1_Click() D

32、im a(3,3) As Integer For i=1 To 3 For j=1 To 3 a(i,j)=i*j+i Next j Next i Sum=0 For i=1 To 3 Sum=Sum+a(i,4-i) Next i Print Sum End Sub 运行程序，单击命令按钮，输出结果是_。 （分数：2.00）A.20B.7C.16 D.17解析：第 3 个 For 语句是用来打计算 a(1,3)、a(2,2)及 a(3,1)这三个数组元素的和。由第 1、2 这两个嵌入的 For 语句知，a(1,3)=1*3+3=6；a(2,2)=2*2+2=6；a(3,1)=3*1+1=4。

33、故最后 Sum 的值应为 6+6+4=16。6.下面有一段程序代码，如果从键盘上输入“Computer“，则在文本框内显示的内容是( )。 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii =65 And KeyAscii=122 Then KeyAscii=42 End If End Sub （分数：2.00）A.PictureB.CurentYC.CurrentXD.Stretch 解析：在 C+中定义数组时，数组的范围参数在静态定义时必须是一个常数，而在动态分配内存定义时可以是常数，也可以是一个赋了值得参数。故选项 A

34、) 是错误的定义方法。7.下列程序段的执行结果为( )。 I=1 x=5 Do I= I + 1 x= x + 2 Loop Until I=7 Print “ I= “；I Print “x=“；x （分数：2.00）A.for循环只能用于循环次数已经确定的情况B.for循环是先执行循环体语句，后判断表达式C.在 for循环中，不能用 break语句跳出循环体D.for循环的循环体语句中，可以包含多条语句，但必须用花括号括起来 解析：顺序文件结构比较简单，文件中的记录一个接一个地存放。在这种结构中，只知道第一个记录的存放位置，其他记录的位置无从知道，当要查找某个数据时，只能从文件头开始，一个

35、记录一个记录地顺序读取，直到找到要查找的记录为止。顺序文件的组织比较简单，只要把数据记录一个接一个地写到文件中即可，但维护困难，为了修改文件中的某个记录，必须把整个文件读入内存，修改完之后再重新写入磁盘，因此读写不能同时进行。顺序文件不能灵活地存取和增减数据，因而适用于有一定规律且不经常修改的数据，其主要优点是占空间少，容易使用。8.下列说法错误的是（ ）。（分数：2.00）A.方法是对象的一部分B.方法的调用格式和对象的属性的使用格式相同C.方法是一种特殊的过程和函数D.在调用方法时，对象名是不可缺少的 解析：方法是对象的一部分，所以选项 A)的表述是正确的，其调用格式为：对 象名方法名称，

36、与属性的使用格式相同，所以选项 B)是正确的；方法在调用时，可以省 略对象名，但这只限于当前窗体(或控件)，如果不是当前窗体或控件要加上对象名称，所 以选项 D)是不正确的；方法是一种特殊的过程和函数，所以选项 C)是正确的。 9.窗体上有 1 个过程为 CD1 的通用对话框，1 个名称为 Command1 的命令按钮。命令 按钮的单击事件过程 如下 ： Private Sub Command1_Click() CD1.FileName = “ CD1.Filter = “All Files|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt“ CD1.FilterIndex =

37、2 CD1.Action = 1 End Sub 关于以上代码，错误的叙述是_。 （分数：2.00）A.执行以上事件过程，通用对话框被设置为“打开“文件对话框B.通用对话框的初始路径为当前路径C.通用对话框的默认文件类型为*.Txt D.以上代码不对文件执行操作解析：Action=1 表示用来显示一个“打开”文件对话框，FileName 用来指定该对话框默认要打开的文件名， Filter 用来指定要打开的文件类型，FilterIndex 是指定默认情况下要打开的文件类型，在这里 FilterIndex=2 表示默认情况下打开 Filter 列表中第二种文件类型，即 Doc 类型的文件。10.执

38、行下列程序后，鼠标单击窗体，输出结果为（ ）。 Private Sub Form_Click() Print“Click”； End Sub Private Sub Form_MouseDown(Button As Integer，Shift_ As Integer，X As Single，Y As Single) Print “Donw” End Sub Private Sub Form_MouseUp(Button As Integer，Shift_ As Integer，X As Single，Y As Single) Print“Up” End Sub （分数：2.00）A.J2DEB

39、.J2SEC.J2ME D.Y2EE解析：J2EE 是面向大企业级用容器管理专用构件的应用平台，其具有强 大的服务功能如命令服务、事务服务、安全服务、部署服务消息服务、邮件服务等。 11.在窗体上有一个命令按钮，然后编写如下事件过程 Private Sub Command1 _ cickc ( ) a=InputBox(“enter the first integer“) b=InputBox(“enter the second integer“) Print b + a End Sub 程序运行后，单击命令按钮，先后在两个输入框中分别输入“2”和“6”，则输出结果为( )。 （分数：2.00

40、）A.2B.62 C.8D.26解析：在默认的情况下，InputBox 函数的返回值是一个字符串类型，而不是变体类型。如果没有事先声明返回值变量的类型，或声明为变体类型，则当把函数的返回值赋给这个变量时，Visual Basic 将是把它作为字符串来处理。因此当需要用 InputBox 函数输入数据，并且需要输入的数值参加运算时，必须在进行运算前用 Val函数(或其他函数)把它转换为相应类型的数值，否则有可能会得到不正确的结果。如果正确地声明了返回值的变体类型，则可不必进行类型转换；由于本题没有事先声明变量，所以 a 和 b所获得的为字符“2”和“6”，所以输出“62”。12.假定有如下的命令

41、按扭（名称为 Command1）事件过程： Private Sub Command1_Click() x=InputBox(“输入：“,“输入整数“)MsgBox “输入的数据是：“,“输入数据：“+x End Sub 程序运行后，单击命名按扭，所果从键盘上输入整数 10，则以下叙述中错误的是_。 （分数：2.00）A.x的值是数值 10 B.输入对话框的标题是“输入整数”C.信息框的标题是“输入数据：10”D.信息框中显示的“输入的数据是：”解析：由于 x 没有预先定义，故其数据类型应为变体型（Variant）而不是一个数值 10。13.在窗体上画一个命令按钮，然后编写如下程序： Priva

42、te Sub Commandl_Click( ) Dim a AS Integer，b As Integer a=15 b=2 t N(a，b) End Sub Function N(x As Integer，y As Integer) As Integer N=IIf(x)y，x，y) End Function 程序运行后，单击命令按钮，输出结果为( )。 （分数：2.00）A.1B.2C.15 D.8解析：事件过程 N的作用是输出两个数中最大的，它调用了 IIF函数，条件部分是(xy)，如果满足，那么 N的值即为 x的值，否则为 y的值。在 Sub过程中，定义了两个变量 a，b，并赋给它们

43、初值 15，2，并调用 Print函数，输出 N(a，b)的值，因为 xy，所以输出 15。14.确定窗体控件启动位置的属性是（ ）。（分数：2.00）A.Caption不是只读属性，运行时对象的名称可以通过代码改变B.设置 Height或 Width的数值单位为 twip，1twip=1/10point C.Icon属性用来设置窗体最小化时的图标D.用来激活属性窗口的快捷键是 F4键解析：标准模块不仅可以用来定义一些通用的过程，还可以用来声明一些全局 变量，所以 C是不正确的；标准模块的扩展名是bas，所以选项 A)是正确的；正因为标准 模块是程序模块文件，所以必然是程序代码组成，所以选项

44、B)是正确的；标准模块不属 于任何一个固定的窗体，在工程中是公用的，所以选项D)是正确的。15.在窗体上画一个命令按钮，然后编写如下程序： Private Sub Commandl_Click( ) Dim a AS Integer，b As Integer a=15 b=2 t N(a，b) End Sub Function N(x As Integer，y As Integer) As Integer N=IIf(x)y，x，y) End Function 程序运行后，单击命令按钮，输出结果为( )。 （分数：2.00）A.20 B.261C.15D.25解析：p 表示的是变量 a的地址，

45、定义后*p 表示的是变量 a的值。16.下列语句的输出结果为( )。 Print Format (1000936，“000，000000”) （分数：2.00）A.cdeB.字符cC.字符c的地址 D.无确定的输出结果解析：程序开始调用循环语句对数组 b()赋值，b(i)=I，且数组 b的上下界分别为 1和 4；接着将数组 b()作为对象，调用 Tof过程，在 Tof过程中，定义了两个变量 t和 I，I 作为 For循环的循环变量，初始值为2，终值为数组 b的上界；循环体为“t= t *a(i)”，即将 b(i)的值乘以 t，然后在赋给 t，当循环结束后，程序返回的就是数组 b中除第一个元素以

46、外所有元素值的乘积，此题的结果为 234=24，输出结果为 t=24。17.执行以下程序段 Dim i As Integer, x As nteger x = 0 For i = 20 To 1 Step -2 Next x = x + i / 5 Print x 后，x 的值为_。 （分数：2.00）A.16B.17C.18 D.19解析：For 循环语句中，Step 是表示步长，即循环计数器变化的幅度。本题中 i 每次减 2，故要执行 10 次 循环。而“/”是整除运算符，故当 i=20 时，x 加 4，当 i 等于 18、16 时，x 都加 3，当 i 等于 14、12、10 时，x 都

47、加 2，当 i 等于 8、6 时，x 加 1，当 i 等于 4、2 时，x 都加 0。所以 x=4+3+3+2+2+2+1+1=18。18.假定有下表所列的菜单结构： （分数：2.00）A.Private Sub bigicon_Click() bigicon.Checked = False End SubB.Private Sub bigicon_Click() Me.appear.bigicon.Checked = True End SubC.Private Sub bigicon_Click() bigicon.Checked = True End Sub D.Private Sub bigicon_Click() appear.bigicon.Checked = True End Sub解析：Visual Basic 中，要对菜单进行操作，只需要直接引用菜单的名称就可以了，而不是从上一级菜单的 名称中来引用。所以 B、D 选项都是错的。而题面上要求选中“大图标”菜单选中，就是要使其 Checked 属性为 True，所以本题答案是 C。19.下面语句正确的是（ ）。（分数：2.