【计算机类职业资格】计算机二级(VB)53及答案解析.doc

1、计算机二级(VB)53 及答案解析(总分：4230.00，做题时间：90 分钟)一、选择题(每小题 2 分，共 70 分) 下列各(总题数：60，分数：4200.00)1.运行下面的程序后，输出的结果为( )。 Cls Dim t(5，5) as Integer For i=1 To 5：t(i，i)=1：Next For i=1 To 5 For j=1 To 5 Print t(i，j)， Next j Print Next I （分数：70.00）A.1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 l 1 1 1 1 1 1B.1 1 l 1 1C.1 0 0 0

2、 0 0 1 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 1D.1 1 1 1 12.在窗体上画一个名称为 List1 的列表框,一个名称为 Label1 的标签,列表框中显示若干城市的名称。当单击列表框中的某个城市名时,该城市名从列表框中消失,并在标签中显示出来。下列能正确实现上述操作的程序是【 】（分数：70.00）A.Pivate Sub Listl_Click() Label1.Caption：List1.Listlndex List1.Removeltem List1.Text End SubB.Private Sub Listl_Click() Label1

3、.Name=List1.Listlndex Listl.Removeltem Listl.Text End SubC.Private Sub List1_Click() Labell.Caption=Listl.Text List1.Removeltem Listl.Listlndex End SubD.Private Sub List1_Click() Label1.Name=List1.Text List1.Removeltem List1.Listlndex End Sub3.以下关于 Visual Basic 数据类型的说法，不恰当的是（ ）。（分数：70.00）A.char str

4、；B.char str ；C.String str = new String10；D.String str10；4.在 Visual Basic 工程中，可以作为“启动对象”的程序是_。 （分数：70.00）A.任何窗体或标准模块B.任何窗体或过程C.Sub Main 过程或其他任何模块D.Sub Main 过程或任何窗体5.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) x=InputBox(“Input”) Select Case x Case 1，3 Print“分支 1” Case Is4 Prin

5、t“分支 2” Case Else Print“Else 分支” End Select End Sub 程序运行后，如果在输入对话框中输入 2，则窗体上显示的是（ ）。 （分数：70.00）A.分支 1B.分支 2C.Else 分支D.程序出错6.单击命令按钮时，下列程序的执行结果是( )。 Private Sub Commandl_Click( ) BT 4 End Sub PriVate Sub BT(x As Integer) X=X * 2 + 1 If x 6 Then Call BT(x) End If X=x * 2 Print x； End Sub （分数：70.00）A.A%

6、6B.n-3C.a=4= = blD.a=87.在窗体（名称为 Form1）上画一个名称为 Text1 的文本框和一个名称为 Command1 的 命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则 把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是_。 （分数：70.00）A.Private Sub Text1_Change() Command1.Caption = “计算机等级考试“ End SubB.Private Sub Command1_ Click () Caption = “计算机等级考试“ End SubC.Private Sub

7、Form1_ Click () Text1.Caption = “计算机等级考试“ End SubD.Private Sub Command1_ Click () Text1.Text = “计算机等级考试“ End Sub8.下面的属性中，用于自动调整图像框中图形内容的大小的是（ ）。（分数：70.00）A.PictureB.CurentYC.CurrentXD.Stretch9.编写如下两个事件过程： Private Sub Form_KeyDown(KeyCode AS Integer，Shift As Integer) Print Chr(KeyCode) End Sub Privat

8、e Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 在一般情况下(即不按住 Shift 键和锁定大写键时)运行程序，如果按“A“键，则程序输出的结果是（ ）。 （分数：70.00）A.A AB.a AC.A aD.a a10.设有下面的循环： i=1 Do i=i + 3 Print i Loop Until I_ 程序运行后要执行 3 次循环体，则条件中 I 的最小值为（ ）。 （分数：70.00）A.6B.7C.8D.911.下列程序段的执行结果为( )。 a=2 b=0 Select Case a Ca

9、se 1 Select Case b Case 0 Print “ * * 0 * *“ Case 1 Print“ * * 1 * *“ End selec Case 2 Print “ * * 2 * *“ End Select （分数：70.00）A.* * 0 * *B.* * 1 * *C.* * 2 * *D.012.下列语句的输出结果为（ ）。 Print Format$(568936，“000，000000“) （分数：70.00）A.5，68936B.5，689360C.5，6893D.005，68936013.要想在过程调用中返回两个结果，下面的过程定义语句合法的是（ ）。

10、（分数：70.00）A.Sub Submit(ByVal n，ByVal m)B.Sub Submit(n，ByVal m)C.Sub Submit(n，m)D.Sub Submit(ByVal n，m)14.在 Visual Basic 中，被称为对象的是 （ ）。（分数：70.00）A.窗体B.控件C.控件和窗体D.窗体、控件和属性15.阅读程序： Option Base 1 Dim arr() As Integer Private Sub Form_Click() Dim i As Integer, j As Integer ReDim arr(3, 2) For i = 1 To 3

11、For j = 1 To 2 arr(i, j) = i * 2 + j Next j Next i ReDim Preserve arr(3, 4) For j = 3 To 4 arr(3, j) = j + 9 Next j Print arr(3, 2) + arr(3, 4) End Sub 程序运行后，单击窗体，输入结果为_。 （分数：70.00）A.21B.13C.8D.2516.1 个三维数组可以存放 1 个矩阵。在程序开始有语句 Option Base o,则下面定义的数中正好可以存放1 个 4x3 矩阵(即只有 12 个元素)的是【 】（分数：70.00）A.Dim a(-

12、2 To 0,2)As IntegerB.Dim a(3,2)As IntegerC.Dim a(4,3)As IntegerD.Dim a(-1 To-4,-1 To-3)As Integer17.以下叙述中错误的是（ ）。 （分数：70.00）A.在 KeyPress 事件过程中不能识别键盘的按下与释放B.在 KeyPress 事件过程中不能识别回车键C.在 KeyDown 和 KeyUp 事件过程中，将键盘输入的“A”和“a”视作相同的字母D.在 KeyDown 和 KeyUp 事件过程中，从大键盘上输出的“1”和从右侧小键盘上输入的“1”被视作不同的字符18.以下关于 Visual B

13、asic 数据类型的说法，不恰当的是（ ）。（分数：70.00）A.Visual Basic 60 提供的数据类型主要有字符串型和数值型，此外还有字节、货币、对象、日期、布尔和变体数据类型等B.目前 Decimal 数据类型只能在变体类型中使用C.用户不能定义自己的数据类型D.布尔型数据只能取两种值，用两个字节存储19.运行下列程序段后，显示的结果为（ ）。 J1=23 J2=32 If J1J2 Then Print J2 Else Print J1 （分数：70.00）A.23B.32C.55D.233220.阅读下面的程序段： For a=1 To 2 For b=1 To a For

14、C=b To 2 I=I + 1 Next Next Next Print I 执行上面的三重循环后，I 的值为（ ）。 （分数：70.00）A.4B.5C.6D.921.有关程序代码窗口的说法错误的是（ ）。（分数：70.00）A.是同一个数据库中的两个表B.是不同数据库中的两个表C.是两个自由表D.一个数据库表，另一个是自由表22.表达式 32 Mod l4/23 的值是（ ）。（分数：70.00）A.1B.0C.2D.323.下列程序的执行结果为( )。 Private Sub Comrnandl_Click( ) Dim p As Integer, q As Integer p=12：

15、q=20 Call Value(p, q) Print p; q End Sub Private Sub Value(ByVal m As Integer, ByVal n As Integer) m=m * 2: n=n - 5 Print m; n End Sub （分数：70.00）A.*vbp*frm *frxB.*vbp*cls *basC.*bas*ocx *resD.*frm *cls*bas24.有变量定义语句 Dim max，min As String，则可以知道 max 的类型是（ ）。（分数：70.00）A.除了 Click 事件之外，菜单项不可以响应其他事件B.每个菜单

16、项都是一个控件，与其他控件一样也有其属性和事件C.菜单项的索引号必须从 1 开始D.菜单的索引号可以不连续25.设一个工程由两个窗体组成，其名称分别为 Form1 和 Form2，在 Form1 上有一个名称为 Command1 的命令按钮。窗体 Form1 的程序代码如下： Private Sub Command1_Click( ) Dim 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 运行

17、以上程序，正确的结果是（ ）。 （分数：70.00）A.Form1 的 Capdon 属性值为 100B.Form2 的 Caption 属性值为-100C.Form1 的 Caption 属性值为-100D.Form2 的 Capdon 属性值为 10026.在窗体上画一个命令按钮，然后编写下列程序： Private Sub Command1 click( ) Dim a As Single，b As Single a=6:b=2 RC a，b Print a，b End Sub Sub RC(x As Single，y As Single) i=x x=i/y y=i Mod y End

18、Sub 程序运行后，输出的结果为( )。 （分数：70.00）A.如果选项组结合到某个字段，则只有组框架本身结合到该字段，而不是组框架的复选框、选项按钮或切换按钮B.选项组可以设置为表达式或非结合选项组，也可以在自定义对话框中使用非结合选项组来接受用户的输入，但不能根 据输入的内容来执行相应的操作C.选项组是由一个组框、一个复选框、选项按钮或切换按钮和关闭按钮组成的D.以上说法均错27.能够获得一个文本框中被选取文本的内容的属性是（ ）。（分数：70.00）A.n/102B.(n-n10)/100C.n10D.n100/1028.如果在窗体上添加一个通用对话框控件 DBT，那么语句“DBTAc

19、tion=4”的作用是（ ）。（分数：70.00）A.编译器是检查程序错误的第一道防线B.源程序编译过程中没有出现任何错误，执行时就不会发生错误C.Java 的异常处理机制是检查程序错误的第二道防线D.选项 A) 和 C) 正确29.在属性窗口中设置何属性，可以把指定的图形放入当前对象中? （分数：70.00）A.Current YB.PictureC.Current xD.Stretch30.下列程序段，在运行时最早输出的内容是（ ）。 a=2 C=1 AAA： C=C + a If c10 Then Print c GoTo AAA Else Print“10 以内的奇数显示完毕。“ En

20、d If （分数：70.00）A.3B.7C.9D.631.表达式(7/2+1)*(8/2+2)的值为（ ）。（分数：70.00）A.在活动窗体中只能通过拖拉右上角和左下角的小方块来同时在高度和宽度上缩放 控件B.若一个控件上有 4 个黑色的小方块，表明该控件是活动的C.窗体中活动控件只能有一个D.非活动控件在窗体是隐藏的32.Visual Basic 60 分为 3 种版本，不属于这 3 种版本的是（ ）。（分数：70.00）A.标准模块的扩展名是basB.标准模块由程序代码组成C.标准模块只用来定义一些通用的过程D.标准模块不附属于任何一个窗体33.有如下的程序： Private Sub

21、Command1_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 单击命令按钮后，输出结果为（ ）。 （分数：70.00）A.2 2B.4 4C.5 5D

22、.6 634.下列程序段执行结果为（ ）。 x=5 y=-6 If Not x0 Then x=y-3 Else y=x+3 Print x-y；y-x （分数：70.00）A.-3 3B.5 -9C.3 -3D.-6 535.执行下面的程序后，输出的结果是( )。 K=1 For j=1 To 4 X=X - 1: y=0 For k=1 To 4 X=X + 1: y=y + 1 Next k Next j Print X；y （分数：70.00）A.1 4B.13 4C.12 8D.20 636.以下程序的输出结果为( )。 Dim i，c(10)，p(3) k=5 For i=0 To

23、 10 c(i) =i Next i For i=0 To 2 p(i) = c(i * (i + 1) Next i For i=0 To 2 k=k+p(i) * 2 Next i Print k （分数：70.00）A.20B.21C.56D.3237.下面的数组声明中，正确的是（ ）。（分数：70.00）A.Dim pict3,4As IntegerB.Dim pict(3，4)As IntegerC.Dim pict34As IntegerD.Dim pict(3：4)As Integer38.下面说法不正确的是（ ）。（分数：70.00）A.Float.MIN_VALUEB.1.8

24、e-6FC.2.0D.abcd39.已知有下面过程 Private Sub proc1(a As Integer,b As String,Optional x As Boolean) End Sub 正确调用此过程的语句是【 】 （分数：70.00）A.Call proc1(5)B.Call proc1 5,“ abe “,FalseC.proc1(12,“abe“,True)D.proc15,“abe“40.设有声明语句 Dim b(-1 To 10，2 To 9，20)As Integer 则数组 b 中全部元素的个数是（ ）。 （分数：70.00）A.2310B.2016C.1500D.

25、165841.在 Visual Basic 中，要将一个窗体加载到内存进行预处理但不显示，应使用的语句是（ ）。（分数：70.00）A.LoadB.ShowC.HideD.Unload42.有如下程序： Private Sub Commandl_Click( ) a$=“A WORKER IS HERE“ x=Len(a$) For i=1，To x-1 b$=Mid$(a$，i，3) If b$=“WOR“ Then S=S+1 Next Print S End Sub 单击命令按钮，程序运行结果为( )。 （分数：70.00）A.const，break，defaultB.long，void

26、，usingC.virtual，extern，includeD.try，throw，this43.在计时器控件中，Interval 属性的作用是（ ）。（分数：70.00）A.java.exeB.jdb.exeC.javap.exeD.javac.exe44.以下关于 MsgBox 的叙述中，错误的是（ ）。（分数：70.00）A.MsgBox 函数返回一个整数B.通过 MsSBox 函数可以设置信息框中图标和按钮的类型C.MsgBox 语句没有返回值D.MsgBox 函数的第二个参数是一个整数，该参数只能确定对话框中显示的按钮数量45.下列说法有错误的是（ ）。（分数：70.00）A.默认情

27、况下，属性 Visible 的值为 FalseB.如果设置控件的 Visible 属性为 False，则运行时控件会隐藏C.Visible 的值可设为 True 或者 FalseD.设置 Visible 属性同设置 Enabled 属性的功能是相同的，都是使控件处于失效状态46.定义过程的格式中，Static 关键字的作用是指定过程中的局部变量在内存中的存储方式。若使用了Static 关键字，则（ ）。（分数：70.00）A.每次调用此过程，该过程中的局部变量都会被重新初始化B.在本过程中使用到的，在其他过程中定义的变量也为 Statci 型C.每次调用此过程时，该过程中的局部变量的值保持在上

28、一次调用后的值D.定义了该过程中定义的局部变量为“自动“变量47.在窗体上画一个名称为 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 y1=y1+2 End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是（ ）。 （分数：70.00）A.10 5B.12 5C

29、.10 7D.12 748.下列描述中正确的是_。 （分数：70.00）A.软件工程只是解决软件项目的管理问题B.软件工程主要解决软件产品的生产率问题C.软件工程的主要思想是强调在软件开发过程中需要应用工程化原则D.软件工程只是解决软件开发中的技术问题49.Print 方法可以在对象上输出数据，这些对象包括（ ）。（分数：70.00）A.图片框B.状态栏C.标题栏D.代码窗口50.目录列表框的 Path 属性的作用是_。 （分数：70.00）A.显示当前驱动器或指定驱动器上的某目录下的文件名B.显示当前驱动器或指定驱动器上的目录结构C.显示根目录下的文件名D.显示指定路径下的文件51.在窗体上

30、有一个命令按钮，然后编写如下事件过程 Private Sub Command1 _ cickc ( ) a=InputBox(“enter the first integer“) b=InputBox(“enter the second integer“) Print b + a End Sub 程序运行后，单击命令按钮，先后在两个输入框中分别输入“2”和“6”，则输出结果为( )。 （分数：70.00）A.2B.62C.8D.2652.下面叙述不正确的是（ ）。（分数：70.00）A.98B.67xC.x394D.0X29253.下列方法中不能退出 Visual Basic 的是（ ）。（分

31、数：70.00）A.使用 ReDim 语句可以改变数组的维数B.使用 ReDim 语句可以改变数组的类型C.使用 ReDim 语句可以改变数组的每一维的大小D.使用 ReDim 语句可以改变对数组中的所有元素进行初始化54.可以在常量的后面加上类型说明符以显示常量的类型，用来表示字符串常量的是（ ）。（分数：70.00）A.B.#C.!D.55.下列程序段的执行结果为( )。 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

32、 循环是先执行循环体语句，后判断表达式C.在 for 循环中，不能用 break 语句跳出循环体D.for 循环的循环体语句中，可以包含多条语句，但必须用花括号括起来56.关于自定义对话框概念的说明，错误的是（ ）。（分数：70.00）A.建立自定义对话框时必须执行添加窗体的操作B.自定义对话框实际上是 VB 的窗体C.在窗体上还要使用其他控件才能组成自定义对话框D.自定义对话框不一定要有与之对应的事件过程57.下列程序的执行结果为( )。 a=10 b=20 If a b Then a=a + b Else b=b-a Print a，b （分数：70.00）A.，* ，- * ，：，?：B

33、.+，-，new，delete，=C.sizeof，new，delete，+，-D.sizeof，new，delete，+，-58.对下列二叉树,进行中序遍历的结果是【 】 （分数：70.00）A.ACBDFEGB.ACBDFGEC.ABDCGEFD.FCADBEG59.表达式(3/2+1)*(5/2+2)的值是（ ）。（分数：70.00）A.11.25B.3C.6.125D.460.如下事件过程： Function Feed(x) If x 10 Then Feed=X Else Feed=10+x End If End Function Private Sub Command1_Click

34、( ) x=Val(Input Box(“ “，0) pay=Feed(x) Print pay End Sub 运行时在输入框内输入变量 x 的值为 15，输出结果为( )。 （分数：70.00）A.1234B.foo barC.virtualD.34var二、填空题（每空 2 分，共 30 分）(总题数：20，分数：30.00)61.问题处理方案的正确而完整的描述称为 1。（分数：1.50）填空项 1:_62.在窗体上有二个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框。程序运行后,Command1 为禁用(灰色),此时如果在文本框中输入字符,则命令按钮 Comma

35、nd1 变为可用。请填空。 Private Sub Form_Load1 Commandl.Enabled=False End Sub Private Sub Text1 23 Commandl.Enabled=True End Sub （分数：1.50）填空项 1:_63.随机文件使用 Put 语句写数据，使用 1 语句读数据。（分数：1.50）填空项 1:_64.设有如下程序： Option Base 1 Private Sub Command1_Click1 Dim arr1 Dim Min As Integer, i As Integer arr1 = Array(12, 435, 7

36、6, -24, 78, 54, 866, 43) Min = 2 For i = 2 To 8 If arr1(i) 0) 3 (x Mod 400=0)Then Print“是闰年“ Else Print“不是闰年，是普通年份“ End If End Sub （分数：1.50）填空项 1:_计算机二级(VB)53 答案解析(总分：4230.00，做题时间：90 分钟)一、选择题(每小题 2 分，共 70 分) 下列各(总题数：60，分数：4200.00)1.运行下面的程序后，输出的结果为( )。 Cls Dim t(5，5) as Integer For i=1 To 5：t(i，i)=1：

37、Next For i=1 To 5 For j=1 To 5 Print t(i，j)， Next j Print Next I （分数：70.00）A.1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 l 1 1 1 1 1 1B.1 1 l 1 1C.1 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 1 D.1 1 1 1 1解析：程序以矩阵格式输出个二维数组，由程序可知，数组的主对角线上的 元素赋值为 1，其他元素未赋值，初值为 0。所以输出结果如选项 C)所示。2.在窗体上画一个名称为 List1 的列表框,一个名称为

38、 Label1 的标签,列表框中显示若干城市的名称。当单击列表框中的某个城市名时,该城市名从列表框中消失,并在标签中显示出来。下列能正确实现上述操作的程序是【 】（分数：70.00）A.Pivate Sub Listl_Click() Label1.Caption：List1.Listlndex List1.Removeltem List1.Text End SubB.Private Sub Listl_Click() Label1.Name=List1.Listlndex Listl.Removeltem Listl.Text End SubC.Private Sub List1_Click

39、() Labell.Caption=Listl.Text List1.Removeltem Listl.Listlndex End Sub D.Private Sub List1_Click() Label1.Name=List1.Text List1.Removeltem List1.Listlndex End Sub解析：列表框用于显示可供单一或多个选择的列表项,其 Text 属性用于设置或返回列表框中选中列表项的内容,这与 List(ListIndex)的返回值相同；ListIndex 属性用于设置或返回选中列表项的索引号；RemoveItem 方法用于删除指定索引号的列表项 o3.以下

40、关于 Visual Basic 数据类型的说法，不恰当的是（ ）。（分数：70.00）A.char str ；B.char str ；C.String str = new String10； D.String str10；解析：public static double cos(double a)是 Math 类中返回以弧度 a 为单位 的 cos 值的，应先用toRadians( )方法将 42 度转换为弧度值。 4.在 Visual Basic 工程中，可以作为“启动对象”的程序是_。 （分数：70.00）A.任何窗体或标准模块B.任何窗体或过程C.Sub Main 过程或其他任何模块D.S

41、ub Main 过程或任何窗体 解析：Visual Basic 规定 Sub Main 过程是具有启动应用程序功能的启动过程，即除了窗体模块以外，应用 程序还可以由 Sub Main 过程启动。5.在窗体上画一个名称为 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 Select End Sub 程序运行后，如果在输入对话

42、框中输入 2，则窗体上显示的是（ ）。 （分数：70.00）A.分支 1B.分支 2C.Else 分支 D.程序出错解析：6.单击命令按钮时，下列程序的执行结果是( )。 Private Sub Commandl_Click( ) BT 4 End Sub PriVate Sub BT(x As Integer) X=X * 2 + 1 If x 6 Then Call BT(x) End If X=x * 2 Print x； End Sub （分数：70.00）A.A%6B.n-3C.a=4= = blD.a=8 解析：本题考查 C+语言的关键字。要熟练掌握 C+语言中的关键字。注意：in

43、clude 不是 C+语言的关键字。7.在窗体（名称为 Form1）上画一个名称为 Text1 的文本框和一个名称为 Command1 的 命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则 把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是_。 （分数：70.00）A.Private Sub Text1_Change() Command1.Caption = “计算机等级考试“ End Sub B.Private Sub Command1_ Click () Caption = “计算机等级考试“ End SubC.Private Sub For

44、m1_ Click () Text1.Caption = “计算机等级考试“ End SubD.Private Sub Command1_ Click () Text1.Text = “计算机等级考试“ End Sub解析：本题考的是 Text 控件的 Change 事件和 Command 控件的 Caption 属性。Change 事件是在控件内容发 生改变时发生，而 Caption 属性定义的是控件的标题。8.下面的属性中，用于自动调整图像框中图形内容的大小的是（ ）。（分数：70.00）A.PictureB.CurentYC.CurrentXD.Stretch 解析：本题的目的在于考查学

45、生对图形控件的属性设置。Picture 属性用于窗体、图片框和图像框，它可以通过属性窗口设置，用来把图形放到这些对象中，因此选项 A)是不正确的；CurrentX 和 CurrentY 用来设置下一个输出的水平坐标和垂直坐标，因此选项 B)和 C)都不正确；Stretch 属性用于图像框，用于自动调整图像框中图形内容的大小，既可通过属性窗口设置，也可以通过程序代码设置，该属性的取值为True 或 False，当其值为 False 时，将自动放大或缩小图像框中的图形以与图像框的大小相适应，因此选项 D)是正确的。9.编写如下两个事件过程： Private Sub Form_KeyDown(Key

46、Code AS Integer，Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 在一般情况下(即不按住 Shift 键和锁定大写键时)运行程序，如果按“A“键，则程序输出的结果是（ ）。 （分数：70.00）A.A AB.a AC.A a D.a a解析：此题考查了 KeyPress 事件和 KeyDown 事件，下面我们具体说明一下两个事件。 当按键盘上的某个按钮，将发生 KeyPress 事件。该事件

47、可用于窗体、复选框、组合框、命令按钮、列表框，图片框、文本框、滚动条及文件有关的控件。用户自己可以定义 KeyPress 事件过程，一般格式为： Private Sub Form_KeyPress(KeyAscii As Integer) End Sub KeyPress 事件是用来识别按键的 ASCII 码。KeyDown 事件返回的是键盘的直接状态，返回的是键；而 KeyPress 事件返回的是“字符”的 ASCII码。所以要输出字符还得用 Chr 函数。 10.设有下面的循环： i=1 Do i=i + 3 Print i Loop Until I_ 程序运行后要执行 3 次循环体，则条

48、件中 I 的最小值为（ ）。 （分数：70.00）A.6B.7 C.8D.9解析：本题考查的是 DOLoopUntil,结构的循环语句，不管满不满足条件，都要先执行一次。经分析当I7(或 8 或 9)都满足执行三次的条件，但题目要求最小的，所以应该是 7。11.下列程序段的执行结果为( )。 a=2 b=0 Select Case a Case 1 Select Case b Case 0 Print “ * * 0 * *“ Case 1 Print“ * * 1 * *“ End selec Case 2 Print “ * * 2 * *“ End Select （分数：70.00）A.* * 0 *