1、国家二级 VB 机试（数据类型及运算）模拟试卷 24 及答案解析(总分：66.00，做题时间：90 分钟)一、选择题(总题数：33，分数：66.00)1.执行如下两条语句后，窗体上显示的是 a=98596 Print Format(a，“$00，00，00”)（分数：2.00）A.0，00986B.$986C.986D.$0，009862.设一个工程由两个窗体组成，其名称分别为 Fornm1 和 Forum2，在 Fornml 上有一个名称为 Command1 的命令按钮。窗体 Fornm1 的程序代码如下：Private Sub Commandl_Click() Dim a=10 Call
2、g(Fornm2，a)End SubPrivate Sub g(f As Fornm，x As Integer) y=IIf(x10，100，一 100) fShow fCaption=yEnd Sub 运行以上程序，正确的结果是（分数：2.00）A.Fornml 的 Caption 属性值为 100B.Forum2 的 Caption 属性值为100C.Fornml 的 Caption 属性值为-100D.Forum2 的 Caption 属性值为 1003.在窗体上画一个名称为 Command1 的命令按钮，并编写如下程序：Private Sub Command1_Click() Dim
3、x As Integer x=10：y=5 Call f1(x，y) Print x，yEnd subPrivate Sub f1(ByRef x1 As Integer，_ y1 As Integer) x1=x1+2：y1=y1+2End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是（分数：2.00）A.10 5B.12 2C.10 7D.12 74.在窗体上画一个名称为 Filel 的文件列表框，并编写如下程序： Private Sub File1_DblClick() x=Shell(File1FileName，1) End Sub 以下关于该程序的叙述中，错误的是（分数：2
4、.00）A.x 没有实际作用，因此可以将该语句写成 Call Shell(File1FileName，1)B.双击文件列表框中的文件，将触发该事件过程C.要执行的文件的名字通过 File1FileName 指定D.File1 中显示的是的当前驱动器、当前目录下的文件5.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序：Option Base 1Private Sub Commandl_Click() Dim a As Variant a=Array(1，2,3，4，5)Sum=0For i=1 To 5 Sum=Sum+a(i)Next ix=Sum5For i=1 To
5、5 If a(i)x then Print a(i)Next i End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是（分数：2.00）A.12B.123C.345D.456.执行以下程序段 aS=”abbacddcba” For i=6 To 2 Step 一 2 X=Mid(a，i，i)：Y=Lett(a，i) z=Right(a，i)：z=UCase(X Y z) Next i Print z 输出的结果是（分数：2.00）A.ABAB.BBABBAC.AABAABD.AABAAB7.假定一个工程由一个窗体文件 Form1 和两个标准模块文件 Model1 和 Model2 组
6、成 Model1 的代码如下： Public x As Integer：Publicy，As Integer Sub S1() Sub S2() x=1 y=10 S2 Form1show End Sub End Sub Model2 的代码如下： Sub Main() S1 End Sub 其中 Sub Main 被设置为启动过程。程序运行后，各模块的执行顺序是（分数：2.00）A.Form1Model1Model2B.Model1Model2Form1C.Model2Model1Form1D.Model2Form1Model18.在窗体(名称为 Form1)上画一个名称为 Text1 的文
7、本框和一个名称为 Command1 的命令按钮，然后编写一个事件过程。程序运行后，如果在文本本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的时间过程是（分数：2.00）A.Private Sub Text1_Change() Command1Caption=”计算机等级考试” End SubB.Private Sub Text1_Change() Caption=”计算机等级考试” End SubC.Private Sub Text1_Change() TextlCaption=”计算机等级考试” End SubD.Private Sub Text1_Cha
8、nge() Text1Text=”计算机等级考试” End Sub9.在窗体上画一个列表框和一个命令按钮，其名称分别为 list1 和 Command1，然后编写如下事件过程： Private Sub Form load() List1Addltem”Item1”：List1Addltem”Itern2”：ListlAddltem”Item3” End Sub Private Sub Command1_Click () List1List(List1ListCount)=”AAAA” End Sub 程序运行后，单击命令按钮，其结果为（分数：2.00）A.把字符串“AAAA”添加到列表框中，但
9、位置不能确定B.把字符串“AAAA”添加到列表框的最后(即“Item3”的后面)C.把列表框原有的最后一项改为“AAAA”D.把字符串“AAAA”插入到列表框的最前面(即“Item1”的前面)10.在窗体上画一个命令按钮，然后编写如下事件过程： Private SUb Commandl_Click For i=1 To 5 a(i)=Chr(Asc(”A”)+(i 一 1) Next i For Each b In a Print b： Next End Sub 程序运行后，单击命令按钮，输出结果是（分数：2.00）A.ABCDEB.1 2 3 4 5C.abcdeD.出错信息11.设窗体上有
10、一个名为 Text1 的文本框，并编写如下程序： Private Sub Form_load0 Show Text1Text=“”：Text1SetFocus End Sub Private Sub Form_MouseUp(Button As Integer,_shift As integerX As Single，Y As Integer) Print”程序设计” End Sub Private Sub Text_KeyDown(keyCod As Integer,_shift As Integer) Print”Visual Basic”； End Sub 程序运行后，如果在文本框中输入
11、字母“a”，然后单击窗体，则在窗体上显示的内容是（分数：2.00）A.Visual BasicB.程序设计C.Visual Basic 程序设计D.a 程序设计12.假定有下表所列的菜单结构： （分数：2.00）A.Private Sub bigicon_Click() bigiconChecked=False End SubB.Private Sub bigicon_Click() MeappearbigiconChecked=True End SubC.Private Sub bigicon_Click() bigiconChecked=True End SubD.Private Sub
12、bigicon_Click() appearbigiconChecked=True End Sub13.以下能从字符串“VisualBasic”中直接取出子字符串“Basic”的函数是（分数：2.00）A.LeftB.MidC.StringD.Instr14.在菜单编辑器中建立 1 个名称为 Menu()的菜单项，将其“可见”属性设置为 False，并建立其若干子菜单，然后编写如下过程 Private Sub Form_MousDown(Button As Integer，Shift As Integer，X As Single，Y As Single) If Button=1 Then Po
13、pupMenu Menu() End If End Sub 则以下叙述中错误的是（分数：2.00）A.该过程的作用是弹出一个菜单B.单击鼠标右键时弹出菜单C.Menu()是在菜单编辑器中定义的弹出菜单的名称D.参数 X、Y 指明鼠标当前位置的坐标15.设有如下的用户定义类型： Type Student Number As String：Name As String：Age As Integer End Type 则以下正确引用该类型成员的代码是（分数：2.00）A.Studentname=”李明”B.Dim S As Student Sname=”李明”C.Dim S As Type Stud
14、ent Sname=”李明”D.Dim s As Type Sname=”李明”16.在窗体上画一个命令按钮和两个标签，其名称分别为 Command1、Label1 和 Label2，然后编写如下事件过程： Private Sub Command1_Click() a=0 For i=1 To 10 a=a+1：b=0 Forj=1 To 10 a=a+1：b=b+2 Nextj Label1Caption=Str(a)：Label2Caption=Str(b) End Sub 程序运行后，单击命令按钮，在标签 Label1 和 Label2 中显示的内容分别是（分数：2.00）A.10 和
15、20B.20 和 110C.200 和 110D.110 和 2017.为达到把 a、b 中的值交换后输出的目的，某人编程如下： Private Sub Commandl_Click() a=10：b=20 Call swap(a，b) Print a,b End Sub Private Sub swap(ByVal a As Integer，ByVal b As Integer) c=a：a=b：b=c End Sub 在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的是（分数：2.00）A.调用 swap 过程的语句错误，应改为：Call swap(a，b)B.输出语
16、句错误，应改为：print”aIt，V!b”C.过程的形式参数有错，应改为 swap(ByRef a Integer，ByRefb Integer)D.swap 中 3 条赋值语句的顺序是错误的，应改为 a=b：b=c：c=a18.设有如图所示窗体和以下程序： （分数：2.00）A.文本框中无内容，焦点在文本框中B.文本框中为“Basic”，焦点在文本框中C.文本框中为“Basic”，焦点在按钮上D.文本框中为“Visual Basic”，焦点在按钮上19.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Co
17、mmandl_Click() Dim I As Integer,n As Integer For i=0 T0 50 i=i+3：n=n+1 If i10 Then Exit For Next Text1Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（分数：2.00）A.2B.3C.4D.520.设有以下函数过程： Function fun(a As Integer,b As Integer) Dim C As Integer IfaA.a、b 的最大公约数B.a、b 的最小公倍数C.a 除以 b 的余数D.a 除以 b 的商的整数部分21.在窗体上画一
18、个名称为 Command1 的命令按钮。单击命令按钮时执行如下事件过程： Private Sub Command1_Click() aS=“software and hardware” b$=Right(aS，8) c$=Mid(a$，1，8)：MsgBox aS，b$，c$，1 End Sub 则在弹出的信息框标题栏中显示的标题是（分数：2.00）A.software and hardwareB.hardwareC.softwareD.122.以下程序段的输出结果是 X=1：Y=4 Do Until Y4 X=X*Y.Y=Y+1 Loop Print X（分数：2.00）A.1B.4C.8D
19、.2023.下面函数的功能应该是：删除字符串 str 中所有与变量 ch 相同的字符，并返回删除后的结果。例如：若 str=“ABCDABCD”，ch=“B”，则函数的返回值为：“ABCDCD”Function delchar(str As string,ch As;Dim k As Integer,temp As String,ret As Stringret=“For k=1 To Len(str) Temp=Mid(str,k,1) If temp=ch Then ret=ret temp End If Next k delchar=ret 但实际上函数有错误，需要修改。下面的修改方案中
20、正确的是（分数：2.00）A.把 ret=ret temp 改为 ret=tempB.把 Iftemp=ch Then 改为 Iftemp=5 x=a*b Print b；x a=a+b：b=b+a Loop End Sub 程序运行后，单击窗体，输出结果是（分数：2.00）A.1 1 2 3B.1 1 2 4C.1 1 3 8D.1 1 3 627.表达式 Int(Rnd(0)*50)所产生的随机数范围是（分数：2.00）A.(050)B.(1，50)C.(0，49)D.(1，49)28.现有如下一段程序： Option Base1 Private Sub Command1_Click()
21、Dim a a=Array(3，5，7，9)：x=1 For i=4 To 1 Step-1 s=s+a(i)*X：X=X*10 Next Print S End Sub 执行程序，单击 Command1 命令按钮，执行上述事件过程，输出结果是（分数：2.00）A.9753B.3579C.35D.7929.设有如下程序： Sub f(x As Integer，ByVal Y As Integer) x=2*X：y=y+x End Sub Private Sub Command1 Click() Dim a As Integer，b As Integer a=6：b=35 Call f(a，b)
22、 Print a,b End Sub 程序运行后，单击命令按钮 Command1，输出结果为（分数：2.00）A.6 47B.12 47C.6 35D.12 3530.以下不能输出“Program”的语句是（分数：2.00）A.Print Mid(”VBProgram”，3，7)B.Print Right(”VBProgram”，7)C.Print Mid(”VBProgram”，3)D.Print Left(”VBProgram”，7)31.已知： x=-6 y=39 则表达式“yx*Sgn(x)”的值为（分数：2.00）A.-65B.-6C.6D.6532.设：a=12，b=5，c=7，表
23、达式 x=(ac+a Mod b)+Int(135)的值是（分数：2.00）A.5B.6C.7D.933.表达式 1224 的值是（分数：2.00）A.15B.2C.4D.1国家二级 VB 机试（数据类型及运算）模拟试卷 24 答案解析(总分：66.00，做题时间：90 分钟)一、选择题(总题数：33，分数：66.00)1.执行如下两条语句后，窗体上显示的是 a=98596 Print Format(a，“$00，00，00”)（分数：2.00）A.0，00986B.$986C.986D.$0，00986 解析：解析：此题考察。Format 函数，该函数的格式为：Format(expressi
24、on，format)其中expression 参数指定要转换的数值，format 参数是字符串，$表示 Currency 格式，显示带千分符且小数点右面保存两位，因此应选选项 D。2.设一个工程由两个窗体组成，其名称分别为 Fornm1 和 Forum2，在 Fornml 上有一个名称为 Command1 的命令按钮。窗体 Fornm1 的程序代码如下：Private Sub Commandl_Click() Dim a=10 Call g(Fornm2，a)End SubPrivate Sub g(f As Fornm，x As Integer) y=IIf(x10，100，一 100) f
25、Show fCaption=yEnd Sub 运行以上程序，正确的结果是（分数：2.00）A.Fornml 的 Caption 属性值为 100B.Forum2 的 Caption 属性值为100 C.Fornml 的 Caption 属性值为-100D.Forum2 的 Caption 属性值为 100解析：解析：本题考查常用函数和窗体属性设置。在 Commandl 命令按钮的 Click 事件代码里面，定义变量 a，初始化为 10，然后调用 g 函数，参数为 Fornm2 和 a：在 g 函数中，首先判断输入的参数 x 是否大于 10，显然调用 g 函数时传入的 a 为 10，因此在 g
26、函数中 y 的值为一 100，然后设置窗体 f 变量(Fornrn2)的 Caption 属性为 y，即设置 Fornm2 的 Caption 属性为-100。3.在窗体上画一个名称为 Command1 的命令按钮，并编写如下程序：Private Sub Command1_Click() Dim x As Integer x=10：y=5 Call f1(x，y) Print x，yEnd subPrivate Sub f1(ByRef x1 As Integer，_ y1 As Integer) x1=x1+2：y1=y1+2End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是（分
27、数：2.00）A.10 5B.12 2C.10 7D.12 7 解析：解析：本题考查函数参数传递。在 Commandl 的 Click 事件代码里而，定义了变量 x 和 y，值分别为 10 和 5，然后调用 f1 过程；f1 过程有两个参数，其中第一个参数是 ByRef 表明是按地址传递参数的，第二个参数是没有指明 ByVal 类型，因此默认页是 ByRef 地址传递参数，在 f1 过程中多参数做的修改，同样会修改实参；在 f1 过程中，分别对两个参数加 2，因此在 Commandl 的 Click 代码里面，调用 f1 过程后，x 和 y 的值增加 2，变成 12 和 7。4.在窗体上画一个
28、名称为 Filel 的文件列表框，并编写如下程序： Private Sub File1_DblClick() x=Shell(File1FileName，1) End Sub 以下关于该程序的叙述中，错误的是（分数：2.00）A.x 没有实际作用，因此可以将该语句写成 Call Shell(File1FileName，1) B.双击文件列表框中的文件，将触发该事件过程C.要执行的文件的名字通过 File1FileName 指定D.File1 中显示的是的当前驱动器、当前目录下的文件解析：解析：本题考查常用内部函数，Shell 函数的功能是执行一个可执行文件，返回一个Variant(Double
29、)，如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 O。选项 A)错误，x 获取 Shell 函数返回值；选项 B)、C)和 D)均正确。5.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序：Option Base 1Private Sub Commandl_Click() Dim a As Variant a=Array(1，2,3，4，5)Sum=0For i=1 To 5 Sum=Sum+a(i)Next ix=Sum5For i=1 To 5 If a(i)x then Print a(i)Next i End Sub 程序运行后，单击命令按钮，在窗体上
30、显示的内容是（分数：2.00）A.12B.123C.345D.45 解析：解析：本题考查数组和循环。在 Commandl 的 Cliek 事件代码里面，定义了数组 a，并通过 Array函数给数组赋初值。接下来通过 For 循环计算数组元素的累加和 Sum，得到累加和后 x=Sum5 来计算平均值。最后通过 For 循环，打印大于平均值的元素。6.执行以下程序段 aS=”abbacddcba” For i=6 To 2 Step 一 2 X=Mid(a，i，i)：Y=Lett(a，i) z=Right(a，i)：z=UCase(X Y z) Next i Print z 输出的结果是（分数：2
31、.00）A.ABAB.BBABBA C.AABAABD.AABAAB解析：解析：本题考查循环结构和常用内部函数，Mid、Left 和 Right 是字符串截取函数，UCase 是把字符串转换成大写的函数。在循环体内，X 是从 a 字符串的第 i 位开始，取出 i 长度的字符串，Y 从 a 字符串的最左边开始取出长度为 i 的字符串，Z 从 a 字符串的最右边开始取出长度为 i 的字符串，然后把“X Y z”转换成大小并赋值给 z。由于循环体每次操作都一样，只需要考虑循环最后一次执行的情况，循环最后一次执行的时候 i 的值为 2，此时 X=Mid(a,2,2)=”bb”，Y=Left(a,2)=
32、”ab”，z=mght(a,2)=”ba“，所以 UCase(X Y z)=”BBABBA”。7.假定一个工程由一个窗体文件 Form1 和两个标准模块文件 Model1 和 Model2 组成 Model1 的代码如下： Public x As Integer：Publicy，As Integer Sub S1() Sub S2() x=1 y=10 S2 Form1show End Sub End Sub Model2 的代码如下： Sub Main() S1 End Sub 其中 Sub Main 被设置为启动过程。程序运行后，各模块的执行顺序是（分数：2.00）A.Form1Model
33、1Model2B.Model1Model2Form1C.Model2Model1Form1 D.Model2Form1Model1解析：解析：本题考查启动顺序。本题中，设置 Main 为启动过程，而 Main 位于 Model2 当中，因此最先运行的是 Model2 中的 Mian 过程；在 Mian 过程中调用 S1 过程，而 S1 位于 Model1 模块中，因此接下来运行的是 Model1 模块；在 S1 过程中会调用 S2 过程：S2 过程中设置 Form1show 来启动 From1，因此最后运行的是 Form1。8.在窗体(名称为 Form1)上画一个名称为 Text1 的文本框和
34、一个名称为 Command1 的命令按钮，然后编写一个事件过程。程序运行后，如果在文本本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的时间过程是（分数：2.00）A.Private Sub Text1_Change() Command1Caption=”计算机等级考试” End Sub B.Private Sub Text1_Change() Caption=”计算机等级考试” End SubC.Private Sub Text1_Change() TextlCaption=”计算机等级考试” End SubD.Private Sub Text1_Chang
35、e() Text1Text=”计算机等级考试” End Sub解析：解析：本题考查控件属性和事件代码。题目要求在文本框输入字符的时候设置命令按钮的标题属性，因此需要在文本框的 Change 事件代码设置命令按钮的 Caption 属性。9.在窗体上画一个列表框和一个命令按钮，其名称分别为 list1 和 Command1，然后编写如下事件过程： Private Sub Form load() List1Addltem”Item1”：List1Addltem”Itern2”：ListlAddltem”Item3” End Sub Private Sub Command1_Click () Lis
36、t1List(List1ListCount)=”AAAA” End Sub 程序运行后，单击命令按钮，其结果为（分数：2.00）A.把字符串“AAAA”添加到列表框中，但位置不能确定B.把字符串“AAAA”添加到列表框的最后(即“Item3”的后面) C.把列表框原有的最后一项改为“AAAA”D.把字符串“AAAA”插入到列表框的最前面(即“Item1”的前面)解析：解析：本题考查控件的属性和方法。在窗体的 Load 事件代码里面，使用列表框的 AddItem 方法为Listl 列表框增加三项；在命令按钮的 Click 事件代码里面，此时列表框 Listl 的 ListCount 属性为 3，
37、因此 ListlList(ListlListCount)=”AAAA”实际是 ListlList(3)=”AAAA”，即向列表框的最后添加一项。10.在窗体上画一个命令按钮，然后编写如下事件过程： Private SUb Commandl_Click For i=1 To 5 a(i)=Chr(Asc(”A”)+(i 一 1) Next i For Each b In a Print b： Next End Sub 程序运行后，单击命令按钮，输出结果是（分数：2.00）A.ABCDE B.1 2 3 4 5C.abcdeD.出错信息解析：解析：本题考查常用函数和 For 循环。在第一个循环里面
38、，给数组 a 的元素赋值，第一个元素的值为“A”，第二个元素值为“B”，以此类推；接下来第二个 For 循环打印输出数组 a 里面的元素值。11.设窗体上有一个名为 Text1 的文本框，并编写如下程序： Private Sub Form_load0 Show Text1Text=“”：Text1SetFocus End Sub Private Sub Form_MouseUp(Button As Integer,_shift As integerX As Single，Y As Integer) Print”程序设计” End Sub Private Sub Text_KeyDown(key
39、Cod As Integer,_shift As Integer) Print”Visual Basic”； End Sub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是（分数：2.00）A.Visual BasicB.程序设计C.Visual Basic 程序设计 D.a 程序设计解析：解析：本题考查控件属性和事件响应。在文本框输入字母“a”会触发文本框的 KeyDown 事件，在该事件代码里面输出“Visual Basic”字符串；接下来单击窗体，会触发窗体的 MouseUp 事件，在该事件代码里面输出“程序设计”。12.假定有下表所列的菜单结构： （分数
40、：2.00）A.Private Sub bigicon_Click() bigiconChecked=False End SubB.Private Sub bigicon_Click() MeappearbigiconChecked=True End SubC.Private Sub bigicon_Click() bigiconChecked=True End Sub D.Private Sub bigicon_Click() appearbigiconChecked=True End Sub解析：解析：本题考查菜单的基本知识。在菜单前添加一个“”这是设置菜单的 Checked 属性。13.
41、以下能从字符串“VisualBasic”中直接取出子字符串“Basic”的函数是（分数：2.00）A.LeftB.Mid C.StringD.Instr解析：解析：本题考查常用函数。常用的字符串截取方式是 Mid、LeR 和 Right，Mid(a，M，N)功能是从a 字符串左起第 M 位下标开始取值(包含 M 位)，共取 N 位字符；Right(a，M)表示从右起第一位开始取值，向左取 M 位；Left(a，N)表示从 a 字符串左起第一位开始取值，向右取 N 位。14.在菜单编辑器中建立 1 个名称为 Menu()的菜单项，将其“可见”属性设置为 False，并建立其若干子菜单，然后编写如
42、下过程 Private Sub Form_MousDown(Button As Integer，Shift As Integer，X As Single，Y As Single) If Button=1 Then PopupMenu Menu() End If End Sub 则以下叙述中错误的是（分数：2.00）A.该过程的作用是弹出一个菜单B.单击鼠标右键时弹出菜单 C.Menu()是在菜单编辑器中定义的弹出菜单的名称D.参数 X、Y 指明鼠标当前位置的坐标解析：解析：在窗体的 MouseDown 事件过程中，判断是否是鼠标左键，如果是则弹出菜单，选项 B)错误。15.设有如下的用户定义类
43、型： Type Student Number As String：Name As String：Age As Integer End Type 则以下正确引用该类型成员的代码是（分数：2.00）A.Studentname=”李明”B.Dim S As Student Sname=”李明” C.Dim S As Type Student Sname=”李明”D.Dim s As Type Sname=”李明”解析：解析：本题考查用户定义类型，用户类型需要先定义，然后才能使用。选项 A)没有定义 Student类型的变量，错误；选项 B)先定义 Student 类型变量，然后使用，正确；选项 C)
44、定义 Student 类犁变量s 的时候多写了 Type，错误；选项 D)定义 Student 类型变量错误。16.在窗体上画一个命令按钮和两个标签，其名称分别为 Command1、Label1 和 Label2，然后编写如下事件过程： Private Sub Command1_Click() a=0 For i=1 To 10 a=a+1：b=0 Forj=1 To 10 a=a+1：b=b+2 Nextj Label1Caption=Str(a)：Label2Caption=Str(b) End Sub 程序运行后，单击命令按钮，在标签 Label1 和 Label2 中显示的内容分别是（
45、分数：2.00）A.10 和 20B.20 和 110C.200 和 110D.110 和 20 解析：解析：本题考查循环。Commandl 的 Click 事件代码里面有两个 For 循环，而且是嵌套关系。在外层的 For 循环里面，a 增加 1，然后 b 置 0，进入内层循环，在内层循环中 a 增加 1，b 增加 2，最后输出a 和 b 的值。每次外循环的时候 b 的值清 0，然后执行内层循环，因此 b 的值就是最后一次执行内层循环后的值，内层循环执行 10 次，故 b 最后的值为 20；a 是统计循环执行的次数，内层循环执行 1010=100次，外层循环执行 10 次，故 a 最后的值为
46、 110。17.为达到把 a、b 中的值交换后输出的目的，某人编程如下： Private Sub Commandl_Click() a=10：b=20 Call swap(a，b) Print a,b End Sub Private Sub swap(ByVal a As Integer，ByVal b As Integer) c=a：a=b：b=c End Sub 在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的是（分数：2.00）A.调用 swap 过程的语句错误，应改为：Call swap(a，b)B.输出语句错误，应改为：print”aIt，V!b”C.过程的形
47、式参数有错，应改为 swap(ByRef a Integer，ByRefb Integer) D.swap 中 3 条赋值语句的顺序是错误的，应改为 a=b：b=c：c=a解析：解析：本题考查函数参数传递。VB 有两种参数传递方式：传值 ByVal 和传地址 ByRef，ByVal 方式形参的修改不会影响到实参，ByRef 方式修改形参相当于修改实参。题目要求在调用 swap 过程后，修改形参影响实参，参数应该使用 ByRcf 方式。18.设有如图所示窗体和以下程序： （分数：2.00）A.文本框中无内容，焦点在文本框中 B.文本框中为“Basic”，焦点在文本框中C.文本框中为“Basic”
48、，焦点在按钮上D.文本框中为“Visual Basic”，焦点在按钮上解析：解析：本题考查控件属性和事件过程。单击 Commandl 命令按钮，执行命令按钮的 Click 事件过程，在 Command 1 的 Click 事件过程中，设置文本框的 Text1Text 属性为“Visual Basic”。同时，由于鼠标从文本框移动到命令按钮，文本框失去焦点，触发文本框的 LostFocus 事件，在该事件代码里面，判断文本框内容是否为“BASIC”，由于在前面的 Commandl 的事件过程中设置了文本框的 Text 属性为“Visual Basic”，和“BASIC”不相等，因此该 if 判断
49、条件成立，接下来把文本框的 Text 清空，并设置文本框获取输入焦点。19.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dim I As Integer,n As Integer For i=0 T0 50 i=i+3：n=n+1 If i10 Then Exit For Next Text1Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（分数：2.00）A.2B.3 C.4D.5解析：解析：本题考查循环控件结构。在 Commandl 的 Click 事件过程中，变量 I 是循环控制变量，变量n 记录循环的次数。在 For 循环中，i 每次增加 3，n 增加 1，接下来通过 if 判断 i 是否大于 10，如果大于 10 则结束循环。I 和 n 的变化过程为：3 和 1、7 和 2、11 和 3，当 I 为 11 时，if 条件成立循环结束。2
