1、计算机二级(VB)16 及答案解析(总分：1765.00，做题时间：90 分钟)一、选择题(每小题 2 分，共 70 分) 下列各(总题数：25，分数：1750.00)1.设有命令按钮 Command1 的单击事件过程，代码如下： Private Sub Command1_Click() Dim a(30) As Integer For i=1 To 30 a(i)=Int(Rnd*100) Next For Each arrItem In a If arrItem Mod 7=0 Then Print arrItem If arrItem90 Then Exit For Next End S
2、ub 对于该事件过程，以下叙述中错误的是_。（分数：70.00）A.a 数组中的数据是 30 个 100 以内的整数B.语句 For Each arrItem In a 有语法错误C.If arrItem Mod 7=0语句的功能是输出数组中能够被 7 整除的数D.If arrItem90语句的作用是当数组元素的值大于 90 时退出 For 循环2.设置命令按钮的属性时，只有将何属性设置为 1，Picture 属性才有效，否则无效?（分数：70.00）A.StyleB.CaptionC.EnabledD.Default3.单击命令按钮，下列事件过程的执行结果为( )。 Private Sub
3、Command1_Click( ) Dim x As Integer, y As Integer x=40：y=72 Call PtoP(x, y) Print x; y End Sub Public Sub PtoP(Byval n AS Integer, ByVal m Aa Integer) n = n / 10+2 m = m / 10+2 End Sub （分数：70.00）A.0 8B.40 72C.4 50D.78 504.Print 方法可以在对象上输出数据，这些对象包括（ ）。（分数：70.00）A.程序错误B.内存为 20 地址的大小C.20D.45.下列程序的执行结果为(
4、 )。 Private Sub Commandl_Click() Dim s1 As String ,s2 As String s1= “abcd“ Call Transfer(sl，s2) Print s2 End Sub Private Sub Transfer (ByVal xstr As String，ystr As String) Dim tempstr As String ystr=tempstr End Sub （分数：70.00）A.dcbaB.abdcC.abcdD.dabc6.标签控件能够显示文本信息，决定其文本内容的属性是（ ）。（分数：70.00）A.Alignment
5、B.CaptionC.VisibleD.BorderStyle7.执行下面的程序段后，变量 c 的值为( )。 a=14 b=30 Slect Case b/10 Case 0 C=a * 10 + b Case 1 To 9 C=a * 100+b Case 10 To 99 C=a * 1000 + b End Select print c （分数：70.00）A.excellentB.goodC.passD.fail8.激活菜单栏的快捷键是（ ）。（分数：70.00）A.SELECT 姓名，仓库名 FROM 职工； WHERE 基本工资3000B.SELECT 姓名，仓库名 FROM 仓
6、库； WHERE 基本工资3000C.SELECT 姓名，仓库名 FROM 职工，仓库； WHERE(基本工资3000)OR(职工仓库号=仓库仓库号)D.SELECT 姓名，仓库名 FROM 职工，仓库； WHERE(基本工资3000)AND(职工仓库号=仓库仓库号)9.在 PasswordChar 属性中设置#，但运行时仍显示文本内容，原因是（ ）。（分数：70.00）A.文本框的 Locked 属性设置为 FalseB.文本框的 Locked 属性设置为 TreeC.文本框的 Multiline 的属性设置为 FasleD.文本框的 Multiline 的属性设置为 True10.关于货币
7、型数据的说明，正确的是（ ）。（分数：70.00）A.货币型数据有时可以表示成整型数据B.货币型数据与浮点型数据完全一样C.货币型数据是由数字和小数点组成的字符串D.货币型数据是小数点位置固定的实型数11.在窗体上画一个名称为 Text1 的文本框，一个名称为 Command1 的命令按钮，然后编写如下事件过程和通用过程： Private Sub Command1_Click() n = Val(Text1.Text) If n/2 = n/2 Then f = f1(n) Else f = f2(n) End If Print f; n End Sub Public Function f1(
8、ByRef x) x=x*x f1=x+x End Function Public Function f2(ByVal x) x=x*x f2=x+x+x End Function 程序运行后，在文本框中输入 6，然后单击命令按钮，窗体上显示的是（ ）。 （分数：70.00）_12.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为 Text1、Label1 和 Command1，然后编写如下两个事件过程： Private Sub Command1_Click() strText = InputBox(“请输入“) Text1.Text = strText End Sub Privat
9、e Sub Text1_Change() Label1.Caption = Right(Trim(Text1.Text), 3) End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是 （分数：70.00）_13.在窗体上添加标签控件 Label1 之后，标签控件的默认的名称 Name 是（ ）。（分数：70.00）A.5，68936B.5，689360C.5，6893D.005，68936014.下面的属性中，用于自动调整图像框中图形内容的大小的是（ ）。（分数：70.00）A.PictureB.CurentYC.CurrentXD.Stretc
10、h15.下列程序段的执行结果为( )。 I=1 x=5 Do I= I + 1 x= x + 2 Loop Until I=7 Print “ I= “；I Print “x=“；x （分数：70.00）A.for 循环只能用于循环次数已经确定的情况B.for 循环是先执行循环体语句，后判断表达式C.在 for 循环中，不能用 break 语句跳出循环体D.for 循环的循环体语句中，可以包含多条语句，但必须用花括号括起来16.下列各控件不包含滚动条的控件是（ ）。（分数：70.00）A.x=4B.x=8C.x=6D.x=1217. 以下程序运行后，单击按钮输出结果是( )。 Private
11、Sub Commandl_Click( ) Dim x As Integer，y As Integer，z As Integer X=4：y=2： Z=3 Call Gopd(x，x，z) Print x；X；Z Call Gopd(x，y，y) Print x；y；y End Sub Private Sub Gopd(x As Integer，y As Integer，z As Integer) X=3 * Z + 1 y=2 * z z=x + y End Sub （分数：70.00）A.6 6 12 7 11 11B.8 5 10 5 11 11C.9 6 12 9 10 15D.8 1
12、0 10 5 9 1018.下列叙述中正确的是_。 （分数：70.00）A.软件测试应该由程序开发者来完成B.程序经调试后一般不需要再测试C.软件维护只包括对程序代码的维护D.以上三种说法都不对19.属性 BorderColor 的作用是（ ）。（分数：70.00）A.设置直线颜色和形状边界颜色B.设置直线或形状背景颜色C.设置直线或形状边界线的线型D.设置形状的内部颜色20.建立一个新的标准模块，应该选择哪个菜单下的“添加模块”命令?（分数：70.00）A.“工程”菜单B.“文件”菜单C.“工具”菜单D.“编辑”菜单21.下列几项中，属于合法的日期型常量的是（ ）。（分数：70.00）A.“
13、10/10/02“B.10/10/02C.10/10/02D.#10/10/02#22.在窗体上画一个名称为 Label1、标题为“VisualBasic 考试”的标签，两个名称分别为 Command1 和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为 Timer1 的计时器控件，并把其 Interval 属性设置为 500，如图所示: （分数：70.00）_23.下列四组控件属性中，属性值的类型不相同的一组是（ ）。（分数：70.00）A.Private Sub Command2_Click( ) CommonDialog1DialogTitle=“宇宙大爆炸”
14、CommonDialog1ShowOpen End SubB.Private Sub Command2_Click( ) CommonDialog1DialoTitle=“宇宙大爆炸” CommonDialog1ShowFont End SubC.Private Sub Command2_Click( ) CommonDialog1DilogTitle=“宇宙大爆炸” CommonDialog1Show End SubD.Private Sub Command2_Click( ) CommonDialog1DialogTitle=“宇宙大爆炸” CommonDialog1ShowColor E
15、nd Sub24.关于自定义对话框概念的说明，错误的是（ ）。（分数：70.00）A.建立自定义对话框时必须执行添加窗体的操作B.自定义对话框实际上是 VB 的窗体C.在窗体上还要使用其他控件才能组成自定义对话框D.自定义对话框不一定要有与之对应的事件过程25.下列程序段的执行结果为( )。 m=2 n=3 Do m=m+n n=n + 1 Loop While m10 Print m；n （分数：70.00）A.CLASS A CLASS BB.CLASS A CLASS B CLASS BC.CLASS A CLASS B CLASS A CLASS BD.CLASS A CLASS B
16、CLASS B CLASS B26.数据结构中，与所使用的计算机无关的是数据的( )。（分数：-1.00）A.存储结构B.物理结构C.逻辑结构D.物理和存储结构27.详细设计的结果基本决定了最终程序的( )。（分数：-1.00）A.代码的规模B.运行速度C.质量D.可维护性28.由两个栈共享一个存储空间的好处是( )。（分数：-1.00）A.减少存取时间，降低下溢发生的机率B.节省存储空间，降低上溢发生的机率C.减少存取时间，降低上溢发生的机率D.节省存储空间，降低下溢发生的机率29.开发软件所需高成本和产品的低质量之间有着尖锐的矛盾，这种现象称做( )。（分数：-1.00）A.软件投机B.软
17、件危机C.软件工程D.软件产生30.结构化程序设计的 3 种结构是( )。（分数：-1.00）A.顺序结构、选择结构、转移结构B.分支结构、等价结构、循环结构C.多分支结构、赋值结构、等价结构D.顺序结构、选择结构、循环结构31.下列叙述中，不属于数据库系统的是( )。（分数：-1.00）A.数据库B.数据库管理系统C.数据库管理员D.数据库应用系统32.算法的时间复杂度是指( )。（分数：-1.00）A.执行算法程序所需要的时间B.算法程序的长度C.算法执行过程中所需要的基本运算次数D.算法程序中的指令条数33.以下不属于对象的基本特点的是( )。（分数：-1.00）A.分类性B.多态性C.
18、继承性D.封装性34.数据处理的最小单位是( )。（分数：-1.00）A.数据B.数据元素C.数据项D.数据结构35.算法的空间复杂度是指( )。（分数：-1.00）A.算法程序的长度B.算法程序中的指令条数C.算法程序所占的存储空间D.执行过程中所需要的存储空间三、填空题（每空 2 分，共 30 分）(总题数：10，分数：30.00)36.Visual Basic 应用程序中标准模块文件的扩展名是 1。（分数：3.00）填空项 1:_37.窗体上有两个按钮，则执行程序后按键盘 Cancel 键的输出结果是 1。 Private Sub Command1 _ Click2 Print“北京“；
19、 End Sub Private Sub Command2 _ Click3 Print“南京“； End Sub Private Sub Form _ Load4 Command2CancelTrue Command1Cancel=True End Sub （分数：3.00）填空项 1:_38.在面向对象方法中 1 描述的是具有相似属性与操作的一组对象。（分数：3.00）填空项 1:_39.本程序的功能是利用随机数函数模拟投币，方法是；每次随机产生一个 0 或 1 的整数，相当于一次投币，1 代表正面，0 代表反面。在窗体上有三个文本框，名称分别是 Text1、Text2、 Text3，分别
20、用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图所示。 程序运行后，在文本框 Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空。 （分数：3.00）填空项 1:_40.如果要将形状控件的内部设置为水平线，应将 Fillstyle 属性设置为 1。（分数：3.00）填空项 1:_41.关系式 x-5 或 x5 所对应的布尔表达式是 1。（分数：3.00）填空项 1:_42.在窗体上有一个“背景色变换”按钮和一个“结束”按钮。单击“背景色变换”按钮，背景色变为红色；再单击，背景色变为绿色
21、；再单击，背景色变为蓝色；再单击背景色变为红色 如此循环。单击“结束”按钮，程序运行结束。请填空。 Private Sub cmdChange_Click1 If Mark=0 Then 2 Mark=1 ElseIf 3Then FormlBackColor=vbGreen Mark=2 ElseIf Mark=2 Then Form1BackColor；vbBlue 4 End If End Sub Private Sub cmdExit_Click5 End End Sub （分数：3.00）填空项 1:_填空项 1:_填空项 1:_43.下面程序是用来打印九九乘法表的，请补充完整。 D
22、im i As Integer，j As Integer，Strl$ Strl=“ “ For i=1 To 9 Forj=1 To 9 If 1 Then Strl=Strl + Str$(j)+“X“+Str$(i)+“=“+Str$(Val(i * j) Else Strl=Strl y End Sub Public Sub PtoP(Byval n AS Integer, ByVal m Aa Integer) n = n / 10+2 m = m / 10+2 End Sub （分数：70.00）A.0 8B.40 72 C.4 50D.78 50解析： 此题是函数过程的调用。 在调
23、用过程时，一般主调与被调过程之间有数据传递，即将主调过程的实参传递给被调用的过程，完成实参与形参的结合，然后执行被调过程，在 Visual Basic 中，实参与形参的结合有两种方式：即传址与传值。这两种方法的特点如下： 传址的结合过程是，当调用一个过程时，它将实参的地址传给形参，因此在被调用的过程中，对形参的任何操作都变成了对相应实参的操作，因此实参的值会随形参的改变而改变。 传值的结合过程是，当调用一个过程时，系统将实参的值复制给形参并断开了联系，被调用过程中的操作是在形参自己的存储单元中进行的，当过程调用结束时，这些形参所占用的存储单元也同时被释放，因此在过程中对形参的任何操作不会影响实
24、参。而题中被调过程 PtoP 中有两个形参，两者均为传值方式。主调过程分别把实参 x、y 传递给 PtoP，所以当过程调用结束后，实参 x、y 的值都没有改变，最后输出的值应为 40 72。 4.Print 方法可以在对象上输出数据，这些对象包括（ ）。（分数：70.00）A.程序错误B.内存为 20 地址的大小C.20D.4 解析：本题主要考查的是 switch 语句的使用，在第一个 case 处，因为满足 条件所以输出字符 3，但这个分支没有 break 语句终止，所以会继续执行下面的分支语 句，即输出字符 2，这时出现 break 语句，结束整个语句，即输出 32。5.下列程序的执行结果
25、为( )。 Private Sub Commandl_Click() Dim s1 As String ,s2 As String s1= “abcd“ Call Transfer(sl，s2) Print s2 End Sub Private Sub Transfer (ByVal xstr As String，ystr As String) Dim tempstr As String ystr=tempstr End Sub （分数：70.00）A.dcba B.abdcC.abcdD.dabc解析： 主调函数最终输出值是 s2 值，这就得调用函数过程 Transfer 函数。 被调过程
26、Transfer 的参数 xstr，ystr 从主调函数中收到实参 s1，s2 传来的值“ abcd “，过程 Transfer 开始声明了两个String 型的变量，xstr、ystr。i=Len(xstr)语句的功能是：i 的值就是 xstr 的长度，此题为 4。程序代码执行 Do WhileLoop 的循环语句。循环体为 tempstr = tempstr + Mid(xstr，i，l)，其中变量是I，由 I=Len(xstr)开始的，每循环一次减 1。此程序的最后输出的是字符串 s1 的反向输出。 6.标签控件能够显示文本信息，决定其文本内容的属性是（ ）。（分数：70.00）A.Al
27、ignmentB.Caption C.VisibleD.BorderStyle解析：标签(Label)主要用来显示一小段不需要用户修改的文本，被显示文本内容只能由 Caption 属性来定义和修改。因此选项 B)是正确的。选项 A)确定标签标题 的放置方式；选项 C)决定程序运行后，控件是否在屏幕上显示出来。BorderStyle 属性一 般情况下设置为 True，但如果要屏蔽鼠标事件，可将其设置为 False，此时文本变为灰色。 7.执行下面的程序段后，变量 c 的值为( )。 a=14 b=30 Slect Case b/10 Case 0 C=a * 10 + b Case 1 To 9
28、 C=a * 100+b Case 10 To 99 C=a * 1000 + b End Select print c （分数：70.00）A.excellentB.goodC.pass D.fail解析：我们可以看到 x=Int(Rnd()+4)语句，其中，Rnd 是用来产生随机数的，其值在 01 之间，而在(Rnd()+4)前面有 Int 进行强制转换，所以 x 总为 4， Select Case xEnd Select 语句体中的 Case4 CR Print“good“语句。所以正确答案是选项 B)。8.激活菜单栏的快捷键是（ ）。（分数：70.00）A.SELECT 姓名，仓库名
29、FROM 职工； WHERE 基本工资3000B.SELECT 姓名，仓库名 FROM 仓库； WHERE 基本工资3000C.SELECT 姓名，仓库名 FROM 职工，仓库； WHERE(基本工资3000)OR(职工仓库号=仓库仓库号)D.SELECT 姓名，仓库名 FROM 职工，仓库； WHERE(基本工资3000)AND(职工仓库号=仓库仓库号)解析：本题中 SQL 查询属于多表联接查询，注意条件中关联字段的选取以及逻辑条件的设置。选项 A)和选项 B)中都缺少查询的数据表，且查询条件有误；选项 C)中查询条件错误，应使用 AND 进行条件连接，而不是 OR。9.在 Password
30、Char 属性中设置#，但运行时仍显示文本内容，原因是（ ）。（分数：70.00）A.文本框的 Locked 属性设置为 FalseB.文本框的 Locked 属性设置为 TreeC.文本框的 Multiline 的属性设置为 FasleD.文本框的 Multiline 的属性设置为 True 解析：选项 A)和 B)中，Locked 属性是决定控件是否失效，不符合本题的本意；而 MultiLine 属性决定文本框是否可以输入多行文本，如果设置为 True，则 Pass- wordChar 失效，所以选项 C)错误，选项 D)正确。10.关于货币型数据的说明，正确的是（ ）。（分数：70.00
31、）A.货币型数据有时可以表示成整型数据B.货币型数据与浮点型数据完全一样C.货币型数据是由数字和小数点组成的字符串D.货币型数据是小数点位置固定的实型数 解析：货币型数据是 Visual Basic 特有的一种数据结构，是专门用来表示货币数量的数据类型。货币型数据不能表示成整型数据 的形式，这是使用“货币”数据的实际需要决定的。货币型数据是数值的，经常要进行各种运算，不能是字符串。货币型数据与浮点型数据都 是带有小数点的数，但货币型数据小数点后的有效数位固定为 4 位。11.在窗体上画一个名称为 Text1 的文本框，一个名称为 Command1 的命令按钮，然后编写如下事件过程和通用过程：
32、Private Sub Command1_Click() n = Val(Text1.Text) If n/2 = n/2 Then f = f1(n) Else f = f2(n) End If Print f; n End Sub Public Function f1(ByRef x) x=x*x f1=x+x End Function Public Function f2(ByVal x) x=x*x f2=x+x+x End Function 程序运行后，在文本框中输入 6，然后单击命令按钮，窗体上显示的是（ ）。 （分数：70.00）_解析：12.在窗体上画一个文本框、一个标签和一个
33、命令按钮，其名称分别为 Text1、Label1 和 Command1，然后编写如下两个事件过程： Private Sub Command1_Click() strText = InputBox(“请输入“) Text1.Text = strText End Sub Private Sub Text1_Change() Label1.Caption = Right(Trim(Text1.Text), 3) End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是 （分数：70.00）_解析：13.在窗体上添加标签控件 Label1 之后，标签控件的默
34、认的名称 Name 是（ ）。（分数：70.00）A.5，68936B.5，689360C.5，6893D.005，689360 解析：用 Format()函数可以将数值按“格式字符串”指定的格式输出，包括在 输出字符串前面加 S，字符串后面补 0 及千位分隔符等。“格式字符串”是一个常量或变 量，它由专门的格式说明符组成，由这些字符决定数据项的显示格式，并指定显示区域的 长度，当格式字符串为常量时，必须放在双引号中。本题是指定 1000936 按给定“000，000000”格式输出，所以不足的部分补 0，输出结 果为：010，009360，正确答案为选项 D)。14.下面的属性中，用于自动调
35、整图像框中图形内容的大小的是（ ）。（分数：70.00）A.PictureB.CurentYC.CurrentXD.Stretch 解析：本题的目的在于考查学生对图形控件的属性设置。Picture 属性用于窗体、图片框和图像框，它可以通过属性窗口设置，用来把图形放到这些对象中，因此选项 A)是不正确的；CurrentX 和 CurrentY 用来设置下一个输出的水平坐标和垂直坐标，因此选项 B)和 C)都不正确；Stretch 属性用于图像框，用于自动调整图像框中图形内容的大小，既可通过属性窗口设置，也可以通过程序代码设置，该属性的取值为True 或 False，当其值为 False 时，将自
36、动放大或缩小图像框中的图形以与图像框的大小相适应，因此选项 D)是正确的。15.下列程序段的执行结果为( )。 I=1 x=5 Do I= I + 1 x= x + 2 Loop Until I=7 Print “ I= “；I Print “x=“；x （分数：70.00）A.for 循环只能用于循环次数已经确定的情况B.for 循环是先执行循环体语句，后判断表达式C.在 for 循环中，不能用 break 语句跳出循环体D.for 循环的循环体语句中，可以包含多条语句，但必须用花括号括起来 解析：顺序文件结构比较简单，文件中的记录一个接一个地存放。在这种结构中，只知道第一个记录的存放位置，
37、其他记录的位置无从知道，当要查找某个数据时，只能从文件头开始，一个记录一个记录地顺序读取，直到找到要查找的记录为止。顺序文件的组织比较简单，只要把数据记录一个接一个地写到文件中即可，但维护困难，为了修改文件中的某个记录，必须把整个文件读入内存，修改完之后再重新写入磁盘，因此读写不能同时进行。顺序文件不能灵活地存取和增减数据，因而适用于有一定规律且不经常修改的数据，其主要优点是占空间少，容易使用。16.下列各控件不包含滚动条的控件是（ ）。（分数：70.00）A.x=4B.x=8 C.x=6D.x=12解析：选择查询是属于查询的种类，跟操作查询并列。操作查询包括生成表查询、删除查询、更新查询和追
38、加 查询 4 种。17. 以下程序运行后，单击按钮输出结果是( )。 Private Sub Commandl_Click( ) Dim x As Integer，y As Integer，z As Integer X=4：y=2： Z=3 Call Gopd(x，x，z) Print x；X；Z Call Gopd(x，y，y) Print x；y；y End Sub Private Sub Gopd(x As Integer，y As Integer，z As Integer) X=3 * Z + 1 y=2 * z z=x + y End Sub （分数：70.00）A.6 6 12 7
39、 11 11 B.8 5 10 5 11 11C.9 6 12 9 10 15D.8 10 10 5 9 10解析：本题中第 1 个 for 循环执行 5 次后结束，第 2 个 for 循环执行 5 次。第 2 个 for 循环中第 1 次执行了 6 次，第 2 次执行了 5 次，第 3 次执行了 4 次，第 4 次执行了 3 次，第 5 次执行了 2 次，共 20 次。18.下列叙述中正确的是_。 （分数：70.00）A.软件测试应该由程序开发者来完成B.程序经调试后一般不需要再测试C.软件维护只包括对程序代码的维护D.以上三种说法都不对 解析：程序调试的任务是诊断和改正程序中的错误。它与软
40、件测试不同，软件测试是尽可能多地发现软件 中的错误。先要发现软件的错误，然后借助于一定的调试工具去找出软件错误的具体位置。软件测试贯穿 整个软件生命期，调试主要在开发阶段。为了达到更好的测试效果，应该由独立的第三方来构造测试。因 为从心理学角度讲，程序人员或设计方在测试自己的程序时，要采取客观的态度是程度不同地存在障碍的。软件的运行和维护是指将已交付的软件投入运行，并在运行使用中不断地维护，根据新提出的需求进行必 要而且可能的扩充和删改。19.属性 BorderColor 的作用是（ ）。（分数：70.00）A.设置直线颜色和形状边界颜色 B.设置直线或形状背景颜色C.设置直线或形状边界线的线
41、型D.设置形状的内部颜色解析：在 Visual Basic 中，BorderColor 属性的作用是设置直线的颜色或形状边界线的颜色，所以选项 A)是正确的。直线或形状的背景颜色通过 BackColor 属性来设置，线型通过 BorderStyle 属性设置；形状内部颜色通过 FillColor 属性设置。20.建立一个新的标准模块，应该选择哪个菜单下的“添加模块”命令?（分数：70.00）A.“工程”菜单 B.“文件”菜单C.“工具”菜单D.“编辑”菜单解析：在 Visual Basic 中，建立一个新的标准模块应选择“工程”菜单下的“添加模块”命令，弹出“添加模块”对话框，在“新建”选项下
42、选择“模块”选项，然后单击“打开”按钮，打开标准模块代码窗口，在这个窗口中就可以输入标准模块代码。所以本题的正确答案是选项 A)。21.下列几项中，属于合法的日期型常量的是（ ）。（分数：70.00）A.“10/10/02“B.10/10/02C.10/10/02D.#10/10/02# 解析：日期型数据是用来表示日期信息的，其格式为 mm/dd/yyyy 或者 mm- dd-yyyy，它的取值范围是1/1/100 到 12/31/9999。任何可辨认的日期文本都可以赋值 给日期变量，日期文本必须以“#”号括起来。22.在窗体上画一个名称为 Label1、标题为“VisualBasic 考试”
43、的标签，两个名称分别为 Command1 和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为 Timer1 的计时器控件，并把其 Interval 属性设置为 500，如图所示: （分数：70.00）_解析：23.下列四组控件属性中，属性值的类型不相同的一组是（ ）。（分数：70.00）A.Private Sub Command2_Click( ) CommonDialog1DialogTitle=“宇宙大爆炸” CommonDialog1ShowOpen End Sub B.Private Sub Command2_Click( ) CommonDialog1Dia
44、loTitle=“宇宙大爆炸” CommonDialog1ShowFont End SubC.Private Sub Command2_Click( ) CommonDialog1DilogTitle=“宇宙大爆炸” CommonDialog1Show End SubD.Private Sub Command2_Click( ) CommonDialog1DialogTitle=“宇宙大爆炸” CommonDialog1ShowColor End Sub解析：首先，设置标题属性用 Dialog Title 属性，4 个选项都一样，所以这个不是区别；再看方法，选项 A)用的是 ShowOpen
45、方法， 即打开对话框，所以是正确的；选项 B)用的是 ShowFont 方法，是字体设置对话框，不符合本题的意思，不正确；选项 C)用的是 Show 方法，但是 对话框没有此方法，所以也不正确；最后选项 D)是用的 ShowColor 方法，是颜色选择对话框，不符合本题的意思。24.关于自定义对话框概念的说明，错误的是（ ）。（分数：70.00）A.建立自定义对话框时必须执行添加窗体的操作B.自定义对话框实际上是 VB 的窗体C.在窗体上还要使用其他控件才能组成自定义对话框D.自定义对话框不一定要有与之对应的事件过程 解析：自定义对话框是在窗体控件上设置一些为应用程序接收数据、输出信息的控件制
46、作成的。所以自定义对话框实际上是 Visual Basic 的窗体，建立自定义对话框的第一步便是在工程中添加窗体。自定义对话框通常有命令按钮，一个命令按钮要对应一个事件过程，所以自定义对话框一定要有事件过程与之对应。25.下列程序段的执行结果为( )。 m=2 n=3 Do m=m+n n=n + 1 Loop While m10 Print m；n （分数：70.00）A.CLASS A CLASS BB.CLASS A CLASS B CLASS BC.CLASS A CLASS B CLASS A CLASS B D.CLASS A CLASS B CLASS B CLASS B解析：首先，当 i=0 时，数组中的位置是 a20=7，当然，如果用排除法的话，就不用考虑后面的循环了，因为在 4 个选项中，第 1 个数为 7 的选项只有 B)。本题执行第 2 次循环时，i
