1、计算机二级(VB)45 及答案解析(总分：100.00，做题时间：120 分钟)一、选择题(每小题 2 分，共 70 分) 下列各(总题数：35，分数：70.00)1.在窗体上画一个命令按钮和两个文本框,其名称分别为 Command1、Text1 和 Text2,然后编写如下程序： Dim S1 As String,S2 As String Private Sub Form_Load() Text1.Text=“ Text2.Text=“ End Sub Private Sub Textl_KeyDown(KeyCode As Integer,Shift As Integer) S2=S2&C
2、hr(KeyCode) End Sub Private Sub Textl_KeyPress(KeyAscii As Integer) S1=S1&Chr(KeyAscii) End Sub Private Sub Command1_Click() Textl.Text=S2 Text2.Text=S1 S1=“ S2=“ End Sub 程序运行后,在 Text1 中输入“abc“,然后单击命令按钮,在文本框 Text1 和 Text2 中显示的内容分别为【 】 （分数：2.00）A.abc 和 ABCB.abc 和 abcC.ABC 和 abcD.ABC 和 ABC2.下面的属性中，用于自
3、动调整图像框中图形内容的大小的是（ ）。（分数：2.00）A.变体类型B.单精度型C.双精度型D.字符串型3.在窗体上画 1 个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a=0 For i=1 To 2 For j=1 To 4 If j Mod 260 Then I=l If a70 Then l=2 If a80 Then I=3 If a90 Then I=4 Print“I=“:I （分数：2.00）A.I=1B.I=2C.I=3D.I=412.有如下事件过程： Private Sub Commaild1_C
4、lick( ) Dim i As Integer For i =1 To 2 DC Next i End Sub Sub DC( ) 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.布局管理器是用来管理构件放置在容器的位置和大小的B.为了使生成的图形用户界面具有良好的平台无关性，Java 语言提供了布局管理器这个工具来管理构件在容器的布局，而不是直接设置C.布局管理器本身也是一个接口，编程中通常使用
5、的是实现了该接口的类D.以上说法都正确13.表达式 32 Mod l4/23 的值是（ ）。（分数：2.00）A.1B.0C.2D.314.当组合框的 Style 属性设置为何值时，组合框称为下拉式列表框？（分数：2.00）A.0B.1C.1.0D.true15.下面的属性中，用于自动调整图像框中图形内容的大小的是（ ）。（分数：2.00）A.PictureB.CurentYC.CurrentXD.Stretch16.当滚动条位于最左端或最上端时，Value 属性被设置为（ ）。（分数：2.00）A.打印在每页的底部，用来显示本页的汇总说明的是页面页脚B.用来显示整份报表的汇总说明，在所有记录
6、都被处理后，只打印在报表的结束处的是报表页脚C.报表显示数据的主要区域叫主体D.用来显示报表中的字段名称或对记录的分组名称的是报表页眉17.在窗体上画 1 个命令按钮，其名称为 Command1，然后编写如下程序： Private Sub Command1_Click() Dim a(10) As Integer Dim x As Integer For i=1 To 10 a(i)=8+i Next x=2 Print a(f(x)+x) End Sub Function f(x As Integer) x=x+3 f=x End Function 程序运行后，单击命令按钮，输出结果为_。
7、（分数：2.00）A.12B.15C.17D.1818.有如下的程序段，该程序段执行完后，共执行的循环次数是( )。 total=0 Counter=1 Do Print Counter total=total * Counter + 1 Print total Counter=Counter +1 If total 10 Then Exit Do End If Loop While Counter=10 （分数：2.00）A.4B.10C.15D.2019.下列说法错误的是（ ）。（分数：2.00）A.标准模块的扩展名是basB.标准模块由程序代码组成C.标准模块只用来定义一些通用的过程D.
8、标准模块不附属于任何一个窗体20.关于 Visual Basic“方法“的概念错误的是（ ）。（分数：2.00）A.方法是对象的一部分B.方法是预先定义好的操作C.方法是对事件的响应D.方法用于完成某些特定的功能21.下列程序段的执行结果为（ ）。 a=5 Fork=1 To 0 a=a + k Next k Print k；a （分数：2.00）A.-1 6B.-1 16C.1 5D.11 2122.在窗体上画四个文本框（如图所示），并用这四个文本框建立一个控件数组，名称为 Text1（下标从0 开始，自左至右顺序增大），然后编写如下事件过程： （分数：2.00）A.0 1 2 3B.1 2
9、 3 4C.0 1 3 2D.出错信息23.用来设置文本框有无滚动条的属性是（ ）。（分数：2.00）A.在 File1 中的 Change 事件中，输入 File1Path=Dir1PathB.在 Dirl 中的 Change 事件中，输入 File1Path=Dir1PathC.在 File1 中的 Change 事件中，输入 Dir1Path=File1PathD.在 Dir1 中的 Change 事件中，输入 Dir1Path=File1Path24.下列说法错误的是（ ）。（分数：2.00）A.x 0B.x -4C.x -425.有如下的程序： Private Sub Command
10、1_Click( ) Dim k As Integer，m As Integer Dim P As Integer k=4：m=1 P=Pid(k，m) ：Print P； P=Pid(k，m) ：Print P End Sub Private Function Pid(a As Integer，b As Integer) Static m As Integer，i As Integer m=5：i=2 i=i + m + 1 m=i + a + b Pid=m/2 End Function 单击命令按钮后，输出结果为（ ）。 （分数：2.00）A.标准模块也称程序模块文件，扩展名是.basB
11、.标准模块由程序代码组成C.标准模块只用来定义一些通用的过程D.标准模块不附属于任何一个窗体26.在 Visual Basic 中按文件的数据性质不同，可将文件分为（ ）。（分数：2.00）A.数据文件和程序文件B.文本文件和数据文件C.顺序文件和随机文件D.ASCII 文件和二进制文件27.在 Visual Basic 中，要强制用户对所用的变量进行显式声明，这可以在哪里设置?（分数：2.00）A.算术运算符关系运算符连接运算符B.算术运算符连接运算符逻辑运算符C.连接运算符算术运算符关系运算符D.逻辑运算符关系运算符算术运算符28.以下程序段运行时从键盘上输入字符“-”，则输出结果为（ ）
12、。 op$=InputBox(“op=“) If op$=“+“ Then a=a+2 If op$=“-“ Then a=a-2 Print a （分数：2.00）A.报表的主体区域B.页面页眉或页面页脚区域C.报表页眉或报表页脚区域D.组页眉或组页脚区域29.有如下程序段，该程序段执行完后，执行循环的次数是( )。 total=0 Counter=1 Do Print Counter total=total + Counter Print total Counter=Counter+1 If total10 Then Exit Do End If Loop While Counter =1
13、0 （分数：2.00）A.5B.10C.15D.2030.在窗体上画一个名称为 Label1、标题为“VisualBasic 考试”的标签，两个名称分别为 Command1 和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为 Timer1 的计时器控件，并把其 Interval 属性设置为 500，如图所示: （分数：2.00）A.标签的移动方向为自右向左B.单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动C.当标签全部移出窗体后，将从窗体的另一端出现并重新移动D.标签按指定的时间间隔移动31.在窗体（名称为 Form1）上画一个名称为 Text1 的文
14、本框和一个名称为 Command1 的 命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则 把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是_。 （分数：2.00）A.Private Sub Text1_Change() Command1.Caption = “计算机等级考试“ End SubB.Private Sub Command1_ Click () Caption = “计算机等级考试“ End SubC.Private Sub Form1_ Click () Text1.Caption = “计算机等级考试“ End SubD.Priv
15、ate Sub Command1_ Click () Text1.Text = “计算机等级考试“ End Sub32.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() s=1 Do s=(s + 1) * (s + 2) Number=Number + 1 Loop Until s = 30 Print Number，s End Sub 程序运行后，输出的结果是( )。 （分数：2.00）A.2 3B.2 56C.5 12D.10 2033.在窗体上画一个名称为 List1 的列表框，一个名称为 Label1 的标签，列表框中显示若干
16、个项目。当单击列表框中的某个项目时，在标签中显示被选中项目的名称。下列能正确 实现上述操作的程序是：_。 （分数：2.00）A.Private Sub List1_Click() Label1.Caption = List1.ListIndex End SubB.Private Sub List1_Click() Label1.Name=List1.Lis tIndex End SubC.Private Sub List1_Click() Label1.Name=List1.Text End SubD.Private Sub List1_Click() Label1.Caption =List
17、1.Text End Sub34.单击命令按钮，下列程序的执行结果是( )。 Private Sub Blck (x As Integer) x = x * 2 + l If x 6 Then Call Blck(x) End If x = x * 2 + 1 Print x； End Sub Private Sub Commandl_Click() Blck 2 End Sub （分数：2.00）A.aa=falseB.aa=FalseC.aa=“true“D.aa=035.下列程序执行的结果为（ ）。 x=25：y=20：z=7 Print “S“；x+z*y；“)“ （分数：2.00）A
18、.S(47)B.S(165)C.S(25+7*20)D.S(87)二、填空题（每空 2 分，共 30 分）(总题数：15，分数：30.00)36.如果在 D 盘当前文件夹下已 2 经存在名为 PICday 的顺序文件，那么执行语句 Open “D:/PICdat“ For Append As #1 之后将 1。 （分数：2.00）填空项 1:_37.在窗体上画一个名称为 Combo1 的组合框,然后画两个名称分别为 Labe1、Label2,标题分别为“城市名称“和空白的标签。程序运行后,在组合框中输入一个新项目并按回车键,如果输入的项目在组合框的列表中不存在,则自动将其添加到组合框的列表中,
19、并在 Label2 中给出提示“已成功添加新输入项。“,如图所示。如果输入的项目已存在,则在 Label2 中给出提示“输入项已在组合框中。“。 （分数：2.00）填空项 1:_38.在窗体上画一个命令按钮和一个文本框,其名称分别为 Command1 和 Text1,然后编写如下事件过程： Private Sub Commandl_Click1 Dim inData As String Textl.Text=“ Open“d：myfile.txt“For 2As#1 Do While 3 Input#,inData Loop Text1.Text=Text1.Text+inD Loop Clo
20、se#1 End Sub 程序的功能是,打开 D 盘根目录下的文本文件 myfile.txt,读取它的全部内容并显示在文本框中。请填空。 （分数：2.00）填空项 1:_39.在名称为 Form1 的窗体上画一个文本框，其名称为 Text1，在属性窗口中把该文本框的 MultiLine 属性设置为 True，然后编写如下的事件过程： Private Sub Form_Click1 5 Open “d:/test/smtext1.txt“ For Input As #1 Do While Not 2 Line Input #1, aspect$ whole$ = whole$ + aspect$
21、 + Chr$(13) + Chr$(10) Loop Text1.Text = whole$ Close #1 Open “d:/test/smtext2.txt“ For Output As #1 Print #1, 3 Close #1 End Sub 上述程序的功能是，把磁盘文件 smtext1.txt 的内容读到内存并在文本框中显示出来，然后把 该文本框中的内容存入磁盘文件 smtext2.txt。请填空。 （分数：2.00）填空项 1:_40.给定年份，下列程序用来判断该年是否是闰年，请填空。 Sub YN1 Dim X AS Integer xInput Box(“请输入年号“)
22、 If( x Mod 4=0 2 x Mod l000) 3 (x Mod 400=0)Then Print“是闰年“ Else Print“不是闰年，是普通年份“ End If End Sub （分数：2.00）填空项 1:_41.下列程序的功能是：将数据 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 （分数：2.00）填空项 1:_42.在窗体上画 1 个命令按钮
23、和 1 个文本框，其名称分别为 Command1 和 Text1，然后编 写如下代码： Dim SaveAll As String Private Sub Command1_Click1 Text1.Text = Left(UCase(SaveAll), 4) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) SaveAll = SaveAll + Chr(KeyAscii) End Sub 程序运行后，在文本框中输入 abcdefg，单击命令按钮，则文本框中显示的内容是 2。 （ 10 ）在窗 体上画 1 个命令按钮 和 1 个通
24、用对话框， 其名称分别 为 Command1 和 CommonDialog1，然后编写如下事件过程： Private Sub Command1_Click3 CommonDialog1. 4 = “打开文件“ CommonDialog1.Filter = “All Files(*.*)|*.*“ CommonDialog1.InitDir = “C:/“ CommonDialog1.ShowOpen End Sub 该程序的功能是，程序运行后，单击命令按钮，将显示“打开“文件对话框，其标题是“ 打开文件“，在“文件类型“栏内显示“All Files(*.*)“，并显示 C 盘根目录下的所有文件
25、， 请填空。 （分数：2.00）填空项 1:_43.在有下面一个程序段从文本框中输入数据，如果该数据满足条件，除以 6 余 2，脓以 5 余 3，则输出否则，特焦点定位在文本框中，并清除文本框的内容。 Private Sub Command1_Click1 num=Val(Text1Text) If 2Then Print num Else Text1Text=“ “ 3 End If End Sub （分数：2.00）填空项 1:_44.要使标签的背景样式为不透明，应将 BackStyle 属性设置为 1。（分数：2.00）填空项 1:_45.在 E 盘当前目录文件夹下建立一个名为“Stud
26、enttxt的顺序文件，要求用 InputBox 函数输入 5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。 Private Sub Form _ Click1 2 For i=1 To 5 StuName=InputBox(“请输入姓名“) StuGrade=InputBox(“请输入年级号“) StuAge=InputBox(“请输入年龄“) 3 Next i 4 End Sub （分数：2.00）填空项 1:_46.为了选择多个控件，可以按住 1 键，然后单击每个控件。（分数：2.00）填空项 1:_47.在关系模型中，把数据看成是二维表，每一个二维表称
27、为一个 1。（分数：2.00）填空项 1:_48.函数 Str$(25636)的值是 1。（分数：2.00）填空项 1:_49.下列程序是判断一个整数(=3)是否为素数，请补充完整。 Dim n As Integer n=InputBox(“请输入一个整数(=3)“) k=Int(Sqr(n) i=2 swit=0 While i0 Then a=a-1 End If a=a+1 Next j Next i Print a End Sub 程序运行后，单击命令按钮，输出结果是_。 （分数：2.00）A.0B.2C.3D.4 解析：在内层循环中，在奇数次执行时，a 的值不变，偶数次执行时，a 的
28、值加 1。每执行一轮外层循环，内层循环中的语句将要执行 4 次，即 a 的值要加 2，一共执行了两次内层循环语句，故 a 的值要加 4，而初 始时 a 的值为 0，故最后输出的 a 的值为 4。4.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) Static x As Integer Cls For i=1 To 2 y=y+x x=x+2 Next Print x，y End Sub 程序运行后，连续三次单击 Command1 按钮后，窗体上显示的是（ ）。 （分数：2.00）A.4 2B.12 18 C
29、.12 30D.4 6解析：5.当双击窗体 Form1 时，要将窗体 Form1 隐藏起来、将窗体 Form2 以模式方式显示出来的事件过程，正确的是( )。 （分数：2.00）A.Private Sub Form _ Db1Click( ) FormlHide Form2Show 0 End SubB.Private Sub Form _ Db1Click( ) FormHide Form 2Show 1 End Sub C.Private Sub Form _ Click( ) Form lHide Form 2Show End SubD.Private Sub Form _ Dbl Cl
30、ick( ) Form lEnabled=False Form 2Enabled=True End Sub解析：语句 Form2，Show 0 是将 Form2以非模态方式显示，所以选项 A) 错误；语句 Form 2Show 1中的参数 1 表示将 Form 2 以模态方式显示，所以选项 B) 正确；选项 C) 错误，该事件过程是窗体的单击事件，而题目要求的是窗体的双击事件；窗体 Enabled 属性的作用是设置窗体是否被激活，不是设置窗体是否可见，所以选项 D) 错误。6.若在某窗体模块中有如下事件过程 Private Sub Command1_Click(Index As Integer
31、) End Sub 则以下叙述中正确的是【 】 （分数：2.00）A.此事件过程与不带参数的事件过程没有区别B.有 1 个名称为 Command1 的窗体,单击此窗体则执行此事件过程C.有 1 个名称为 Command1 的控件数组,数组中有多个不同类型控件D.有 1 个名称为 Command1 的控件数组,数组中有多个相同类型控件 解析：根据题意,该段代码应为命令按钮数组的单击过程代码,它与单个命令按钮的事件过程是不同的,它根据索引值的不同来执行不同的代码,所以选项 A)和选项 B)都不正确；控件数组是由一组相同类型的控件组成,这些控件共用一个相同的控件名字,具有相同的属性设置,因此,选项
32、C)错误,选项 D)正确。7.以下能够正确计算 n!的程序是（ ）。（分数：2.00）A.Private Sub Command1 Click() n=5：x=1 Do X=X * I I=I + 1 Loop While I n Print x End SubB.Private Sub Command1_Click() n=5：X=1：I=1 Do X=X*I I=I + 1 Loop While I n Print x End SubC.Private Sub Command1_Click() n=5：X=1：I=1 Do X=X * I I=I + 1 Loop While I=n Pr
33、int X End Sub D.Private Sub Command1_Click() n=5：X=1：I=1 Do X=X * I I=I + 1 Loop While In Print X End Sub解析：n! =123(n-1)n，由于是累乘，因此 x 和 i 的初值都必须为 1；其次就是循环执行条件的确定，由于使用的是 While 型循环，表示在满足条件时执行循环体中的代码，这里满足执行循环的条件应该是 i=n。8.关于自定义对话框概念的说明，错误的是（ ）。（分数：2.00）A.建立自定义对话框时必须执行添加窗体的操作B.自定义对话框实际上是 VB 的窗体C.在窗体上还要使用其
34、他控件才能组成自定义对话框D.自定义对话框不一定要有与之对应的事件过程 解析：自定义对话框是在窗体控件上设置一些为应用程序接收数据、输出信息的控件制作成的。所以自定义对话框实际上是 Visual Basic 的窗体，建立自定义对话框的第一步便是在工程中添加窗体。自定义对话框通常有命令按钮，一个命令按钮要对应一个事件过程，所以自定义对话框一定要有事件过程与之对应。9.单击命令按钮时，下列程序的执行结果是（ ）。 Private Sub Command1_Click() Dim a As Integer，b As Integer，c As Integer a=3 b=4 c=5 Print Sec
35、Proc(c，b，a) End Sub Function FirProC(x As Integer，y 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.28 D.30解析：此题程序代码中用了两层调用，我们对这样的问题要多加小心，不能掉以轻心，千万不要把实参和相对应的形参弄混淆。主调过程 Command1_C
36、lick 输出的是 SecProc(c，b，a)的返回值，调用过程SeeProe 时，主调过程分别把实参 c、b、s 地址传给形参 x、y、z，此时在过程 SecProc 中，SecProc=FirProc(a，b,c)+c。由此看出，程序段执行此语句时，将调用过程 FirProe。把实参 a、c、b的地址分别传给形参 x、y、z，此时在过程 FirProc 中，FirProe=2 * x + y + 3 * z，所以FirProc(a，c，b)=6+4+15=25, SecProc(a，c，b)=25+3=28，所以选项 C)是正确的。10.在窗体上有 1 个名为 Cd1 的通用对话框,为了
37、在运行程序时打开保存文件对话框,则在程序中应使用的语句是【 】（分数：2.00）A.Cd1.Action=2 B.Cd1.Action=1C.Cd1.Show Save=TrueD.Cd1.Show Save=0解析：通用对话框控件为程序设计人员提供了几种不同类型的对话框,利用这些对话框,可以获取所需要的信息,诸如取得文件名、打开文件、将文件存盘、打印等、这些对话框与 Windows 本身及许多应用程序具有相同的风格。对话框的类型可以通过 Action 属性来设置,也可以用相应的方法设置,Action 的属性如下表： 11.下列程序段的执行结果为（ ）。 a=95 If a60 Then I=
38、l If a70 Then l=2 If a80 Then I=3 If a90 Then I=4 Print“I=“:I （分数：2.00）A.I=1B.I=2C.I=3D.I=4 解析：此题为 If Then 结构的条件语句，如果 a60，则 I=1；如果 a 70，贝 I=2；如果 a80，则 I=3；如果 a90，则 I=4。12.有如下事件过程： Private Sub Commaild1_Click( ) Dim i As Integer For i =1 To 2 DC Next i End Sub Sub DC( ) Dim x As Integer，m As String S
39、tatic y，n x=x + 1 y=y + 1 m=m&“*“：n=n &“#“ Print x，y，m，n End Sub 程序运行后，输出的结果是( )。 （分数：2.00）A.布局管理器是用来管理构件放置在容器的位置和大小的B.为了使生成的图形用户界面具有良好的平台无关性，Java 语言提供了布局管理器这个工具来管理构件在容器的布局，而不是直接设置C.布局管理器本身也是一个接口，编程中通常使用的是实现了该接口的类D.以上说法都正确 解析：MVC 体系结构是现有的编程语言中制作图形用户界面的一种通用思想，基本内容和特点也就是选项A)，选项 B)，选项 C)中叙述的。13.表达式 32
40、Mod l4/23 的值是（ ）。（分数：2.00）A.1B.0 C.2D.3解析：在做本题之前要先了解各种运算符的优先级，只有了解了之后才能作对。幂运算符()优先级最高，其次是取负、乘、浮点除、整除、取模、加减、字符串连接等。其中，乘和浮点除是同级别的运算符，加和减是同级运算符。此外，如果表达式中有括号，则计算括号内的表达式的值。通过运算本题的结果是0。14.当组合框的 Style 属性设置为何值时，组合框称为下拉式列表框？（分数：2.00）A.0B.1 C.1.0D.true解析：用 Format$()函数可以将数值按“格式字符串”指定的格式输出，包括在输出字符串前面加$，字符串后面补 0
41、 及千位分隔符等。“格式字符串”是一个常量或变量，它由专门的格式说明符组成，由这些字符决定数据项的显示格式，并指定显示区域的长度，当格式字符串为常量时，必须放在双引号中，格式说明符及作用见下表所示： 综合上述分析，本题是指定 5689.36 按给定“000，000000“格式输出，所以不足的部分补 0，输出结果为：005，689.360，正确答案为选项 D)。 15.下面的属性中，用于自动调整图像框中图形内容的大小的是（ ）。（分数：2.00）A.PictureB.CurentYC.CurrentXD.Stretch 解析：本题的目的在于考查学生对图形控件的属性设置。Picture 属性用于窗
42、体、图片框和图像框，它可以通过属性窗口设置，用来把图形放到这些对象中，因此选项 A)是不正确的；CurrentX 和 CurrentY 用来设置下一个输出的水平坐标和垂直坐标，因此选项 B)和 C)都不正确；Stretch 属性用于图像框，用于自动调整图像框中图形内容的大小，既可通过属性窗口设置，也可以通过程序代码设置，该属性的取值为True 或 False，当其值为 False 时，将自动放大或缩小图像框中的图形以与图像框的大小相适应，因此选项 D)是正确的。16.当滚动条位于最左端或最上端时，Value 属性被设置为（ ）。（分数：2.00）A.打印在每页的底部，用来显示本页的汇总说明的是
43、页面页脚B.用来显示整份报表的汇总说明，在所有记录都被处理后，只打印在报表的结束处的是报表页脚C.报表显示数据的主要区域叫主体D.用来显示报表中的字段名称或对记录的分组名称的是报表页眉 解析：用来显示报表中的字段名称或对记录的分组名称的是报表页眉，报表页眉是在报表的开始处，用来显示报表的标题、图形或说明性文字。17.在窗体上画 1 个命令按钮，其名称为 Command1，然后编写如下程序： Private Sub Command1_Click() Dim a(10) As Integer Dim x As Integer For i=1 To 10 a(i)=8+i Next x=2 Prin
44、t a(f(x)+x) End Sub Function f(x As Integer) x=x+3 f=x End Function 程序运行后，单击命令按钮，输出结果为_。 （分数：2.00）A.12B.15C.17D.18 解析：函数 f 的作用是将 x 的值加 3（由于 Vb 中默认的参数传递方式为 ByRef，故对形参的改变将影响到实参），同时将该值作为函数的结果返回。由于开始时 x 的值为 2，执行 f(x)后，x 的值为 5，f(x)的结果亦为 5。故最后输出的结果应为 a(10)，而在 for 循环中 a(10)=8+10=18。18.有如下的程序段，该程序段执行完后，共执行的
45、循环次数是( )。 total=0 Counter=1 Do Print Counter total=total * Counter + 1 Print total Counter=Counter +1 If total 10 Then Exit Do End If Loop While Counter=10 （分数：2.00）A.4 B.10C.15D.20解析：本题中 Counter 为计数器，当 Counter=4 时，total=4110，跳出循环，共 执行 4 次循环。19.下列说法错误的是（ ）。（分数：2.00）A.标准模块的扩展名是basB.标准模块由程序代码组成C.标准模块只
46、用来定义一些通用的过程 D.标准模块不附属于任何一个窗体解析：标准模块不仅可以用来定义一些通用的过程，还可以用来声明一些全局 变量，所以 C 是不正确的；标准模块的扩展名是bas，所以选项 A)是正确的；正因为标准 模块是程序模块文件，所以必然是程序代码组成，所以选项 B)是正确的；标准模块不属 于任何一个固定的窗体，在工程中是公用的，所以选项D)是正确的。20.关于 Visual Basic“方法“的概念错误的是（ ）。（分数：2.00）A.方法是对象的一部分B.方法是预先定义好的操作C.方法是对事件的响应 D.方法用于完成某些特定的功能解析：对象是属性、方法和事件的集成，所以选项 A)说法
47、正确；例如 Print 方法是用来输出字符串、变量和表达式的值，也就是完成输出的这一功能，所以选项 D)的说法正确；在执行方法时，不必考虑实现输出的具体步骤，方法的步骤是系统预先规定好的，所以选项 B)说法正确。21.下列程序段的执行结果为（ ）。 a=5 Fork=1 To 0 a=a + k Next k Print k；a （分数：2.00）A.-1 6B.-1 16C.1 5 D.11 21解析：此题是考查 For 循环结构语句。 For 循环有两种格式，其中一种格式是： For 循环变量=初值 To 终值 Step步长 语句 Exit For 语句 Next循环变量 此循环语句的执行过程为：“循环变量”首先取得“初值”，检查是否超过“终值”，如果超过，就一次也不循环而跳出循环，属于“先检查后执行”的类型。现在来看程序段， For k=1 To 0 中，初值为 1，终值为 0，显然当“循环变量”首先取得“初值”1，检查后超过“终值”0，所以一次也不执行，即最后执行 Print 时，k=1，a=5。 22.在窗体上画四个文本框（如图所示），并用这四个文本框建立一个控件数组，名称为 Text1（下标从0 开始，自左至右顺序增大），然后编
