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

《【计算机类职业资格】计算机二级(VB)26及答案解析.doc》由会员分享，可在线阅读，更多相关《【计算机类职业资格】计算机二级(VB)26及答案解析.doc（15页珍藏版）》请在麦多课文档分享上搜索。

1、计算机二级(VB)26 及答案解析(总分：1765.00，做题时间：90 分钟)一、选择题(每小题 2分，共 70分) 下列各(总题数：25，分数：1750.00)1.下列程序的执行结果为（ ）。 Private Sub Command1_Click() Dim s1 As String，s2 As String S1；=“abcdef“ Call Invert(s1，s2) Print s2 End Sub Private Sub Invert (ByVal xstr As String，ystr As String) Dim tempstr As String i=Len(xstr) Do

2、 While i=1 tempstr=tempstr+Mid(xstr，i，1) i=i-1 Loop ystr=tempstr End Sub （分数：70.00）A.fedcbaB.abcdefC.afbecdD.defabc2.在 Visual Basic中，组合框是文本框和什么的特性的组合?（分数：70.00）A.复选框B.标签C.列表框D.目录列表框3.下列说法不正确的是（ ）。（分数：70.00）A.对象的可见性可设为 True或 FalseB.标题的属性值可设为任何文本C.属性窗口中属性可以按字母顺序排列D.某些属性的值可以跳过不设置，系统之不理自动设为空值4.如果要将文本框作为

3、密码框使用时，应设置的属性为（ ）。（分数：70.00）A.DELETE TABLEB.REMOVE TABLEC.DROP TABLED.RELEASE TABLE5.下列程序段执行结果为（ ）。 x=5 y=-6 If Not x0 Then x=y-3 Else y=x+3 Print x-y；y-x （分数：70.00）A.k/1lB.k%11C.k/11=0D.k%11=06.在窗体上画一个名称为 Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x = -5 If Sgn(x) Then y = Sgn(x 2) Else

4、 y = Sgn(x) End If Print y End Sub 程序运行后，单击命令按钮，窗体上显示的是（ ）。 （分数：70.00）_7.当复选框被选中时，复选框的 Value属性的值为（ ）。（分数：70.00）A.0B.1C.2D.58.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command_Click( ) S=0 Do s=(s + 1) * (s +2) Number=Number+1 Loop Until S=30 Print Number，S End Sub 程序运行后，输出的结果是( )。 （分数：70.00）A.SELECTB.CREA

5、TEC.ALTERD.DROP9.在窗体上画一个名称为 Drive1的驱动器列表框，一个名称为 Dir1的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是（ ）。 （分数：70.00）_10.下列叙述中正确的是_。 （分数：70.00）A.一个逻辑数据结构只能有一种存储结构B.数据的逻辑结构属于线性结构，存储结构属于非线性结构C.一个逻辑数据结构可以有多种存储结构，且各种存储结构不影响数据处理的效率D.一个逻辑数据结构可以有多种存储结构，且各种存储结构影响数据处理的效率11.下列程序段的执行结果为( )。 Dim t(10)

6、For k=2 To 10 t(k) =11 - k Next k X=6 Print t(2+t(x) （分数：70.00）A.*B. =C.:D./12.单击命令按钮时，下列程序的执行结果为（ ）。 Private Sub Command1_Click() Dim x As Integer，y As Integer x=12：y=32 Call Proc(x，y) Print x；y End Sub Public Sub Proc(n As Integer，ByVal m As Integer) n=n Mod 10 m=m Mod 10 End Sub （分数：70.00）A.1 5 9

7、B.7 5 3C.3 5 7D.5 9 113.下面的程序的运行结果是( )。 a=1 b=1 Do a=a2 b= b + 1 Loop Until b5 Print “k=“；a；Spc(4)；“b=“；b + a （分数：70.00）A.k=7 b=14B.k=6 b=6C.k=4 b=8D.k=1 b=714.下列程序的执行结果为( )。 Private Sub Comrnandl_Click( ) Dim p As Integer, q As Integer p=12：q=20 Call Value(p, q) Print p; q End Sub Private Sub Value

8、(ByVal m As Integer, ByVal n As Integer) m=m * 2: n=n - 5 Print m; n End Sub （分数：70.00）A.20 12 20 15B.12 20 12 25C.24 15 12 20D.24 12 12 1515.设置命令按钮的属性时，只有将何属性设置为 1，Picture 属性才有效，否则无效?（分数：70.00）A.StyleB.CaptionC.EnabledD.Default16.当在滚动条内拖动滚动块时触发（ ）。（分数：70.00）A.层次模型B.网状模型C.关系模D.E-R模型17.下面说法不正确的是（ ）。（

9、分数：70.00）A.Float.MIN_VALUEB.1.8e-6FC.2.0D.abcd18.执行下列程序后，鼠标单击窗体，输出结果为（ ）。 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 Sing

10、le，Y As Single) Print“Up” End Sub （分数：70.00）A.DownUpClickB.ClickDownUpC.DownClickUpD.UpDownClick19.用于将屏幕上的对象分组的控件是（ ）。（分数：70.00）A.键盘事件B.鼠标事件C.窗口事件D.控件事件20.下列方法中不能退出 Visual Basic的是（ ）。（分数：70.00）A.使用 ReDim语句可以改变数组的维数B.使用 ReDim语句可以改变数组的类型C.使用 ReDim语句可以改变数组的每一维的大小D.使用 ReDim语句可以改变对数组中的所有元素进行初始化21.在 Visua

11、l Basic中，要使标签的标题栏居中显示，则将其 Alignment属性设置为（ ）。（分数：70.00）A.0B.2C.1D.322.下列关于退出 Visual Basic系统的方法的描述错误的是（ ）。（分数：70.00）A.-128+127B.-32768 +32767C.-2147483648 +2417483647D.-3.40282347E38 +3.40282347E3823.下列说明中，不属于随机文件特点的是（ ）。（分数：70.00）A.可移植性和跨平台的特点B.多线程的并发机制C.编译器将 Java源程序转换成机器码D.Applet是 Java的特殊应用程序，它嵌入到 H

12、TML中，随主页发布到互连网上24.下列关于退出 Visual Basic系统的方法的描述错误的是（ ）。（分数：70.00）A.打开 Visual Basic主窗体的“文件”菜单，执行其中的“退出”命令B.按快捷键 Alt+Q退出C.单击 Visual Basic主窗体右上角的“关闭”按钮D.按快捷键 Alt+E退出25.在窗体上画一个名称为 Command1的命令按钮，然后编写如下通用过程和命令按钮的 事件过程： Private Function fun(ByVal m As Integer) If m Mod 2 = 0 Then fun = 2 Else fun = 1 End If

13、End Function Private Sub Command1_Click() Dim i As Integer, s As Integer s = 0 For i = 1 To 5 s = s + fun(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是_。 （分数：70.00）A.6B.7C.8D.926.下列不属于软件工程的 3个要素的是( )。（分数：-1.00）A.工具B.过程C.方法D.环境27.软件设计中，有利于提高模块独立性的一个准则是( )。（分数：-1.00）A.低内聚低耦合B.低内聚高耦含C.高内聚低耦台D.高内聚高耦合28.

14、在深度为 5的满二叉树中，叶结点的个数为( )。（分数：-1.00）A.32B.31C.16D.1529.对建立良好的程序设计风格，下面描述正确的是( )。（分数：-1.00）A.程序应简单、清晰、可读性好B.符号名的命名只要符合语法C.充分考虑程序的执行效率D.程序的注释可有可无30.在软件测试设计中，软件测试的主要目的是( )。（分数：-1.00）A.实验性运行软件B.证明软件正确C.找出软件中全部错误D.发现软件错误而执行程序31.尔排序属于( )。（分数：-1.00）A.交换排序B.归并排序C.选择排序D.插入排序32.下列数据结构中，按先进后出原则组织数据的是( )。（分数：-1.0

15、0）A.线性链表B.栈C.循环链表D.顺序表33.用链表表示线性表的优点是( )。（分数：-1.00）A.便于随机存取B.花费的存储空间比顺序存储少C.便于插入和删除操作D.数据元素的物理顺序与逻辑顺序相同34.结构化程序设计的 3种结构是( )。（分数：-1.00）A.顺序结构、选择结构、转移结构B.分支结构、等价结构、循环结构C.多分支结构、赋值结构、等价结构D.顺序结构、选择结构、循环结构35.在下列几种排序方法中，要求内存量最大的是( )。（分数：-1.00）A.插入排序B.选择排序C.快速排序D.归并排序三、填空题（每空 2分，共 30分）(总题数：10，分数：30.00)36.下列

16、程序的功能是：将数据 1，2，8 写入顺序文件 Numtxt 中，请补充完整。 Private Sub Form_Click1 Dim i As Integer Open“Numtxt“For Output As #1 For i=1 To 8 2 Next i Close #1 End Sub （分数：3.00）填空项 1:_37.下列程序的功能是：将数据 1，2，8 写入顺序文件 Numtxt 中，请补充完整。 Private Sub Form_Click1 Dim i As Integer Open“Numtxt“For Output As #1 For i=1 To 8 2 Next

17、i Close #1 End Sub （分数：3.00）填空项 1:_38.数据管理技术发展过程经过人工管理、文件系统和数据库系统三个阶段，其中数据独 立性最高的阶段是 1。（分数：3.00）填空项 1:_39.在文件对话框中，假定有一个名为“fcexe“的文件，它位于“d:/pp“目录下，则“FileName“属性 的值为 1；FileTifie 属性的值为 2。 （分数：3.00）填空项 1:_40.要使标签的背景样式为不透明，应将 BackStyle属性设置为 1。（分数：3.00）填空项 1:_41.在一个窗体上有两个命令按钮，cmdMax 和 cmdMin。单击 cmdMax时，窗体

18、上显示“字体由小变大”，字号每次增加 2；单击 cmdMin时，窗体上显示“字体由大变小”，字号每次减小 2。请填空。 Private Sub Form_Load1 FormlCaption =“字体变化示范” cmdMaxCaption=“字体变大” cmdMinCaption=“字体变小” End Sub Private Sub cmdMax_Click2 3 FormlPrint”字体由小变大” End Sub Private Sub cmdMin_Click4 5 FormlPrint“字体由大变小” End Sub （分数：3.00）填空项 1:_42.在窗体上有一个命令按钮，然后编

19、写如下程序： Function Trans(ByVal num As Long) As Long Dim k As Long k=l Do While num k=k * (num Mod 10) num=num/10 Loop Trans=k Print Trans End Function Private Sub Commandl_Click1 Dim m As Long Dim s As Long m=InputBox(“请输入一个数“) s=Trans(m) End Sub 程序运行时，单击命令按钮，在输入对话框中输入“789”，输出结果为 2，在输入对话框中输入“987”输出 3，在

20、输入对话框中输入“879”，输出结果为 4。 （分数：3.00）填空项 1:_43.改变驱动器列表框的 Drive属性值将引发 1 事件。（分数：3.00）填空项 1:_44.下列程序的功能是：将数据 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:_45.以下是一个计算矩形面积的程序，调用过程计算矩形面积，请将程序补充完整。 Sub RecArea(L，

21、W) Dim S As Double S=L*W MsgBox“Total Area is“ q End Sub Private Sub Value(ByVal m As Integer, ByVal n As Integer) m=m * 2: n=n - 5 Print m; n End Sub （分数：70.00）A.20 12 20 15B.12 20 12 25C.24 15 12 20 D.24 12 12 15解析：被调过程 Value的两个参数 m和 n前面都有关键字“ByVal”修饰，即在主调过程调用此过程时，实参与形参之间是以传值方式传递信息的，而当实参与形参以传值方式相结

22、合时，形参的改变并没有影响到实参，单单就这一点来说，我们可知，当程序代码执行主调过程中的 PrimP；q 语句时，p 和 q的值应不变，还是 12，20，这样就能够排除选项 A)和选项 B)了。当主调过程调用被调过程时，把实参 p，q 的值分别传给形参 m和 n，这就是说此时形参 m值为 12，n 值为 20，执行被调过程中的 m=m * 2：n=n-5 语句后，m 值为 24，n 值为 15，所以 Print m；n 后，程序输出的结果为 24和 15。最后程序输出的结果如选项 C)所示。15.设置命令按钮的属性时，只有将何属性设置为 1，Picture 属性才有效，否则无效?（分数：70.

23、00）A.Style B.CaptionC.EnabledD.Default解析：Picture 属性是用来为命令按钮指定一个图形，为了使用该属性，必须将 Style属性设置为 1(图形格式)，因为 Style属性可以用于多种控件，当用于命令按钮，可以两种值：o 或 1。当取 0时，控件只显示文本，不显示相关图形；当取 1时，控件除了显示文本，还显示相关图形。16.当在滚动条内拖动滚动块时触发（ ）。（分数：70.00）A.层次模型B.网状模型C.关系模 D.E-R模型解析：数据库管理系统支持的数据模型有 3种：层次模型、网状模型和关系模型。关系模型是用二维表结构来表示实体及实体之间的联系 。

24、17.下面说法不正确的是（ ）。（分数：70.00）A.Float.MIN_VALUEB.1.8e-6FC.2.0 D.abcd解析：此题主要考查 RMI命令，RMI 命令包括 rmic命令，为对象生成 stub和 skeleton；rmiregistry 命令在当前主机的指定端口上启动远程对象注册服务程序；rmid 命令，激活系统守候进程；serialver 命令，返回 serialVersionUID。18.执行下列程序后，鼠标单击窗体，输出结果为（ ）。 Private Sub Form_Click() Print“Click”； End Sub Private Sub Form_Mou

25、seDown(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 （分数：70.00）A.DownUpClick B.ClickDownUpC.DownClickUpD.UpDownClick解析：鼠标单击时，依次引发 MouseDown、MouseUp、Click 事件，即 C

26、lick 事件包含鼠标按下和放开事件。19.用于将屏幕上的对象分组的控件是（ ）。（分数：70.00）A.键盘事件B.鼠标事件C.窗口事件D.控件事件 解析：用“#”括起来的部分表示日期。用双引号括起来的部分表示字符串常量。VisualBasic 中用“&”括起来的部分表示八进制长整型数。20.下列方法中不能退出 Visual Basic的是（ ）。（分数：70.00）A.使用 ReDim语句可以改变数组的维数B.使用 ReDim语句可以改变数组的类型 C.使用 ReDim语句可以改变数组的每一维的大小D.使用 ReDim语句可以改变对数组中的所有元素进行初始化解析：ReDim 语句是声明语句

27、中的一种类型，它只能用于过程和函数体内，为动态数组分配内存空间，下面具体来看看有关 ReDim语句的声明： Dim 语句是不执行的，可以放在过程的外部,ReDim 语句是可执行语句，必须放在过程内； ReDim 语句可以反复使用，用以改变数组的维数和元素个数，但不能改变数组类型； 在第二次使用 ReDim语句时将对数组重新初始化，若为数值型数组，各元素变为0；若为字符串数组，各元素都变为长度为 0的字符串；Variant 型则变为 Empty。 21.在 Visual Basic中，要使标签的标题栏居中显示，则将其 Alignment属性设置为（ ）。（分数：70.00）A.0B.2 C.1D

28、.3解析：本题考查的是标签的 Alignment属性的设置。 Alignment 属性用来设置标签中标题的位置，可将其设置为 0，1，2，作用如下： 0：标题靠左显示(默认)。 1：标题靠右显示。 2：标题居中显示。22.下列关于退出 Visual Basic系统的方法的描述错误的是（ ）。（分数：70.00）A.-128+127B.-32768 +32767 C.-2147483648 +2417483647D.-3.40282347E38 +3.40282347E38解析：主方法的格式为 public static viod mian(String args ) ，返回值 为 void。2

29、3.下列说明中，不属于随机文件特点的是（ ）。（分数：70.00）A.可移植性和跨平台的特点B.多线程的并发机制C.编译器将 Java源程序转换成机器码 D.Applet是 Java的特殊应用程序，它嵌入到 HTML中，随主页发布到互连网上解析：源程序编译过程中没有出现仟何错误，但在执行时也会可能发生错误，这与当时执行程序的环境有关。 24.下列关于退出 Visual Basic系统的方法的描述错误的是（ ）。（分数：70.00）A.打开 Visual Basic主窗体的“文件”菜单，执行其中的“退出”命令B.按快捷键 Alt+Q退出C.单击 Visual Basic主窗体右上角的“关闭”按钮

30、D.按快捷键 Alt+E退出 解析：Visual Basic 像其他的应用程序一样可以单击屏幕右上角的“关闭”按钮来关闭，退出 Visual Basic，所以选项 C)是正确的；Visual Basic 也提供了快捷键 Alt+Q，用来退出系统，故选项 B)也是正确的；再就是单击“文件”菜单，然后选择“退出” 选项也可退出 Visual Basic系统，所以选项 A)正确；选项 D)错误，Alt+E 是用于打开“编辑”菜单的热键。25.在窗体上画一个名称为 Command1的命令按钮，然后编写如下通用过程和命令按钮的 事件过程： Private Function fun(ByVal m As

31、Integer) If m Mod 2 = 0 Then fun = 2 Else fun = 1 End If End Function Private Sub Command1_Click() Dim i As Integer, s As Integer s = 0 For i = 1 To 5 s = s + fun(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是_。 （分数：70.00）A.6B.7 C.8D.9解析：本题中 fun 函数的功能是偶数时返回 2，奇数时返回 1。而 1 到 5 中，有三个奇数，两个偶数。所以 s 是三个 1 和

32、两个 2 之和。故 s=7。26.下列不属于软件工程的 3个要素的是( )。（分数：-1.00）A.工具B.过程C.方法D.环境 解析：软件工程包括 3个要素，即方法、工具和过程。方法是完成软件工程项目的技术手段；工具支持软件的 开发、管理、文档生成；过程支持软件开发的各个环节的控制、管理。27.软件设计中，有利于提高模块独立性的一个准则是( )。（分数：-1.00）A.低内聚低耦合B.低内聚高耦含C.高内聚低耦台 D.高内聚高耦合解析：模块的独立程度是评价设计好坏的再要度量标准。衡量软件的模块独立性使用耦合性和内聚性两个定性的度量标准。一般优秀的软件设计，应尽量做到高内聚，低耦合，即减弱模块

33、之间的耦合性和提高模块内的内聚性，有利于提高模块的独立性。28.在深度为 5的满二叉树中，叶结点的个数为( )。（分数：-1.00）A.32B.31 C.16D.15解析：所谓满二叉树是指这样的一种二叉树：除最后一层外，每一层上的所有结点都有两个叶子结点。这就是 说，在满二叉树中，层上的结点数都达到最大值，即在满二叉树的第 k层上有 2k-1 个结点，且深度为 m的满二叉树有 2m-1 个结点。29.对建立良好的程序设计风格，下面描述正确的是( )。（分数：-1.00）A.程序应简单、清晰、可读性好 B.符号名的命名只要符合语法C.充分考虑程序的执行效率D.程序的注释可有可无解析：程序设计应该

34、简单易懂，语句构造应该简单直接，不应该为提高效率而把语句复杂化。30.在软件测试设计中，软件测试的主要目的是( )。（分数：-1.00）A.实验性运行软件B.证明软件正确C.找出软件中全部错误D.发现软件错误而执行程序 解析：使用人工或自动手段来运行或测定某个系统的过程，其目的在于检验它是否满足规定的需求或是弄清预期结果与实际结果之间的差别。软件测试是为了发现错误而执行程序的过程。测试要以查找错误为中心，而不是为了演示软件的正确功能。 31.尔排序属于( )。（分数：-1.00）A.交换排序B.归并排序C.选择排序D.插入排序 解析：希尔排序的基本思想是把记录按下标的一定增量分组，对每组记录使

35、用插入排序，随增量的逐渐减小，所分成的组包含的记录越来越多，到增量的值减小到 1时，整个数据合成一组，构成一组有序记录，故其属于插入排序方法。32.下列数据结构中，按先进后出原则组织数据的是( )。（分数：-1.00）A.线性链表B.栈 C.循环链表D.顺序表解析：栈是限定在一端进行插入与删除的线性表。在栈中，允许插入与删除的一端称为栈顶，而不允许插入与删除的另一端称为栈底。栈顶元素总是最后被插入的元素，从而也是最先能被删除的元素；栈底元素总是最先被插入的元素，从而也是最后才能被删除的元素，即栈是按照“先进后出”或“后进先出”的原则组织数据的。注意：队列组织数据的原则是“先进先出”或“后进后出

36、”。33.用链表表示线性表的优点是( )。（分数：-1.00）A.便于随机存取B.花费的存储空间比顺序存储少C.便于插入和删除操作 D.数据元素的物理顺序与逻辑顺序相同解析：链式存储结构克服了顺序存储结构的缺点：它的结点空间可以动态申请和释放；它的数据元素的逻辑次序靠结点的指针来指示，不需要移动数据元素。故链式存储结构下的线性表便于插入和删除操作。34.结构化程序设计的 3种结构是( )。（分数：-1.00）A.顺序结构、选择结构、转移结构B.分支结构、等价结构、循环结构C.多分支结构、赋值结构、等价结构D.顺序结构、选择结构、循环结构 解析：顺序结构、选择结构和循环结构(或重复结构)是结构化

37、程序设计的 3种基本结构。35.在下列几种排序方法中，要求内存量最大的是( )。（分数：-1.00）A.插入排序B.选择排序C.快速排序D.归并排序 解析：快速排序的基本思想是，通过一趟排序将待排序记录分割成独立的两部分，其中一部分记录的关键字均比另一部分记录的关键字小，再分别对这两部分记录继续进行排序，以达到整个序列有序；插入排序的基本操作是指将无序序列中的各元素依次插入到已经有序的线性表中，从而得到一个新的序列；选择排序的基本思想是：扫描整个线性表，从中选出最小的元素，将它交换到表的最前面(这是它应有的位置)，然后对剩下的子表采用同样的方法，直到表空为止；归并排序是将两个或两个以上的有序表

38、组合成一个新的有序表。三、填空题（每空 2分，共 30分）(总题数：10，分数：30.00)36.下列程序的功能是：将数据 1，2，8 写入顺序文件 Numtxt 中，请补充完整。 Private Sub Form_Click1 Dim i As Integer Open“Numtxt“For Output As #1 For i=1 To 8 2 Next i Close #1 End Sub （分数：3.00）填空项 1:_ （正确答案：Print #1，i）解析：向文件中写入数据用 Print语句。37.下列程序的功能是：将数据 1，2，8 写入顺序文件 Numtxt 中，请补充完整。

39、Private Sub Form_Click1 Dim i As Integer Open“Numtxt“For Output As #1 For i=1 To 8 2 Next i Close #1 End Sub （分数：3.00）填空项 1:_ （正确答案：Print #1，i）解析：向文件中写入数据用 Print语句。38.数据管理技术发展过程经过人工管理、文件系统和数据库系统三个阶段，其中数据独 立性最高的阶段是 1。（分数：3.00）填空项 1:_ （正确答案：数据库系统）解析：在数据管理技术的发展过程中，经历了人工管理阶段、文件系统阶段和数据库系统阶段。其中数据 独立性最高的阶段

40、是数据库系统。39.在文件对话框中，假定有一个名为“fcexe“的文件，它位于“d:/pp“目录下，则“FileName“属性 的值为 1；FileTifie 属性的值为 2。 （分数：3.00）填空项 1:_ （正确答案：d:/pp/fc.exe）解析：FileName 属性：用来设置或返回要打开或保存的文件的路径及文件名，在文件对话框中显示一系列文件名，如果选择了一个文件并单击“打开”或“保存”按钮，所选择的文件即作为属性 FileName属性的值，然后就可以把该文件作为要打开或保存的文件 FileTitle属性：用来指定文件对话框中所选择的文件名(不包括路径)，该属性与 FileName

41、 属性的区别是：FileName 属性用来指定完整的路径，如“e：/dd/deexe”；而 FileTitle属性只指定文件名，如“deexe”。40.要使标签的背景样式为不透明，应将 BackStyle属性设置为 1。（分数：3.00）填空项 1:_ （正确答案：1）解析：BackStyle 属性用来指定标签的背景样式是否透明，该属性可以取两个值：0 和 1。当为 0时，标签为“透明”的；当值为 1时，标签将覆盖背景。41.在一个窗体上有两个命令按钮，cmdMax 和 cmdMin。单击 cmdMax时，窗体上显示“字体由小变大”，字号每次增加 2；单击 cmdMin时，窗体上显示“字体由大

42、变小”，字号每次减小 2。请填空。 Private Sub Form_Load1 FormlCaption =“字体变化示范” cmdMaxCaption=“字体变大” cmdMinCaption=“字体变小” End Sub Private Sub cmdMax_Click2 3 FormlPrint”字体由小变大” End Sub Private Sub cmdMin_Click4 5 FormlPrint“字体由大变小” End Sub （分数：3.00）填空项 1:_ （正确答案：Form1FontSize=Form1FontSize + 2）解析：决定字体大小的是 FontSize属

43、性，所以要改变字体的大小需要改变 FontSize的值。cradMax 按钮的作用是单击 cmdMax时，窗体上显示“字体由小变大”，字号每 次增加 2，所以第一个空应填入的是Form1FontSize = Form1FontSize + 2；cmdMin 按钮 的作用是单击 cmdMin时，窗体上显示“字体由大变小”，字号每次减小 2，所以第二个空 填入的是 Form1FontSize = Form1FontSize - 2。 42.在窗体上有一个命令按钮，然后编写如下程序： Function Trans(ByVal num As Long) As Long Dim k As Long k=

44、l Do While num k=k * (num Mod 10) num=num/10 Loop Trans=k Print Trans End Function Private Sub Commandl_Click1 Dim m As Long Dim s As Long m=InputBox(“请输入一个数“) s=Trans(m) End Sub 程序运行时，单击命令按钮，在输入对话框中输入“789”，输出结果为 2，在输入对话框中输入“987”输出 3，在输入对话框中输入“879”，输出结果为 4。 （分数：3.00）填空项 1:_ （正确答案：504）解析：关键字 ByVal用来实

45、现传值，也就是说在定义通用过程时，如果形参前面有关键字 Byval，则该参数用传值方式传递，否则用传址方式传递；在 Sub过程中，先将输入的 “456”赋给变量 m，m 作为参数，调用 Trans过程；在 Trans过程中以 num作为 Do While的循环条件；在循环体中，调用 Mod函数，将num的个位数字与 k相乘，然后赋给 k，第一次循环时，num 的值是 789，所以 k的值为 9，执行 num = num/10后，num 的值为 78，循环三次后，num 变为 0；退出循环，k 值等于 987=504，并将 k的值作为返回值；当输入 “987”或“879”时执行相同的操作，结果都

46、为 504。可以看出，此程序可用于求一个数值各位上数值的乘积。43.改变驱动器列表框的 Drive属性值将引发 1 事件。（分数：3.00）填空项 1:_ （正确答案：Change）解析：本题考查的是驱动器列表框的知识。驱动器列表框的最常用的事件是“Change 事件”，每次重新设置 Drive属性都会引起“Change”事件。44.下列程序的功能是：将数据 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:_ （正确答案：“Basetxt”For）填空项 1:_ （正确答案：Output）解析：本题中以输出方式来打开文件，故要用“Open“Basetxt“For Output As# 1“语句；向文件中写入数据用 Print语句。45.以下是一个计算矩形面积的程序，调用过程计算矩形面积，请将程序补充完整。 Sub RecArea(L，W) Dim S As Double S=L*W MsgBox“Total Area is“& Str(S)