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

1、二级 VISUAL+BASIC 笔试-340 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.在窗体上有一个文本框，其名称为 Text1，编写下列事件过程：Private Sub Text1_KeyPress(KeyAscii As Integer)Dim str As Stringstr=Chr(KeyAscii)KeyAscii=Asc(UCase(str)Text1.Text=Stririg(2,KeyAscii)End Sub程序运行后，如果在键盘上输入字母“a”，则在文本框 Text3 中显示的内容为( )。（分数：2.00）A.

2、aaaB.AAAC.AAD.aa2.下列每组控件中，都包含有滚动条的一组控件是( )。（分数：2.00）A.ListBox 和 LabelB.TextBox 和 DriveListBoxC.ComboBox 和 CheckBoxD.FileListBox 和 DirListBox3.下列选项中，不是一个算法的基本特征的是( )。（分数：2.00）A.完整性B.可行性C.有穷性D.拥有足够的情报4.下列程序段的运行结果是( )。Sub sele()Dim n As Integeri=21:n=3Do While ini=i-nLoopPrint iEnd Sub（分数：2.00）A.2B.4C.

3、5D.35.下列关于菜单的说法错误的是( )。（分数：2.00）A.每个菜单项都是一个控件，与其他控件一样也有其属性和事件B.除了 Click 事件之外，菜单项不可以响应其他事件C.菜单项的索引号可以不连续D.菜单项的索引号必须从 1 开始6.按文件的内容划分有( )。（分数：2.00）A.顺序文件和随机文件B.ASCII 文件和二进制文们：C.程序文件和数据文件D.磁盘文件和打印文件7.对于长度为 n 的线性表，在最坏情况下，下列各种排序法所对应的比较次数中正确的是( )。（分数：2.00）A.冒泡排序为 n/2B.冒泡排序为 nC.快速排序为 nD.快速排序为 n(n-1)/28.用户在组

4、合框中输入或选择的数据可以通过( )属性来获得。（分数：2.00）A.ListB.ListlndexC.TextD.ListCount9.在窗体上画一个名为 Command1 的命令按钮，然后编写下列程序：Option Base 1Private Sub Command1_Click()Dim ArrArr=Array(1,2,3,4,5)j=1For i=5 To 1 Step-1S=S+Arr(i)*jj=j*10NextPrint SEnd Sub程序运行后，单击命令按钮，输出结果是( )。（分数：2.00）A.54321B.123C.12345D.34510.某二叉树共有 60 个叶子

5、结点与 50 个度为 1 的结点，则该二叉树中的总结点数为( )。（分数：2.00）A.148B.169C.182D.19811.窗体上有两个文本框 Text1、Text2 以及一个命令按钮 Command1，编写下列程序：Dim y As IntegerPrivate Sub Command1_Click()Dim x As Integerx=2Text1.Text=p2(p1(x),y)Text2.Text=p1(x)End SubPrivate Function p1(x As Integer)As Integerx=x+y:y=x+yp1=x+yEnd FunctionPrivate

6、Function p2(x As Integer,y As Integer)As Integerp2=2*x+yEnd Function当单击 1 次和单击 2 次命令按钮后，文本框 Text1 和 Text2 内的值分别为( )。（分数：2.00）A.2 42 4B.2 44 8C.4 48 8D.10 1058 5812.在用 Open 语句打开文件时，如果省略“For 方式”，则打开的文件的存取方式是( )。（分数：2.00）A.顺序输入方式B.顺序输出方式C.随机存取方式D.二进制方式13.在窗体上添加一个命令按钮，名为 Command1，其单击事件中有下列程序段，则事件过程执行后，文

7、本框中输出( )。For i=1 To 4For j=1 To 3x=3For k=1 To 2K=x+3Next kNext jNext iText1.Text=Str(x)（分数：2.00）A.3B.6C.9D.1214.下列关于复选框的说法，正确的是( )。（分数：2.00）A.复选框的 Enabled 属性用于决定该复选框是否可见B.复选框的 Value 属性用于决定该复选框是否被选中C.复选框的 TabIndex 属性用于决定该复选框在控件数组中的序号D.复选框的 Visible 属性用于决定该复选框是否可用15.语句 Dim Arr(3 To 5,-2 To 2)定义的数组的元素个

8、数是( )。（分数：2.00）A.20B.12C.15D.2416.要使某菜单能够通过按住键盘上的Alt键及1键打开，应( )。（分数：2.00）A.在“名称”栏中“K”字符前加上“s1;“s2=“;s219.将文本框的 PasswordChar 属性设置为一个星号*，运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可能是( )。（分数：2.00）A.文本框的 MultiLine 属性值为 TrueB.文本框的 Looked 属性值为 TreeC.文本框的 MultiLine 属性值为 FalseD.文本框的 Looked 属性值为 False20.当一个工程含有多个窗体时，其中的

9、启动窗体是( )。（分数：2.00）A.启动 Visual Basic 时建立的窗体B.第一个添加的窗体C.最后一个添加的窗体D.在“工程属性”对话框中指定的窗体21.按照“先进先出”组织数据的数据结构是( )。（分数：2.00）A.队列B.栈C.双向链表D.二叉树22.下列数据结构中，属于非线性的是( )。（分数：2.00）A.线性表B.队列C.树D.栈23.下列叙述中错误的是( )。（分数：2.00）A.线性表是由 n 个元素组成的一个有限序列B.线性表是一种线性结构C.线性表的所有结点有且仅有一个前件和后件D.线性表可以是空表24.执行语句 Open“TC.dat“For Random

10、As#1 Len=50 后，对文件 TC.dat 中的数据能执行的操作是( )。（分数：2.00）A.只读操作B.只写操作C.既可以读，也可以写D.追加操作25.下列关于线性链表的描述中正确的是( )。（分数：2.00）A.存储空间不一定连续，且各元素的存储顺序是任意的B.存储空间不一定连续，且前件元素一定存储在后件元素的前面C.存储空间必须连续，且各前件元素一定存储在后件元素的前面D.存储空间必须连续，且各元素的存储顺序是任意的26.下列描述不正确的是( )。（分数：2.00）A.某个子过程中声明的局部变量，其使用范围仅限定于该子过程内B.某个子过程中声明的局部变量，其生命周期仅限于该子过程

11、被执行过程中C.不同子过程中的局部变量可以具有相同的名称D.不同子过程中具有相同的名称的局部变量是同一变量27.某人在窗体上画了一个名称为 Timer1 的计时器和一个名称为 Label1 的标签，计时器的属性设置为Enabled=True，Interval=0，并编程如下。希望在程序运行时，可以每 2 秒在标签上显示一次系统当前时间。Private Sub Timer1_Timer()Label1.Caption=TimeEnd Sub在程序执行时发现未能实现上述目的，那么，应做的修改是( )。（分数：2.00）A.通过属性窗口把计时器的 Interval 属性设置为 2000B.通过属性窗

12、口把计时器的 Enabled 属性设置为 FalseC.把事件过程中的 Label1.Caption=TimeS 语句改为 Timer1.Interval=TimeD.把事件过程中的 Label1.Caphon=TimeS 语句改为 Label1.Caption=Timer1.Time28.如果要在程序代码中为图片框动态加载或清除图形，可以通过( )函数来实现。（分数：2.00）A.InputBoxB.InputC.LoadPictureD.PaintPicture29.单击命令按钮时，下列程度段的执行结果是( )。Pdvate Sub Command1_Clik()Dim a As Inte

13、ger,b As Integer,c As Integera=2;b=4;c=6CaII S1(a,b)Print“a=“;“b=“;b;“c=“;cCall S2(a,b)Print“a=“;a;“b=“;b;“c=“;c;End SubPrivate Sub S1(x As Integer,y As Integer)Dim c As Integerx=2*x:y=y+2:c=x+yEnd SubSub S2(x As Integer,ByVal y As Integer)Dim e As Integerx=2*x:y=y+2:e=x+yEnd Sub（分数：2.00）A.a=4 b=6 c

14、=6a=4 b=6 c=6B.a=8 b=6 c=6a=8 b=6 c=6C.a=4 b=6 c=6a=8 b=6 c=6D.a=8 b=6 c=6a=4 b=6 c=630.最简单的交换排序方法是( )。（分数：2.00）A.快速排序B.选择排序C.堆排序D.冒泡排序31.结构化程序设计的 3 种基本结构是( )。（分数：2.00）A.过程、子程序和分程序B.顺序，选择和重复C.递归、堆栈和队列D.调用、返回和转移32.下列程序段的输出结果是( )。Dim M(5,5),S(5)For i=1 To 5S(i)=0For j=1 To 5M(i,j)=i+jS(i)=S(i)+M(i,j)N

15、ext jNext iFor Each x In SPrint x;Next x（分数：2.00）A.20 23 24 35 40B.20 25 30 35 40C.20 23 25 35 40D.20 25 35 40 4533.要使菜单项 MenuOne 在程序运行时失效，使用的语句是( )。（分数：2.00）A.MenuOne.Visible=TmeB.MenuOne.Visible=FalseC.MenuOne.Enabled=TrueD.MenuOne.Enabled=False34.在 E 盘当前目录文件夹下建立一个名为“Student.txt”，的随机文件，要求用 InputBo

16、x 函数输入 5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。在程序中有下列记录类型和窗体的事件过程，请选择正确的语句完成程序( )。Private Type studentStuName As String*10StuGrade As String*10StuAge As IntegerEnd TypePrivate Sub Form_Click()Dim s As studentOpen“c:/student.txt“For Random As#1 Len=Len(s)For i=1 To 1s.StuName=InputBox(“请输入姓名“)s.Stu

17、Grade=InputBox(“请输入年级号“)s.StuAge=Val(InputBox(“请输入年龄“)_Next iClose#1End Sub（分数：2.00）A.Prim#1,sB.Print#1,1C.Put#1,sD.Put#1,i35.下列数据结构中，能用二分法进行查找的是( )。（分数：2.00）A.顺序存储的有序线性表B.结性链表C.二叉链表D.有序线性链表二、填空题(总题数：14，分数：30.00)36.软件生命周期分为软件定义期、软件开发期和软件维护期，详细设计属于 1 中的一个阶段。（分数：2.00）填空项 1:_37.结构化分析方法是面向 1 进行分析的方法。（分数

18、：2.00）填空项 1:_38.常用的软件结构设计工具是结构图(SC)，也称程序结构图。其中，用矩形表示 1，用带空心圆的箭头表示传递的是数据。（分数：2.00）填空项 1:_39.在进行模块测试时，要为每个被测试的模块另外设计两类模块：驱动模块和承接模块，其中 1 的作用是将测试数据传送给被测试的模块，并显示被测试模块所产生的结果。（分数：2.00）填空项 1:_40.诊断和改正程序中错误的工作通常称为 1。（分数：2.00）填空项 1:_41.属性窗口分为 4 个部分，这 4 个部分分别是 1。（分数：2.00）填空项 1:_42.Text 文本框接受的最长字符数由文本框的 1 属性确定。

19、（分数：2.00）填空项 1:_43.设当前日期为 2007 年 12 月 27 日，星期四，则执行下列语句后的输出结果是_。Print Day(Now)Print Month(Now)Print YeaffNow)Print Weekday(Now)（分数：2.00）填空项 1:_44.表达式“12345“12345“s1;“s2=“;s2解析：解析 Factorial 函数的作用是计算参数数组 a 元素的累计乘积，即将数组 a 的元素从下界到上界循环相乘。在主调过程中，Factorial(a)、Factorial(b)分别传递数组 a 和 b，计算结果分别赋给 s1和 s2。19.将文本框

20、的 PasswordChar 属性设置为一个星号*，运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可能是( )。（分数：2.00）A.文本框的 MultiLine 属性值为 True B.文本框的 Looked 属性值为 TreeC.文本框的 MultiLine 属性值为 FalseD.文本框的 Looked 属性值为 False解析：解析 PasswordChar 属性将影响 TextBox 控件中显示的文本，文本框中将显示 PasswordChar 属性设置的字符的内容，但是如果 MultiLine 属性被设为 True，那么设置 PasswordChar 属性将不起效果。2

21、0.当一个工程含有多个窗体时，其中的启动窗体是( )。（分数：2.00）A.启动 Visual Basic 时建立的窗体B.第一个添加的窗体C.最后一个添加的窗体D.在“工程属性”对话框中指定的窗体 解析：解析 在 Visual Basic 程序中，如果有多个窗体，且没有指定启动窗体，则默认设计时的第一个窗体为启动窗体；如果要指定启动窗体，可以通过“工程”菜单中的“工程属性”命令来指定启动窗体。注意：如果没有指定启动窗体，则第一个创建的窗体自动显示在“工程属性”对话框中的“启动对象”中。21.按照“先进先出”组织数据的数据结构是( )。（分数：2.00）A.队列 B.栈C.双向链表D.二叉树解

22、析：解析 队列是一种特殊的线性表，只允许在表的一端插入元素，在表的另一端删除元素，插入元素的一端叫“队尾”，删除元素的一端叫“队头”，先插入的元素先被删除，是按“先进先出”的原则组织数据的。22.下列数据结构中，属于非线性的是( )。（分数：2.00）A.线性表B.队列C.树 D.栈解析：解析 线性结构是指数据元素只有一个直接前件元素和直接后件元素。线性表是线性结构，栈和队列是指对插入和删除操作有特殊要求的线性表，树是非线性结构。23.下列叙述中错误的是( )。（分数：2.00）A.线性表是由 n 个元素组成的一个有限序列B.线性表是一种线性结构C.线性表的所有结点有且仅有一个前件和后件 D.

23、线性表可以是空表解析：解析 线性表是一种线性结构，由 n(n0)个元素组成，所以线性表可以是空表。但是在线性表中，第一个结点没有前件，最后一个结点没有后件，其他结点有且只有一个前件和后件，所以选项 C)是错误的。24.执行语句 Open“TC.dat“For Random As#1 Len=50 后，对文件 TC.dat 中的数据能执行的操作是( )。（分数：2.00）A.只读操作B.只写操作C.既可以读，也可以写 D.追加操作解析：解析 题中的语句是以 Random 方式打开了一个随机文件 TC.dat，随机文件打开后，可以同时进行读、写操作。25.下列关于线性链表的描述中正确的是( )。（

24、分数：2.00）A.存储空间不一定连续，且各元素的存储顺序是任意的 B.存储空间不一定连续，且前件元素一定存储在后件元素的前面C.存储空间必须连续，且各前件元素一定存储在后件元素的前面D.存储空间必须连续，且各元素的存储顺序是任意的解析：解析 线性表的链式存储结构中的结点空间是动态生成的，它们在内存中的地址可能是连续的，也可能是不连续的。26.下列描述不正确的是( )。（分数：2.00）A.某个子过程中声明的局部变量，其使用范围仅限定于该子过程内B.某个子过程中声明的局部变量，其生命周期仅限于该子过程被执行过程中C.不同子过程中的局部变量可以具有相同的名称D.不同子过程中具有相同的名称的局部变

25、量是同一变量 解析：解析 在子过程中声明的变量叫局部变量，其作用范围仅限于该过程内，其生命周期是子过程执行过程；不同子过程中的局部变量可以同名，不会相互影响，如果子过程中没有声明就使用的变量，除非在子过程外部有声明，否则也认为是局部变量。27.某人在窗体上画了一个名称为 Timer1 的计时器和一个名称为 Label1 的标签，计时器的属性设置为Enabled=True，Interval=0，并编程如下。希望在程序运行时，可以每 2 秒在标签上显示一次系统当前时间。Private Sub Timer1_Timer()Label1.Caption=TimeEnd Sub在程序执行时发现未能实现上

26、述目的，那么，应做的修改是( )。（分数：2.00）A.通过属性窗口把计时器的 Interval 属性设置为 2000 B.通过属性窗口把计时器的 Enabled 属性设置为 FalseC.把事件过程中的 Label1.Caption=TimeS 语句改为 Timer1.Interval=TimeD.把事件过程中的 Label1.Caphon=TimeS 语句改为 Label1.Caption=Timer1.Time解析：解析 Timer 控件有两个重要的属性和一个事件。其中，Interval 设置响应 Timer 事件的时间间隔，单位是 ms。要每隔 2 秒显示一次当前时间，就是每隔 2 秒

27、触发一次 Timer()事件，所以应设置Interval 属性为 2000ms。28.如果要在程序代码中为图片框动态加载或清除图形，可以通过( )函数来实现。（分数：2.00）A.InputBoxB.InputC.LoadPicture D.PaintPicture解析：解析 在运行期间载入图形文件，可以用 LoadPicture 函数，其格式为：Picture1.Picture=LoadPicture(“文件名“)；如果要清除图形文件，可以执行下列操作：Picture1.Picture=LoadPicture(“)。29.单击命令按钮时，下列程度段的执行结果是( )。Pdvate Sub C

28、ommand1_Clik()Dim a As Integer,b As Integer,c As Integera=2;b=4;c=6CaII S1(a,b)Print“a=“;“b=“;b;“c=“;cCall S2(a,b)Print“a=“;a;“b=“;b;“c=“;c;End SubPrivate Sub S1(x As Integer,y As Integer)Dim c As Integerx=2*x:y=y+2:c=x+yEnd SubSub S2(x As Integer,ByVal y As Integer)Dim e As Integerx=2*x:y=y+2:e=x+y

29、End Sub（分数：2.00）A.a=4 b=6 c=6a=4 b=6 c=6B.a=8 b=6 c=6a=8 b=6 c=6C.a=4 b=6 c=6a=8 b=6 c=6 D.a=8 b=6 c=6a=4 b=6 c=6解析：解析 在定义子过程的参数时，如果在参数前加上 ByVal，表示是“传值”参数，主调函数中参数的值不被改变；否则表示是“传地址”参数，参数值会被调用的子过程改变。题中 S1 过程的参数是“传地址”，因此调用后 a、b、c 的值都改变了，分别为 4、6、6；S2 过程的参数中 a 是“传地址”参数，b 是“传值”参数，因此调用后 a 值改变，b 值不变，因为 c 是过程

30、变量，所以也没有变化，因此输出的值为 8、6、6。30.最简单的交换排序方法是( )。（分数：2.00）A.快速排序B.选择排序C.堆排序D.冒泡排序 解析：解析 交换排序方法是指借助数据元素之间的互相交换进行排序的一种方法，包括冒泡排序和快速排序。冒泡排序是一种最简单的交换排序方法，它通过相邻元素的交换，逐步将线性表变成有序。31.结构化程序设计的 3 种基本结构是( )。（分数：2.00）A.过程、子程序和分程序B.顺序，选择和重复 C.递归、堆栈和队列D.调用、返回和转移解析：解析 程序的 3 种基本控制结构包括 J 顷序、选择和重复(循环)，这 3 种结构就足以表达出各种其他形式的结构

31、。32.下列程序段的输出结果是( )。Dim M(5,5),S(5)For i=1 To 5S(i)=0For j=1 To 5M(i,j)=i+jS(i)=S(i)+M(i,j)Next jNext iFor Each x In SPrint x;Next x（分数：2.00）A.20 23 24 35 40B.20 25 30 35 40 C.20 23 25 35 40D.20 25 35 40 45解析：解析 程序的执行过程是：当 i=1 时，j=1，M(1,1)=i+j=2；S(1)=S(1)+M(1,1)=2。当 j=2 时，M(1,2)=i+j=3；S(1)=S(1)+M(1,2

32、)=5。当 j=3 时，M(1,3)=i+j=4；S(1)=S(1)+M(1,3)=9。当 j=4 时，M(1,4)=i+j=5；S(1)=S(1)+M(1,4)=14。当 j=5 时，M(1,5)=i+j=6；S(1)=S(1)+M(1,5)=20。依此类推，最后 S 数组元素的值为：S(1)=20；S(2)=25；S(3)=30；S(4)=35；S(5)=40。33.要使菜单项 MenuOne 在程序运行时失效，使用的语句是( )。（分数：2.00）A.MenuOne.Visible=TmeB.MenuOne.Visible=FalseC.MenuOne.Enabled=TrueD.Men

33、uOne.Enabled=False 解析：解析 Enabled 属性用来设置一个窗体或控件是否能够对用户产生的事件作出反应，设为 False时，菜单项在程序运行时失效，不响应用户的操作；设为 True 时，菜单项在程序运行时有效，能响应用户的操作。Visible 属性用来设置窗体或控件是否可见，设为 False 时，控件不可见；设为 True 时，控件可见。34.在 E 盘当前目录文件夹下建立一个名为“Student.txt”，的随机文件，要求用 InputBox 函数输入 5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。在程序中有下列记录类型和窗体的事件过

34、程，请选择正确的语句完成程序( )。Private Type studentStuName As String*10StuGrade As String*10StuAge As IntegerEnd TypePrivate Sub Form_Click()Dim s As studentOpen“c:/student.txt“For Random As#1 Len=Len(s)For i=1 To 1s.StuName=InputBox(“请输入姓名“)s.StuGrade=InputBox(“请输入年级号“)s.StuAge=Val(InputBox(“请输入年龄“)_Next iClose

35、#1End Sub（分数：2.00）A.Prim#1,sB.Print#1,1C.Put#1,s D.Put#1,i解析：解析 本题考查随机文件的读写，在 For 循环中，向随机文件中写入 5 个学生的信息，所以应该使用写操作语句，在随机文件中，写操作用 Put 语句，其格式为：Put#文件号,记录号,变量。35.下列数据结构中，能用二分法进行查找的是( )。（分数：2.00）A.顺序存储的有序线性表 B.结性链表C.二叉链表D.有序线性链表解析：解析 二分法查找只适用于顺序存储的有序线性表，对于顺序存储的非有序线性表和线性链表，都只能采用顺序查找。二、填空题(总题数：14，分数：30.00)

36、36.软件生命周期分为软件定义期、软件开发期和软件维护期，详细设计属于 1 中的一个阶段。（分数：2.00）填空项 1:_ （正确答案：软件开发期）解析：解析 软件生命周期分为 3 个时期，共 8 个阶段：软件定义期(问题定义、可行性研究和需求分析)、软件开发期(系统设计、详细设计、编码和测试)、软件维护期(即运行维护阶段)。37.结构化分析方法是面向 1 进行分析的方法。（分数：2.00）填空项 1:_ （正确答案：数据流）解析：解析 结构化分析方法的实质是着眼于数据流，自顶向下，逐层分解，建立系统的处理流程，以数据流图和数据字典为主要工具，建立系统的逻辑模型。38.常用的软件结构设计工具是

37、结构图(SC)，也称程序结构图。其中，用矩形表示 1，用带空心圆的箭头表示传递的是数据。（分数：2.00）填空项 1:_ （正确答案：模块）解析：解析 矩形表示的是模块，箭头表示的是模块间的调用关系。用带实心圆的箭头表示传递的是控制信息，用带空心圆的箭头表示传递的是数据。39.在进行模块测试时，要为每个被测试的模块另外设计两类模块：驱动模块和承接模块，其中 1 的作用是将测试数据传送给被测试的模块，并显示被测试模块所产生的结果。（分数：2.00）填空项 1:_ （正确答案：驱动模块）解析：解析 由于模块通常不是独立的程序，自己不能运行，而需要其他模块调用或驱动，同时被测试模块还要去调用其他模块

38、，前者称为驱动模块，后者称为承接模块。其中驱动模块的作用是将测试数据传送给被测试的模块，并显示被测试模块所产生的结果；承接模块的作用是代替被测模块，调用其他模块。40.诊断和改正程序中错误的工作通常称为 1。（分数：2.00）填空项 1:_ （正确答案：调试）解析：解析 调试程序的任务是诊断和改正程序中的错误。程序调试活动由两部分组成，其一是根据错误的迹象确定程序中错误的确切性、原因和位置；其二是对程序进行修改，排除这个错误。41.属性窗口分为 4 个部分，这 4 个部分分别是 1。（分数：2.00）填空项 1:_ （正确答案：对象框、属性显示方式、属性列表和属性解释）解析：解析 对象属性在设

39、计阶段可以通过属性窗口来设置。属性窗口分为 4 个部分，即对象框、属性显示方式、属性列表和属性解释。42.Text 文本框接受的最长字符数由文本框的 1 属性确定。（分数：2.00）填空项 1:_ （正确答案：MaxLength）解析：解析 MaxLength 属性返回或设置一个值，指定文本框控件中能够输入的字符最大数量，默认为0，表示对输入的数量不限制。43.设当前日期为 2007 年 12 月 27 日，星期四，则执行下列语句后的输出结果是_。Print Day(Now)Print Month(Now)Print YeaffNow)Print Weekday(Now)（分数：2.00）填空

40、项 1:_ （正确答案：27CR12CR2007CR5CR(CR表示换行)）解析：解析 本题考查了日期函数的应用。其中，Day(Now)函数表示返回当前号数(即当前天是几号)；Month(Now)函数表示返回当前月份(即当前是几月)；Year(Now)函数表示返回当前年份(即当前是哪年)；Weekday(Now)函数表示返回当前星期号(即当前是星期几)。注意：星期号是用 06 来表示，0 代表周六，1 代表周日，2 代表周一，3 代表周二，4 代表周三，5 代表周四，6 代表周五。44.表达式“12345“12345“&“ABC“的值是 1。（分数：2.00）填空项 1:_ （正确答案：Tre

41、e）解析：解析 运算的顺序为先进行算术运算“&”，然后是关系运算“”。表达式“12345“12345“&“ABC“的运算过程如下：先进行算术运算，“12345“12345“&“ABC“=“12345“12345ABC“；再进行关系运算，“12345“12345“&“ABC“=“12345“12345ABC“=True。45.若要添加 CommonDialog 控件，则应从“工程”菜单中选定“部件”，在“部件”对话框的“控件”选项卡中选择 1，将控件添加到工具箱中。（分数：2.00）填空项 1:_ （正确答案：Microsoft Common Dialog Control 6.0）解析：解析 通

42、用对话框是 Visual Basic 提供的 ActiveX 控件。ActiveX 控件是具有.OCX 扩展名的文件，或一个可插入的对象。当使用“部件”对话框将其添加到工程中时，将扩充工具箱的内容。当工具箱上无通用对话框控件图标时，可以通过选择“工程”菜单中的“部件”命令，或右击工具箱，在弹出的快捷菜单中，选择“部件”命令，打开“部件”对话框。然后在对话框中的“控件”选项卡中，找到“Microsoft Common Dialog Conlrol 6.0”，并选中该项，单击“确定”按钮后即可将通用对话框控件添加到工具箱中。46.下列程序的功能是：弹出一个对话框询问用户是否输出，如果是，则输出：否

43、则结束。请填空。Sub PrintOut()Dim a As Integera=MsgBox(“输出结果?“,vblnformation+vbYesNo，“提示：“)If a=_ThenPrint “Myresult“End IfEnd Sub（分数：2.00）填空项 1:_ （正确答案：vbYes 或 6）解析：解析 M38Box 函数在对话框中显示消息，等待用户单击按钮，并返回一个 Integer 告诉用户单击哪一个按钮。返回值是一个整数，这个整数与选择的按钮有关，如下表所示。常数 vbOK vbCancle vbAbort vbRetry值 1 2 3 4描述 OK Cancle Abo

44、rt Retry常数 vbIgnore vbYes vbNo值 5 6 7描述 Ignore Yes No47.如果要通过程序代码来一次性删除列表框中所有项目，则应使用的方法是 1。（分数：2.00）填空项 1:_ （正确答案：Clear）解析：解析 Clear 方法用于清除控件中所有列表内容或系统剪贴板的内容。48.窗体中有图片框(Picture1)和计时器(Timer1)两个控件。程序运行时，将图片加载到图片框中，然后图片框以每秒一次的速度向窗体的右下角移动，每次向左、向右移动 300twip。请填空。（分数：2.00）填空项 1:_ （正确答案：Timer1.Interval=1000）

45、解析：解析 Interval 属性返回或设置对 Timer 控件的计时事件各调用时间间隔的毫秒数；Timer 事件在一个 Timer 控件的预定的时间间隔过去之后发生，即每隔 Interval 属性设定的时间间隔，就会触发一次。题中要求每隔一秒移动一次，因此在窗体启动时，应将 Timer1 控件的 Interval 属性值设置为1000。49.下列程序的功能是：找出给定的 12 个数中最大的一个数，然后输出这个数以及它在原来 12 个数中的位置。请填空。Option Base 1Private Sub Form_Click()Dim xx=Array(57,-9,17,42,-31,46,11,8,6,-4,3,90)Max=1For k=2 To 10 Step 1lfx(k)x(Max)Then_End IfNext ky=_Print Max,yEnd Sub（分数：4.00）填空项 1:_ （正确答案：Max=k x(Max)）解析：解析 在数组中查找多个数中最大的数的算法是：首先设变量 Max 为 1，从第一个数组元素开始与 x(Max)对比，如果数组元素大于 x(Max)，则 Max 记录该数组元素的下标，比较完后，Max 记录了最大数的下标。所以第 1 个横线处，应填写 Max=k，用 Max 记录较大数的下标；第 2 个横线处，用 y 来存储元素的最大值。