2003年4月的真题与解析

1、个人资料整理仅限参考 2003 年 4 月的真题与解析 2003 年 4 月的真题 （考试时间 90 分钟，满分 100 分） 一、选择题 1 ）20）每小题 2 分，21）30）每小题 3 分，共 30 题，70 分） 下列各题 A ）、B ）、C）、D）四个选项中，只有一个选项是正确的，请将正确选 项涂在答题卡的相应位置上，答在试卷上不得分。 GLRBeNOOQq （1）以下不能在“工程资源管理器”窗口中列出的文件类型是 A) .bas B) .res C) .frm D) .ocx 以 下 关 于 窗 体 的 描 述 中 错 误 的 是 A ) 执行 Uni oad Form1 语 句后

2、，窗 体 Form1 消 失， 但仍在 内存 中 B ) 体 的 Load 事件 在加 载 窗 体时 发 生 C）当窗体的 Enabled 属性为 False 时，通过鼠标和键盘对窗体的操作都被禁止 GLRBeNOOQq D）窗体的 Height、Width属性用于设置窗体的高和宽 下 列 可 作 为 Visual Basic 变 量 名 的 是 A） A#A B） 4A C） ?xy D） constAGLRBeN0OQq (4 ) 设 有 如 下 的 记 录 类 型 Type Stude nt nu mber As Stri ng n ame As Stri ng age As In te

3、ger End Type 贝 U 正 确 引用 该 记录类 型 变量的 代码是 A ) Stude nt. name n 张红” B ) Dim s As Stude nt s. name = II 张 红 “ C ) Dim s As Type Stude nt D ) Dim s As Type s. name =张红 =张红 ” GLRBeNOOQq 函 数 Stringn, str ) 的 功 能 是 A ) 把 数 型数 据 转 换 为 字 符 串 B ) 返 回 由 n 个 字 符 组 成 的 字 符 串 C ) 从 字 符 串 中 取 出 n 个 字 符 D） 从字

4、符串中第 n个字符的位置开取子字符串 GLRBeN0OQq 6)将数学表达式 Cos2(a+b)+5e2写成 Visual Basic 的表达式，其正确的形式是 A) Cos (a+b) A2+5*exp(2) B ) CosA2(a+b)+ 5*exp(2) 个人资料整理仅限参考 C) Cos (a+b)人2+5*1 n(2) D ) Cos2(a+b)+ 5*1 n(2) (7)在窗体上画一个命令按钮，名称为 Comma nd1。单击命令按钮时，执行如下事件过 程： Private Sub Comma nd1_Click() a$ = software and hardware b$ =

5、Right(a$, 8) c$ = Mid(a$, 1, 8) MsgBox a$, , b$, c$, 1 End Sub 则在弹出的信息框的标题栏中显示的信息是 A)software and hardware B) software C) hardware D) 1GLRBeN0OQq (8 )执行如下语句： a = InputBox(Today, Tomorrow, Yesterday, , , Day before yesterday, 5)GLRBeNOOQq 将显示一个输入对话框，在对话框的输入区中显示的信息是 A) Today B) Tomorrow C) Yesterday D

6、) Day before yesterdayGLRBeN0OQq 9)表示滚动条控件取值范围最大值的属性是 A) Max B) LargeChange C) Value D) Max-Min (10)在窗体上画一个名称为 List1 的列表框，一个名称为 Label1 的标签。列表框中显示若 干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。 下列能正确实现上述功能的程序是 GLRBeN0OQq A) Private Sub List1_Click() B ) Private Sub List1_Click() GLRBeN0OQq Label1.Capti on =Li

7、st1. ListI ndex Label1. Name = =List1. List Index GLRBeN0OQq End Sub End Sub C ) PrivatSub List1_Click() D )Private Sub List1_Click() Label1.Name = =List1.Text Label1.Capti on = :List1.Text GLRBeN0OQq End Sub End Sub (11)在窗体上画 个 名称为 Command1 的命令按钮， 然后编写如下事件过程： Private Sub Comma nd1_Click() x = 0 n =

8、 In putBox() For i = 1 To n For j = 1 To i x = x + 1 Next j Next i Print x End Sub 程序运行后 ,单击命令按钮 ,如果输入 3,则在窗体上显示的内容是 个人资料整理仅限参考 A) 3 B) 4 C) 5 D) 6GLRBeNOOQq (12)以下关于菜单的叙述中，错误的是 A) 在程序运行过程中可以增加或减少菜单项 B) 如果把一个菜单项的 Enabled属性设置为 False,则可删除该菜单项 C) 弹出式菜单在菜单编辑器中设计 D) 利用控件数组可以实现菜单项的增加或减少 A)空白 B )错误提示 C)北京

9、D)上海 GLRBeNOOQq (15) 假 疋 有 以 下 函 数 过 程 ： Function Fun(S As Stri ng) As Stri ng Dim s1 As Stri ng For i = 1 To Len(S) s1 = UCase(Mid(S, i, 1) + s1 Next i Fun = s1 End Function 在窗体 上画 一个 命令按钮，然 后 编 写 如 下事 件 过程： Private Sub Comma nd1_Click() Dim Str1 As Stri ng, Str2 As Stri ng Str1 = In putBox( ” 请 输

10、入 一 个 字 符 串 ) Str2 = Fu n(Str1) Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“ abcdefg ”，则单击 “ 确定”按钮后在窗体上的输出结果为 A)abcdefg B)ABCDEFG C)gfedcba D)GFEDCBA GLRBeNOOQq (14)在窗体上画一个命令按钮，名称为( Command1，然后编写如下事件过程： Optio n Base 0 Private Sub Comma nd1_Click() Dim city As Varia nt city = Array(” 北 京 上 海, 天津 聿

11、,重庆 ) Print city(1) End Sub 程序运行后，如果 单击 命令按 钮，则 在窗体 上显示的内容是 13)在窗体上画三个单选按钮，组成一个名为 数组元素的参数是 GLRBeNOOQq A) Tag B) Index C) ListIndex D) Name chkOption的控件数组。用于标识各个控件 个人资料整理仅限参考 16 ) Open c:Test.Dat For Output As #1 则以下错误的叙述是个人资料整理仅限参考 A) 该语句打开 C 盘根目录下一个已存在的文件 Test.Dat B) 该语句在 C 盘根目录下建立一个名为 Test.Dat 的文件

12、 C ) 该语句建立的文件的文件号为 1 D)执行该语句后，就可 以通过 Print #语句向文 件 Test.Dat 中写入信息 GLRBeNOOQq 17 ) 以 下 叙 述 中 错 误 的 是 A)用 Shell 函数可以调用能够在 Win dows 下运行的应用程序 B )用 Shell 函数可以调用可执行文件，也可以调用 Visual Basic 的内部函数 C) 调 用 Shell 函 数 的格式 应 为 : =Shell ( ) D)用 1 Siell 函数不能执行 DC )S命令GLRB eNOO Qq 18 ) 以 下 关于过程 及 过程参 数 的描述 中， 错误 的 是 A

13、 ) 过 程 的 参 数 可 以 是 控 件 称 B) 用 数组作为过 程 的参数时， 使 用的是 “传 地址” 方 式 C) 只有函数过程能够将过程中处理的信息传回到调用的程序中 D) 窗体可以作为过程的参数 GLRBeNOOQq 19)在窗体上画一个名称为 TxtA 的文本框，然后编写如下的事件过程： Private Sub TxtA_KeyPress(keyascii as in teger) End Sub 若 焦点位于文 本框 中，则能够触发 KeyPress 事件 的操作 是 A ) 单击鼠 标 B ) 双击 文本 框 C) 鼠标滑过文本框 D) 按下键盘上的某个键 GLRBeNO

14、OQq 20 ) 目 录 列 表 框 的 Path 属 性 的 作 用 是 A ) 显示当 刖 驱动器或 指 定驱动 器上 的路 径 B )显示当前 驱动 器或指定驱 动器 上的某目 录下 的文件 名 C ) 显 示 根 目 录 下 的 文 件 名 D) 只显示当前路径下的文件 GLRBeNOOQq (21) 假 定 有 如 下 事 件 过 程 : Private Sub Form_MouseDow n(Butt on As In teger, Shift As In teger, _ GLRBeN0OQq X As Sin gle, Y As Si ngle) If Button = 2 T

15、he n PopupMe nu popForm End iGLRBeNOOQq End Sub 则 以 描 述 中 错 的是 A ) 该过 程 的 功 能 是 弹 出 一 个 菜单 B ) popForm 是 在菜单 编辑 器中定 义的弹出式 菜单 的名称 个人资料整理仅限参考 C ) 参数 X 、 Y 指明 鼠标的当 勺前 位置 D) Button = 2 表示按下的是鼠标左键 GLRBeNOOQq 个人资料整理仅限参考 标 签 Private Private X 然 后 编 写 如 下 程 序 代 码： X As In teger Sub Comma nd1_Click() 5: Y =

16、3 Call 22 ) 以 下 能 够 正 确 计 算 n! 的 程 序 是 A ) Private Sub Comma nd1_Click() n = 5: x = 1 Do x = x * i i = i + 1 Loop While i n Print x End Sub B ) Private Sub Comma nd1_Click() n = 5 x = 1: i = 1 Do x = x * i i = i + 1 Loop While i n Print x End Sub C ) Private Sub Comma nd1_Click() n = 5 x = 1: i = 1

17、Do x = x * i i i + 1 Loop While i n Print x End SubGLRBeNOOQq (23)在窗体上画一个名称为 Command1 的命令按钮，再画两个名称分别为 Labell、Label2 Y) proc(X, 个人资料整理仅限参考 Labell.C apti on = X Label2.C apti on = Y End SubGLRBeNOOQq Private Sub proc(ByV al a As In teger, ByVal b As In teger) X = a * a Y = :b + bGLRBeNOOQq End Sub 程 序

18、 运 行 后 ， 单 击 命 令 按 钮 ， 则 两 个 标 签 中 显 示 的 内 容 分 别 是 A)5 和 3 B)25 和 3 C)25 和 6 D) 5 和 6GLRBeN0OQq Next Label1.Capti on Sub 10 Label1.Capti on Label2.Capti on Label3.Capti on 24)在窗体上画一个名称为 写 如 Comma nd1的命令一个名称为 件 Label1 的标签，然后编 程 ： Private Sub Comma nd1_Click() For To 15 If Mod The End 程序运行后 击命令按 显示的 内

19、容是 A) 1 B)5 25)在窗体上画一个名称为 Label3 的 标 D)45GLRBeN0OQq C)27 Comma nd1 的命令按钮和三个名称分别为 Label1、 Label2、 Private As Private Sub In teger Comma nd1_Click() Static As In teger Dim As In teger 个人资料整理仅限参考 A)10 10 10 B)30 30 30 C)30 30 10 D)10 30 30GLRBeN0OQq (26)设在窗体上有一个名称为 Comma nd1 的命令按钮，并有以下事件过程： Private Sub

20、 Comma nd1_Click()End 运行程序，连续三次单击命令按钮后，则 Sub 个标签中显示的内容分别是 个人资料整理仅限参考 End Sub 此过程的功能是把数组 b 中的 5 个数逆序存放即排列为 9,7,5,3,1）。为实现此功 台匕 冃匕 ，省 r 略 号 处 的 程 序 段 该 是 A ) For i 0 To 5-1 2 tmp = b(i) b(i) = b(5 - i - 1) b(5 - i - 1) = tmp Next B ) For i = 0 To 5 tmp = b(i) b(i) = b(5 - i - 1) b(5 - i - 1) = tmp Nex

21、t C ) For i =0 To 5 2 tmp = b(i) b(i) = b(5 - i - 1) b(5 - i - 1) = tmp Next D ) For i 1 To 5 2 tmp = b(i) b(i) = b(5 - i - 1) b(5 - i - 1) = tmp NextGLRBeNOOQq 27）在窗体上画一个名称为 Drive1 的驱动器列表框，一个名称为 Dir1 的目录列表框，一 个名称为 File1 的文件列表框，两个名称分别为 Label1、Label2，标题分别为空白 和共有文件”的标签。编写程序，使得驱动器列表框与目录列表框、目录列表 框与文件列表框

22、同步变化，并且在标签 Label1 中显示当前文件夹中文件的数量。 如 图 所 示 GLRBeNOOQqStatic b b= As Varia nt Array(1,3,5,7,9) 个人资料整理仅限参考 能 够 正 确 实 现 上 述 功 能 的 程 序 是 A) PrivatSub Dir1_Change() B) Private Sub Dir1_Change() File1.Path =Dir1 .P ath File1.Path = Dir1.Path End Sub End SuGLRBeN0OQq Private Sub Drive1_Change() Dirl.Path =

23、Drivel.Drive Labell.C aptio n = Filel .L istCou nt End SubFile1.List GLRBeNOOQq 28) 个工程中包含两个名称分别为 Form1、Form2 的窗体，一个名称为 mdIFunc 的标准 模块。假定在 Form1 Form1、 中 Form2 和 mdIFunc 中分别建立了自定义过程，其定义格式为： 疋 义 的 过 程 ： Private Sub frmFun cti on 1() End Sub GLRBeN0OQq Form2 中 疋 义 的 过 程 ： Public Sub frmFun ctio n2() E

24、nd Sub mdlFunc 中定义的过程: |e： BEIBGE IHSTALL. HTMI READMEE1T. HIM A HiProgram Files MADMEBT. HIM REABMEEr.HTM MADNESS HTM READMEVB.HTM READMEVT HIM REABMEVE.町M READMEVT.m REMEVI.町111 i WNicrcsoft Visual i CJMSDN OYB98 共有文件|12 .Fonnl Private Sub Drive1_Change() Dir1 .P ath = Drive1.Drive Label1.Capti on

25、 = File1.List End SulGLRBeNOOQq C ) Private Sub Dir1_Change() File1.Path = Dir1.Path Label1.Caption = File1. ListCou nt End Sub End Sub Private Sub Drive1_Change() Dir1 .P ath = Drive1.Drive Label1.Capti on = File1 .L istCou nt D ) Private Sub Dir1_Change() File1.Path = Dir1.Path Label1.Caption = Fi

26、le1.List GLRBeNOOQq Private Sub Drive1_Change() Dir1.Path = Drive1.Drive Label1.Captio n = 个人资料整理仅限参考 PublicSub mdlF un ctio n() 个人资料整理仅限参考 End Sub 在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是 A) 上述三个过程都可以在工程中的任何窗体或模块中被调用 B) frmFunction2 和 mdIFunction 过程能够在工程中各个窗体或模块中被调用 C)上述三个过程 都只能在各自被定义的模块中调用 D)只有 mdIFun

27、ction 过程能够被工程中各个窗体或模块调用 GLRBeN0OQq (29)窗体上有两个名称分别为 Text1Text2 的文本框，一个名称为 Comma nd1 的命令按 钮。运行后的窗体外观如图所示。 GLRBeN0OQq 设 有 如 下 的 类 型 声 明 Type Person n ame As Strin g*8 major As Stri ng*20 End TypeGLRBeN0OQq 当单击“保存”按钮时，将两个文本框中的内容写入一个随机文件 Test29.dat 中 A ) Ope n c:Test29.dat For Random As #1 Put #1, 1, p C

28、lose #1GLRBeN0OQq B ) Ope n c:Test29.dat For Random As #1 Get #1, 1, p Close #1GLRBeN0OQq C )Ope n c:Test29.dat For Ran dom As #1 Len = Le n(p) Put #1, 1, p Close #1GLRBeN0OQq D ) Ope n c:Test29.dat For Ran dom As #1 Len = Le n(p) Get #1, 1, p Close #1GLRBeN0OQq 设文本框中的数据已正确地赋值给 写 入文件的程序段是 (30)在窗体上画一

29、个名称为 Com mon Dialogl 的通用对话框，一个名称为 Comma nd1 的命 令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为 Person 类型的变量 P。则能够正确地把数据 个人资料整理仅限参考 执行下面的程序段后 S For i = 2.6 变量 S 的值为 【3】 5 To 4.9 Step 0.6 请将每空的正确答案写在答题卡【1】【15】序号的横线上，答在试卷上不得分。 GLRBeN0OQq (1) Visual Basic 中有一种控件组合了文本框和列表框的特性，这种控件是 【1】。 (2) Visual Basic 提供的对数据文件的三种

30、访问方式为随机访问方式、【 _2】和二进制访问 方式。GLRBeN0OQq “ Save”，缺省文件名为SaveFile”，在 述 要 求 A ) Private Com mon Dialogl.FileName Common Dialogl.Filter = Common Dialogl.Filterl ndex Com mon Dialog1.DialogTitle Com mon Dialog1.Action End SubGLRBeNOOQq B ) Private Com mon Dialog1.FileName Common Dialog1.Filter Common Dialog

31、1.FilterI ndex Commo nDialog1.DialogTitle “文件类型”栏中显示 *.txt。则能够满足上 的 程 序 是 Sub Comma nd1_Click() = SaveFile All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc = 2 = Save = 2 Sub Comma nd1_Click() = SaveFile All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc = 1 = Save CommonDialog1.Action = 2 GLRBeN0OQq End Sub C ) Pr

32、ivate Com mon Dialog1.FileName Commo nDialog1.Filter = All Common Dialog1.FilterI ndex Commo nDialog1.DialogTitle CommonDialog1.Action = 2 GLRBeN0OQq End Sub D ) Private Com mon Dialog1.FileName Commo nDialog1.Filter = All Common Dialog1.FilterI ndex Commo nDialog1.DialogTitle Sub Comma nd1_Click()

33、= Save Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc = 2 = SaveFile Sub Comma nd1_Click() = SaveFile Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc = 1 = Save Com mon Dialog1.Action = 1 GLRBeNOOQq End Sub 填 空 题 每 空 2 分 共 30 分) 个人资料整理仅限参考 Next |GLRBeNOOQq 4） 为了在运行时把 d:pic 文件夹下的图形文件 a.jpg 装入图片框 Picturel，所使用的语句 为【4 】。G

34、LRBeNOOQq 5） 计时器控件能有规律的以一定时间间隔触发 【5】事件，并执行该事件过程中的程序 代码。 6）以下程序的功能是：生成 20 个 200 到 300 之间的随机整数，输出其中能被 5 整除的数 Print a=; a, b=; b GLRBeN0OQq End Sub Sub p1(x As In teger, ByVal y As In teger) x = x + 10 y = y + 20 End SubGLRBeNOOQq Sub p2(ByVal x As In teger, y As In teger) Private Sub For x i Int( 【 6

35、】 1If 【 7 】 Print S = S + End Next Print Sum = Comma nd1. _Click() To 20 * 200 + 100) = 0 The n x 【 8 】 Private Sub Form_Click() Dim a As In teger, a = 20: p1 a, p2 a p3 a II. 5 Sb As In teger b = 50 b b b Sub p3(ByVal x As In teger, ByVal y As In teger) 并求出它们的和。请填空。 GLRBeN0OQq End SubGLRBeN0OQq 7)设

36、有如下程序 If i 个人资料整理仅限参考 x = x + 10 y = y + 20 End SubGLRBeNOOQq 个人资料整理仅限参考 + 10 5 456 34567 2345678 123456789 请填空。GLRBeN0OQq (9) 在窗体上画一个名称为 Combo1 的组合框，画两个名称分别 Label1 和 Label2 及 Caption 属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后 按回车键 ASCII 码为 13)时，如果输入的项在组合框的列表中不存在，则自动添加到 组合框的列表中，并在 Label2 中给出提示“已成功添加输入项”如

37、图所示。如果存 在，则在 Label2 中给出提示“输入项已在组合框中”。请在 【12】、【13】 和 【14】处将程序补充完整。GLRBeN0OQq -JDJ x 城市名称 北京 已成功襦加输入项 Priva Su Combo1 【 12 】 (KeyAscii As In If KeyAscii = 13 The n For i 0 To Combo1 .L istCou nt-1 If Combo1.Text = 【 13 】 The n Label2.Captio n = 输入项已在组 合框 中 Exit Sub Private Sub Comma nd1_Click() Dim a

38、As Stri ng a = 【 11 】 For i = 1 To 5 Print Space(6 - i); Mid$(a, 6 -i, 2 * i - 1) Next i End Sub 程序运 行后，单 击命令按钮， 要 求 窗体上 显示 的输出结果为 (8)在窗体上画一个名称为 Comma nd1 的命令按钮， 编写如下事件过程 x y End 该程序运行后，单X y 则在窗体上显示的内容是: + 20 Sub a =【9】和 b = 瓠 Forml 个人资料整理仅限参考 10 Next i Label2.Capti on = 已 成 功 添 加 输入 项 “ Combo1. 【 1

39、4 】 Combol.Text End If End SubGLRBeNOOQq ) 设 有 如 下 程 序 Private Sub search(a() As Varia nt, ByVal key As Varia nt. in dex%) Dim 1% For I = LBo un d(a) To UBou nd(a) If key = a(I) The n in dex = I Exit Sub End If Next I in dex = -1 End SubGLRBeNQOQq End If Private Sub Form_Load() Show Dim b() As Varia

40、 nt Dim n As In teger b = Array(1, 3, 5, 7, 9, 11, 13, 15) Call search(b, 11, n) Print n End 程序运行后，输出结果是 Sub 【15】。GLRBeNOOQq 个人资料整理仅限参考 2003 年 4 月的真题解析 一、选择题 (I) D【解析】ocx是 ActiveX 控件的后缀，所以不能在“工程资源管理器”窗口中列出。 可以先审查 A、B 和 C。最熟悉的是 A 和 C,首先排除。次之是 res,它是资源文件后 缀，也可排除，所以选择 D。GLRBeNOOQq A【解析】Un load 是卸载，Form

41、1 不在内存中，直接选择 A。 (3) D【解析】constA 正确。数字不能作为第一个字母，“ #”和“？”非法。 B【解析】声明 Student 类型的变量之后，才能使用。“ Dim s As Student”声明变量 s 的方法正确，选择 B。 GLRBeN0OQq (5) B【解析】返回由 n个字符组成的字符。 (6) A【解析】主要是对 Cos 表达式的理解。只要将 Cos(a+b)作为一个整体，就可轻易求 解。如果不熟悉，可以先判 5e2，显然 A 和 B 是对的，再根据 Cos 是函数，Cos2没有意 义，可以确定正确答案是 A。GLRBeN0OQq (7) B【解析】MsgBo

42、x 的第 1 个参数显示的是信息，标题栏中显示的信息是在其之后的字 符串，显然是字符串 b$，所以答案为 B。其实，忽略的第 2 个参数取默认值“ 0”，显 示一个“确认”按钮。 GLRBeN0OQq (8) C【解析】问“在对话框的输入区中显示的信息是”那个字符串的内容。第 1 个字符串 是提示信息，第 2 个是标题栏信息，第 3 个是输入框中的内容，选择 Co GLRBeN0OQq (9) A【解析】直接选 A(Max)。另外，它没有 Max-Min 属性，LargeChange 是指定每次单 击可以变化的最大值。Value 则代表它的当前值。GLRBeN0OQq (10) D【解析】首先

43、从 Label 应使用 Caption属性入手，排除 D 和 C。A 项显示的是列表项 的序号而不是内容，所以肯定是 D。其实，Text 属性值为最后一次选中的表项的文 本。因为不能直接修改 Text 属性，所以在属性窗口中， ListBox 并不给出这个属性。 GLRBeN0OQq (II) D【解析】注意循环体内是每次加 1,以供循环 6 次，所以结果为 6o (12) B【解析】Enabled 属性设置为 False 只代表不可使用，但并不删除。 (13) B【解析】List In dex 是列表框控件的属性，单选按钮的控件数组使用 In dex。 (14) D【解析】city(1)=上

44、海。这道题已经有很明显的提示： Option Base 0GLRBeN0OQq (15) D【解析】Fun中最后取入的字符排在最左边，所以左边是“ G”，选择 D。 (16) A【解析】并不要求文件已经存在，所以 A 是错误的。 (17) B【解析】Shell 函数调用的是执行文件，不能调用 Visual Basic 的内部函数。 (18) C【解析】举出反例，Visual Basic 过程也可以。从而确定 C 是错误的。 (19) D【解析】按下键盘上的某个键可以触发 KeyPress 事件。 (20) D【解析】Path是路径，显然是 A。 个人资料整理仅限参考 (21) D【解析】But

45、ton = 2 表示按下的是鼠标右键。 (22) C【解析】本体关键看循环次数，能保证循环 5 次的只有 C，选择 Co个人资料整理仅限参考 GLRBeN0OQq 【4】 Picture1.PictuLoadPicture(d:pica.jpg) 或 Picture1 (23) B【解析】X 定义为窗体变量，虽然是传值，但变量是同一个，所以变为 25。Y 参数 是传值方式，各自使用自己的变量名，结果 Y 仍然保持原来的 3。GLRBeNOOQq (24) B【解析】很容易推知 x是奇数数列 1 3 5 7 9 11 13 15 17 19 21 23 25 27 29。程序求这 个数列中有几个

46、是 3 的倍数。选择 B。 GLRBeNOOQq (25) C【解析】首先从局部变量 z 入手，三次单击的效果一样，应为 10,从而排除选项 B 和 D。再从静态变量变量的性质知，再次单击肯定变化，而 A 项是不变的，肯定正 确的是 C 项，从而避免计算。由此可见，只要抓住实质，可以把问题转成很简单的 判断题。其实，每单击一次， y 加 10。变量 x 是窗体变量，程序没有结束，它也是随 着每次单击而加 10。GLRBeN0OQq (26) C【解析】首先确定数组下标为 0 4。由此排除 D。再看 For 循环终止值。终值应该 取半，所以 B 排除。A 项循环中，5-12=5( “ ”优先级比“-”高)，排除。只剩下 C, 所以它是正确的选项。 GLRBeNOOQq 这里稍微解释一下，考题有意使用使下标越界的数字 5，所以算式中需要-1。根据数 组下标