1、全国计算机等级考试二级 VISUAL+BASIC 真题 2004 年 9 月及答案解析(总分：74.00，做题时间：90 分钟)一、B选择题/B(总题数：30，分数：60.00)1.设窗体上有一个文本框，名称为 Text1，程序运行后，要求该文本框只能显示信息，不能接收输入的信息，以下能实现该操作的语句是（分数：2.00）A.Text1Maxength=0B.Text1Enabled=FalseC.Text1Visible=FalseD.Text1Width=02.以下能在窗体 Form1 的标题栏中显示“VisualBasic 窗体”的语句是（分数：2.00）A.Form1Name=“Vis
2、ualBasic 窗体”B.Form1Title“VisualBasic 窗体”C.Form1Caption“VisualBasic 窗体”D.Form1Text“VisualBasic 窗体”3.在窗体上画一个名称为 Text1 的文体框，然后画一个名称为 HScrolll 的滚动条，其 Min 和 Max 属性分别为 0 和 100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如图所示。以下能实现上述操作的程序段是 （分数：2.00）A.Private Sub Hscroll1_Change( ) Text1Text=Hscroll1Value End SubB.Priva
3、te Sub Hscroll1_Click( ) Text1Text=Hscroll1Value End SubC.Private Sub Hscroll1_Change( ) Text1Text=Hscroll1Caption End SubD.Private Sub Hscroll1_Click( ) Text1Text=Hscroll1Caption End Sub4.设菜单中有一个菜单项为“Open”。若要为该菜单命令设置访问键，即按下 Alt 及字母 O 时，能够执行“Open”命令，则在菜单编辑器中设置“Open”命令的方式是（分数：2.00）A.把 Caption 属性设置为&O
4、penB.把 Caption 属性设置为&OpenC.把 Name 属性设置为&OpenD.把 Name 属性设置为&Open5.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) x=InputBox(“Input”) Select Case x Case 1，3 Print“分支 1” Case Is4 Print“分支 2” Case Else Print“Else 分支” End SelectEnd Sub 程序运行后，如果在输入对话框中输入 2，则窗体上显示的是（分数：2.00）A.分支 1B.分支
5、2C.Else 分支D.程序出错6.以下关于 MsgBox 的叙述中，错误的是（分数：2.00）A.MsgBox 函数返回一个整数B.通过 MsSBox 函数可以设置信息框中图标和按钮的类型C.MsgBox 语句没有返回值D.MsgBox 函数的第二个参数是一个整数，该参数只能确定对话框中显示的按钮数量7.在窗体上画一个名称为 Timer1 的计时器控件，要求每隔 0.5 秒发生一次计时器事件，则以下正确的属性设置语句是（分数：2.00）A.Timer1Interval=0.5B.Timer1Interval=5C.Timer1Interval=50D.Timer1Interval=5008.
6、在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) Static x As Integer Cls For i=1 To 2 y=y+x x=x+2 Next Print x，yEnd Sub 程序运行后，连续三次单击 Command1 按钮后，窗体上显示的是（分数：2.00）A.4 2B.12 18C.12 30D.4 69.以下关于多重窗体程序的叙述中，错误的是（分数：2.00）A.用 Hide 方法不但可以隐藏窗体，而且能清除内存中的窗体B.在多重窗体程序中，各窗体的菜单是彼此独立的C.在多重窗体程序中，
7、可以根据需要指定启动窗体D.对于多重窗体程序，需要单独保存每个窗体10.以下关于文件的叙述中，错误的是（分数：2.00）A.顺序文件中的记录一个接一个地顺序存放B.随机文件中记录长度是随机的C.执行打开文件的命令后，自动生成一个文件指针D.LOF 函数返回给文件分配的字节数11.以下叙述中错误的是（分数：2.00）A.事件过程是响应特定事件的一段程序B.不同的对象可以具有相同名称的方法C.对象的方法是执行指定操作的过程D.对象事件的名称可以由编程者指定12.以下合法的 Visual Basic 标识符是（分数：2.00）A.ForLoopB.ConstC.9abcD.a # x13.当一个复选
8、框被选中时，它的 Value 的属性的值是（分数：2.00）A.3B.2C.1D.014.表达式 5 Mod 3+3/5*2 的值是（分数：2.00）A.0B.2C.4D.615.设 x=4，y=8，z=7，以下表达式的值是 xy And (Not yz) Or zx（分数：2.00）A.1B.-1C.TrueD.False16.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) a$=“VisualBasic” Print String(3，a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容
9、是（分数：2.00）A.VVVB.VisC.sicD.1117.设有如下程下段： x=2 For i=1 To 10 Step 2 x=x+i Next 运行以上程序后，x 的值是（分数：2.00）A.26B.27C.38D.5718.以下叙述中错误的是（分数：2.00）A.在 KeyPress 事件过程中不能识别键盘的按下与释放B.在 KeyPress 事件过程中不能识别回车键C.在 KeyDown 和 KeyUp 事件过程中，将键盘输入的“A”和“a”视作相同的字母D.在 KeyDown 和 KeyUp 事件过程中，从大键盘上输出的“1”和从右侧小键盘上输入的“1”被视作不同的字符19.执
10、行如下两条语句后，窗体上显示的是 a=9.8596 Print Format(a，“$00，0000”)（分数：2.00）A.0，00986B.$9.86C.9.86D.$0，009.8620.在窗体上画一个名称为 CommonDialog1 的通用对话框，一个名称为 Command1 的命令按钮。然后编写如下事件过程： Private Sub Command1_Click( ) CommonDialoglFileName=“” CommonDialogl，Filter“All File*(*Doc)*Doc(*Txt)*Txt” CommonDialoglFilterlndex2 Commo
11、nDialoglDialogTitle“VBTest” CommonDialoglAction1 End Sub 对于这个程序，以下叙述中错误的是（分数：2.00）A.该对话框被设置为“打开”对话框B.在该对话框中指定的默认文件名为空C.该对话框的标题为 VBTestD.在该对话框中指定的默认文件类型为文本文件(*Tx21.设一个工程由两个窗体组成，其名称分别为 Form1 和 Form2，在 Form1 上有一个名称为 Command1 的命令按钮。窗体 Form1 的程序代码如下： Private Sub Command1_Click( ) Dim a As Integer a=10 Ca
12、ll g(Form2，a) End Sub Private Sub g(f As Form，x As Integer) y=IIf(x10，000，-100) fShow fCaption=y End Sub 运行以上程序，正确的结果是（分数：2.00）A.Form1 的 Capdon 属性值为 100B.Form2 的 Caption 属性值为-100C.Form1 的 Caption 属性值为-100D.Form2 的 Capdon 属性值为 10022.在窗体上画一个名称为 Command1 的命令按钮，并编写如下程序： Private Sub Command1_Click( ) Dim
13、 x As Integer Static y As Integer x=10 y=5 Call f1(x，y) Print x，y End Sub Private Sub f1(ByRef x1 As Integer，y1 As Integer) x1=x1+2 y1=y1+2 End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是（分数：2.00）A.10 5B.12 5C.10 7D.12 723.设有如下程序： Option Base 1 Private Sub Command1_Click( ) Dim a(10) As Integer Dim n As Integer n=I
14、nputBox(“输入数据”) If nA.数组 b 的偶数被保存在数组 c 中B.程序运行结束时，在窗体上显示的是 c 数组中元素的个数C.GetArray 过程的参数 n 是按值传送的D.如果输入的数据大于 10，则窗体上不显示任何信息24.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Option Base 1 Private Sub Command1_Click( ) Dim a a=Array(1,2,3,4,5) For i=1 To UBound(a) a(i)=a(i)+i-1 Next Print a(3) End Sub 程序运行后，单击命令按
15、钮，则在窗体上显示的内容是（分数：2.00）A.4B.5C.6D.725.阅读程序： Option Base 1 Private Sub Form_Click( ) Dim arr，Sum Sum=0 arr=Array(1，3，5，7，9，11，13，15，17，19) For i=1 To 10 If arr(i)/3=arr(i)/3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为（分数：2.00）A.13B.14C.27D.1526.在窗体上画一个名称为 File 的文件列表框，并编写如下程序：
16、Private Sub File1_DblClick( ) x=Shell(File1FileName，1) End Sub 以下关于该程序的叙述中，错误的是（分数：2.00）A.x 没有实际作用，因此可以将该语句写为：Call Shell(FilFileName，1)B.双击文件列表框中的文件，将触发该事件过程C.要执行的文件的名字通过 File1FileName 指定D.File1 中显示的是当前驱动器、当前目录下的文件27.在窗体上画一个名称为 Label1、标题为“VisualBasic 考试”的标签，两个名称分别为 Command1 和Command2、标题分别为“开始”和“停止”的
17、命令按钮，然后画一个名称为 Timer1 的计时器控件，并把其 Interval 属性设置为 500，如图所示。 （分数：2.00）A.标签的移动方向为自右向左B.单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动C.当标签全部移出窗体后，将从窗体的另一端出现并重新移动D.标签按指定的时间间隔移动28.执行以下程序段 a$=“abbacddcba” For i=6 To 2 Step2 X=Mid(a，i，i) Y=Left(a，i) z=Right(a, i) z=Ucase(X & Y & z) Next i Print z 输出结果为（分数：2.00）A.ABAB.BBABB
18、AC.ABBABAD.AABAAB29.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序： Option Base1 Private Sub Command1_Click( ) Dim a As Variant a=Array(1，2，3，4，5) Sum=0 For i=1To 5 Sum=Sum+a(i) Next i x=Sum/5 For i=1 To 5 If a(i)x Then Print a(i)； Next i End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是（分数：2.00）A.1 2B.1 2 3C.3 4 5D.4 530.假定一个工程
19、由一个窗体文件 Form1 和两个标准模块文件 Model1 及 Model2 组成。 Model1 代码如下：Public x As Integer Public y As Integer Sub S1( ) x=1 S2 End Sub Sub S2( ) y=10 Form1Show End Sub Model2 的代码如下： Sub Main( ) S1 End Sub 其中 Sub Main 被设置为启动过程。程序运行后，各模块的执行顺序是（分数：2.00）A.Form1Model1Model2B.Model1Model2Form1C.Model2Model1Form1D.Model
20、2Form1Model1二、B填空题/B(总题数：7，分数：14.00)31.设有如下程序段： a$=“BejingShanghai” b$Mid(a$，InStr(a$，“g”)+1) 执行上面的程序段后，变量 b$的值为 【1】 。（分数：2.00）填空项 1:_32.以下程序段的输出结果是 【2】 。 num=0 While num=2 num=num+1 Wend Print num（分数：2.00）填空项 1:_33.窗体上有一个名称为 List1 的列表框，一个名称为 Text1 的文本框，一个名称为 Label1、Caption 属性为“Sum”的标签，一个名称为 Command
21、1、标题为“计算”的命令按钮。程序运行后，将把 1100 之间能够被 7 整除的数添加到列表框中。如果单击“计算”按钮，则对 List1 中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。 （分数：2.00）填空项 1:_34.本程序的功能是利用随机数函数模拟投币，方法是；每次随机产生一个 0 或 1 的整数，相当于一次投币，1 代表正面，0 代表反面。在窗体上有三个文本框，名称分别是 Text1、Text2、 Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图所示。 程序运行后，在文本框 Text1中输入总次数，然后单击“
22、开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空。 （分数：2.00）填空项 1:_35.阅读程序：Option Base1Private Sub Form_Click( )Dim a(3)As IntegerPrint“输入的数据是：”； For i1 To 3a(i)=InputBox(“输人数据”)Print a(i)；NextPrintIf a(1)a(3) Thenm=a(2)Else If a(1)a(3)Thenm=U 【9】 /UElsem=U 【10】 /UEnd IfPrint“中间数是：”；mEnd Sub程序
23、运行后，单击窗体，在输入对话框中分别输人三个整数，程序将输出三个数中的中间数，如图所示。请填空。（分数：2.00）填空项 1:_36.在窗体上画一个名称为“Command1”，标题为“计算”的命令按钮，再画 7 个标签，其中 5 个标签组成名称为 Label1 的控件数组；名称为 Label2 的标签用于显示计算结果，其 Caption 属性的初始值为空；标签 Label3 的标题为“计算结果”。运行程序时会自动生成 5 个随机整数，分别显示在标签控件数组的各个标签中，如图所示。单击“计算”按钮，则将标签数绍各元素的值累加，然后将计算结果显示在Label2 中。请填空。 （分数：2.00）填空
24、项 1:_37.在窗体上画两个名称分别为 Command1 和 Command2、标题分别为“初始化”和“求和”的命令按钮。程序运行后，如果单击“初始化”命令按钮，则对数组 a 的各元素赋值；如果单击“求和”命令按钮，则求出数组 a 的各元素之和，并对文本框中显示出来，如图所示。请 填空。 （分数：2.00）填空项 1:_全国计算机等级考试二级 VISUAL+BASIC 真题 2004 年 9 月答案解析(总分：74.00，做题时间：90 分钟)一、B选择题/B(总题数：30，分数：60.00)1.设窗体上有一个文本框，名称为 Text1，程序运行后，要求该文本框只能显示信息，不能接收输入的信
25、息，以下能实现该操作的语句是（分数：2.00）A.Text1Maxength=0B.Text1Enabled=False C.Text1Visible=FalseD.Text1Width=0解析：解析：Enabled 属性用来设置文本框的有效性，当设置为 True 时，处于有效状态，文本框能接受输入的信息，当设置为 False 时，处于无效状态，文本框不能接受输入信息，所以选项 B)是正确的；Visible 是设置控件的可见性属性；Maxlength 属性设置文本框最多可以容纳多少个字符；Width 属性设置文本框的宽度，都不是正确答案。2.以下能在窗体 Form1 的标题栏中显示“Visua
26、lBasic 窗体”的语句是（分数：2.00）A.Form1Name=“VisualBasic 窗体”B.Form1Title“VisualBasic 窗体”C.Form1Caption“VisualBasic 窗体” D.Form1Text“VisualBasic 窗体”解析：解析：此题考察窗体的属性，Caption 属性用来设置窗体标题栏中显示的文本内容，题目要求在窗体标题栏中显示“VisualBasic 窗体”，只有选项 C)为正确答案。3.在窗体上画一个名称为 Text1 的文体框，然后画一个名称为 HScrolll 的滚动条，其 Min 和 Max 属性分别为 0 和 100。程序运
27、行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如图所示。以下能实现上述操作的程序段是 （分数：2.00）A.Private Sub Hscroll1_Change( ) Text1Text=Hscroll1Value End Sub B.Private Sub Hscroll1_Click( ) Text1Text=Hscroll1Value End SubC.Private Sub Hscroll1_Change( ) Text1Text=Hscroll1Caption End SubD.Private Sub Hscroll1_Click( ) Text1Text=Hscroll1
28、Caption End Sub解析：解析：题目中移动滚动框将触发滚动框的 Change 属性，所以选项 B)和选项 D)可以先排除，另外滚动条的当前值可以用 Value 属性来表示，如果在文本框中显示滚动条的当前值语句应为：Text1Text=Hscrolll. Value。所以排除选项 C)，正确答案为选项 A)。4.设菜单中有一个菜单项为“Open”。若要为该菜单命令设置访问键，即按下 Alt 及字母 O 时，能够执行“Open”命令，则在菜单编辑器中设置“Open”命令的方式是（分数：2.00）A.把 Caption 属性设置为&Open B.把 Caption 属性设置为&OpenC.
29、把 Name 属性设置为&OpenD.把 Name 属性设置为&Open解析：解析：此题考察菜单知识，设置菜单中的标题文本使用 Caption 属性，而 Name 属性是从代码中访问菜单时使用的，因此排除选项 C)和选项 D)；设置访问键时在作为访问键的字符前面输入一个&号，就允许用户通过键盘操作菜单项。5.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) x=InputBox(“Input”) Select Case x Case 1，3 Print“分支 1” Case Is4 Print“分支 2” C
30、ase Else Print“Else 分支” End SelectEnd Sub 程序运行后，如果在输入对话框中输入 2，则窗体上显示的是（分数：2.00）A.分支 1B.分支 2C.Else 分支 D.程序出错解析：解析：此题考察 Select Case 语句的知识，题目要求输入一个数值，通过各个 Case 条件来确定输出的值。此题输入 2，满足“Case Else“判断条件，所以执行“Print “Else 分支“ “语句，选择答案选项 C)。6.以下关于 MsgBox 的叙述中，错误的是（分数：2.00）A.MsgBox 函数返回一个整数B.通过 MsSBox 函数可以设置信息框中图标
31、和按钮的类型C.MsgBox 语句没有返回值D.MsgBox 函数的第二个参数是一个整数，该参数只能确定对话框中显示的按钮数量 解析：解析：此题考察 MsgBox 函数的基本知识。其函数的格式为： MsgBox(Prompt，buttons，title，helpfile，context)函数的第二个参数是数值表达式，不仅仅确定按钮的数目，还指定按钮的类型及图标的样式，所以选项 D)为正确答案。7.在窗体上画一个名称为 Timer1 的计时器控件，要求每隔 0.5 秒发生一次计时器事件，则以下正确的属性设置语句是（分数：2.00）A.Timer1Interval=0.5B.Timer1Inter
32、val=5C.Timer1Interval=50D.Timer1Interval=500 解析：解析：计时器控件的 Interval 属性用来指定计时器事件之间的毫秒数，本题要求每隔 0.5 秒发生一次，所以其值为 500，正确答案为选项 D)。8.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) Static x As Integer Cls For i=1 To 2 y=y+x x=x+2 Next Print x，yEnd Sub 程序运行后，连续三次单击 Command1 按钮后，窗体上显示的是（分数
33、：2.00）A.4 2B.12 18 C.12 30D.4 6解析：解析：注意此题中 X 被定义为 Static 类型的变量，因此每次单击按钮后其上次的值被保留下来，而变量 y 每次运算重新归零，单击一次按钮后 x=4，y=2，单击两次按钮后 x=8，y=10，单击三次按钮后x=12，y=18，所以只有选项 B)为正确答案。9.以下关于多重窗体程序的叙述中，错误的是（分数：2.00）A.用 Hide 方法不但可以隐藏窗体，而且能清除内存中的窗体 B.在多重窗体程序中，各窗体的菜单是彼此独立的C.在多重窗体程序中，可以根据需要指定启动窗体D.对于多重窗体程序，需要单独保存每个窗体解析：解析：在多
34、重窗体中，各窗体的菜单是彼此独立的，选项 B)正确；在多重窗体中可以任意指定启动窗体，选项 C)正确；尽管有多个窗体，仍然需要对每个窗体单独保存，选项 D)正确；使用 Hide 方法，仅仅能够隐藏窗体，但是不能将窗体从内存中清除，要想清除内存中的窗体，应使用 Unload 方法，选项A)错误，此题要求选择叙述错误的选项，应选选项 A)。10.以下关于文件的叙述中，错误的是（分数：2.00）A.顺序文件中的记录一个接一个地顺序存放B.随机文件中记录长度是随机的 C.执行打开文件的命令后，自动生成一个文件指针D.LOF 函数返回给文件分配的字节数解析：解析：在随机文件中记录的长度都是固定的，所以选
35、项 B)错误；顺序文件顾名思义文件都是顺序存放的，选项 A)正确；执行打开文件的命令后，自动生成一个文件指针，选项 C)正确；LOF 函数用来返回文件分配的字节数，选项 D)正确。11.以下叙述中错误的是（分数：2.00）A.事件过程是响应特定事件的一段程序B.不同的对象可以具有相同名称的方法C.对象的方法是执行指定操作的过程D.对象事件的名称可以由编程者指定 解析：解析：标题考察对象的概念，对象是代码和数据的组合，常见的对象包括控件和窗体，整个程序也可以是一个对象。对象支持属性、方法和事件，在 VB 中称对象暴露给用户的数据为属性，称各种可在对象上操作的过程为方法，事件是可被对象识别的动作，
36、如单击鼠标和键盘事件，所以选项 D)中对象事件名称可以由编者指定错误，为答案。12.以下合法的 Visual Basic 标识符是（分数：2.00）A.ForLoop B.ConstC.9abcD.a # x解析：解析：合法的 VB 标志符应遵循的规则是：必须以字母开头，不能超过 255 个字符，名字由字母、数字和下划线组成，名字不能是关键字。满足条件的只有选项 A)。13.当一个复选框被选中时，它的 Value 的属性的值是（分数：2.00）A.3B.2C.1 D.0解析：解析：此题考察复选框的知识，其 Value 属性可以取 0，1，2 三个值，其中 0 代表复选框未被选中，1 代表复选框
37、处于选中状态，2 代表该复选框处于禁止状态，不可用。根据题意此题应选选项 C)。14.表达式 5 Mod 3+3/5*2 的值是（分数：2.00）A.0B.2 C.4D.6解析：解析：此题考察算术运算符的相关知识，“Mod”是求余运算，5 Mod 3=2； 3/5*2=0，所以此题结果为 2，选项 B)为正确答案。15.设 x=4，y=8，z=7，以下表达式的值是 xy And (Not yz) Or zx（分数：2.00）A.1B.-1C.TrueD.False 解析：解析：题干中的表达式是进行逻辑运算，其运算结果为 True 或 False，因此排除选项 A)和选项 B)，同级的逻辑运算按
38、照从左到右的顺序依次计算，最终的值为 False，选项 D)正确。16.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) a$=“VisualBasic” Print String(3，a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是（分数：2.00）A.VVV B.VisC.sicD.11解析：解析：此题考察 String 函数的知识，String 函数返回指定长度的由重复字符组成的字符串，其格式为： String(number，character)number 参数指出字符串的长度，
39、character 参数的第一个字符用于指出返回的字符串，本题中 a$中第一个字符串为 V，String(3，a $)结果为 VVV，选项 A)为正确答案。17.设有如下程下段： x=2 For i=1 To 10 Step 2 x=x+i Next 运行以上程序后，x 的值是（分数：2.00）A.26B.27 C.38D.57解析：解析：此题中 For 循环共执行 5 次循环，i 的取值分别为 1，3，5，7，9，而 x 的初值为 2，题目要求求出循环后 x 的值，即将 x 和 i 累加，结果为 27，选项 B)为正确答案。18.以下叙述中错误的是（分数：2.00）A.在 KeyPress
40、事件过程中不能识别键盘的按下与释放B.在 KeyPress 事件过程中不能识别回车键 C.在 KeyDown 和 KeyUp 事件过程中，将键盘输入的“A”和“a”视作相同的字母D.在 KeyDown 和 KeyUp 事件过程中，从大键盘上输出的“1”和从右侧小键盘上输入的“1”被视作不同的字符解析：解析：此题考察键盘事件，当按下键盘上的某个键时或松开某个键时，将触发 Keydown 事件或者Keyup 事件，如果有按键发生时，将会触发 KeyPress 事件，其中 Keypress 事件能检测的键有 Enter 键、Tab 键、Backsapce 键以及标准键盘的字母、数字和标点符号键。因此
41、选项 B)错误。19.执行如下两条语句后，窗体上显示的是 a=9.8596 Print Format(a，“$00，0000”)（分数：2.00）A.0，00986B.$9.86C.9.86D.$0，009.86 解析：解析：此题考察 Format 函数的知识，该函数的格式为： Format(expression，format)其中expression 参数指定要转换的数值，format 参数是字符串，$表示 Currency 格式显示带千分符且小数点右面保存两位，因此应选选项 D)。20.在窗体上画一个名称为 CommonDialog1 的通用对话框，一个名称为 Command1 的命令按钮
42、。然后编写如下事件过程： Private Sub Command1_Click( ) CommonDialoglFileName=“” CommonDialogl，Filter“All File*(*Doc)*Doc(*Txt)*Txt” CommonDialoglFilterlndex2 CommonDialoglDialogTitle“VBTest” CommonDialoglAction1 End Sub 对于这个程序，以下叙述中错误的是（分数：2.00）A.该对话框被设置为“打开”对话框B.在该对话框中指定的默认文件名为空C.该对话框的标题为 VBTestD.在该对话框中指定的默认文件
43、类型为文本文件(*Tx 解析：解析：此题应熟悉通用对话框的各种属性，Action 属性表示为打开对话框的类型，此题中其值为1，表示为“打开”对话框；FileName 属性表示对话框默认文件名；DialogTide 属性为对话框的标题；FilterIndex 属性指出系统默认的文件类型，此题中其值为 2，所以默认类型为doc 类型而不是txt 类型，选项 D)错误。21.设一个工程由两个窗体组成，其名称分别为 Form1 和 Form2，在 Form1 上有一个名称为 Command1 的命令按钮。窗体 Form1 的程序代码如下： Private Sub Command1_Click( ) D
44、im a As Integer a=10 Call g(Form2，a) End Sub Private Sub g(f As Form，x As Integer) y=IIf(x10，000，-100) fShow fCaption=y End Sub 运行以上程序，正确的结果是（分数：2.00）A.Form1 的 Capdon 属性值为 100B.Form2 的 Caption 属性值为-100 C.Form1 的 Caption 属性值为-100D.Form2 的 Capdon 属性值为 100解析：解析：此题单击命令按钮后将调用 g()函数，观察该函数，是显示窗体 f，并且将该窗体的标
45、题设置为 y，而 y 的值要通过 IIf 语句来判断，此题中第一个实参为 Form2，将 x=10 带人判断语句为结果为-100，因此执行命令后 Form2 的标题为-100，所以选项 B)正确。22.在窗体上画一个名称为 Command1 的命令按钮，并编写如下程序： Private Sub Command1_Click( ) Dim x As Integer Static y As Integer x=10 y=5 Call f1(x，y) Print x，y End Sub Private Sub f1(ByRef x1 As Integer，y1 As Integer) x1=x1+2
46、 y1=y1+2 End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是（分数：2.00）A.10 5B.12 5C.10 7D.12 7 解析：解析：题干中 y 定义为静态函数，再观察过程 f1 中 x1 是传值方式传送， y1 是传址方式传送，单击命令按钮后，x 和 y 分别赋初值为 10 和 5，接着调用 f1 过程，x 和 y 分别加 2，正确结果为选项 D)。23.设有如下程序： Option Base 1 Private Sub Command1_Click( ) Dim a(10) As Integer Dim n As Integer n=InputBox(“输入数据”
47、) If nA.数组 b 的偶数被保存在数组 c 中B.程序运行结束时，在窗体上显示的是 c 数组中元素的个数C.GetArray 过程的参数 n 是按值传送的 D.如果输入的数据大于 10，则窗体上不显示任何信息解析：解析：GetArray 过程的作用是将数组 b 中的偶数保存到数组 c 中，同时输出数组 C 中元素的个数，所以选项 A)和选项 B)正确；观察单击事件中，如果 n10，才能调用该过程，所以选项 D)正确；在GetArray 工程中两个参数缺省传送方式，则参数是按地址传递的，选项 C)错误。24.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Opt
48、ion Base 1 Private Sub Command1_Click( ) Dim a a=Array(1,2,3,4,5) For i=1 To UBound(a) a(i)=a(i)+i-1 Next Print a(3) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是（分数：2.00）A.4B.5 C.6D.7解析：解析：题目中存在 Option Base 语句，则数组中第一个元素的索引值为 1，当 i=3 时，a(i)=3，计算 a(i)=a(i)+i-1 结果为 5，选项 B)为正确答案。25.阅读程序： Option Base 1 Private Sub Form_Click( ) Dim arr，Sum Sum=0 arr=Array(1，3，5，7，9，11，13，15，17，19) For i=1 To 10 If arr(i)/3=arr(i)/3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为（分数：2.00）A.13B.14C.27 D.15解析：解析：分析题干，arr(i)/3=arr(i)/3 是求出数组中能整除 3 的元素，而 Sum=Sum+arr(i)是将这
