二级Visual+Basic语言程序设计模拟216

1、 模拟 二级 Visual Basic 语言程序设计模拟 216单项选择题第 1 题：对长度为 n 的线性表排序，在最坏情况下，比较次数不是 n（n 1）/2 的排序方 法是。A. 快速排序B. 冒泡排序C. 直接插入排序D. 堆排序参考答案： D除了堆排序算法的比较次数是 O（nlog2n） ，其他的都是 n（n 1）/2 。 第 2 题：下列叙述中正确的是 。A .栈是"先进先出 "的线性表B. 队列是"先进后出"的线性表C. 循环队列是非线性结构D. 有序线性表既可以采用顺序存储结构，也可以采用链式存储结构 参考答案： D栈是先进后出的线性表，所以

2、 A错误；队列是先进先出的线性表，所以 B错误; 循环队列是线性结构的线性表，所以C错误。第 3 题：Visual Basic 中的"启动对象"是指启动 Visual Basic 应用程序时，被自动加 载并首先执行的对象。下列关于 Visual Basic" 启动对象 "的描述中，错误的是A. 启动对象可以是指定的标准模块B. 启动对象可以是指定的窗体C. 启动对象可以是Sub Main过程D. 若没有经过设置，则默认的"启动对象"是第一个被创建的窗体 参考答案： AVB中启动对象可以是Sub Main过程或窗体，不能是标准模块。故

3、A选项错误 第 4 题：算法的空间复杂度是指 。A. 算法在执行过程中所需要的计算机存储空间B .算法所处理的数据量C. 算法程序中的语句或指令条数D. 算法在执行过程中所需要的临时工作单元数 参考答案： A算法的空间复杂度是指算法在执行过程中所需要的内存空间。所以选择A。第 5 题：对于循环队列，下列叙述中正确的是 。A. 队头指针是固定不变的B. 队头指针一定大于队尾指针C. 队头指针一定小于队尾指针D. 队头指针可以大于队尾指针，也可以小于队尾指针 参考答案： D循环队列的队头指针与队尾指针都不是固定的， 随着入队与出队操作要进行变化。 因为是循环利用的队列结构所以对头指针有时可能大于队

4、尾指针有时也可能小 于队尾指针。第 6 题：设循环队列为Q(1:m)，其初始状态为front=rear=m。经过一系列入队与退队运 算后， front=20 ， rear=15 。现要在该循环队列中寻找最小值的元素，最坏情况 下需要比较的次数为A. 5B. 6C. m-5D. m-6参考答案： D循环队列是队列的一种顺序存储结构， 用队尾指针 rear 指向队列中的队尾元素， 用排头指针指向排头元素的前一个位置， 因此，从排头指针 front 指向的后一个 位置直到队尾指针 rear 指向的位置之间所有的元素均为队列中的元素，队列初始状态为 front=rear=m，当 front=20 ，r

5、ear=15 时，队列中有 m-20+15=m-5个 元素，比较次数为m-6次，D选项正确。第 7 题： 在面向对象方法中，不属于 " 对象" 基本特点的是 。A. 一致性B. 分类性C. 多态性D. 标识唯一性参考答案： A对象有如下一些基本特点：标识唯一性、分类性、多态性、封装性、模块独立性 好。所以选择 A。第 8 题： 一间宿舍可住多个学生，则实体宿舍和学生之间的联系是 。A. 一对一B. 一对多C. 多对一D. 多对多参考答案： B因为一间宿舍可以住多个学生即多个学生住在一个宿舍中， 但一个学生只能住一 间宿舍，所以实体宿舍和学生之间是一对多的关系。第 9 题：顺

6、序文件在一次打开期间 。A. 只能读，不能写B. 只能写，不能读C. 既可读，又可写D. 或者只读，或者只写参考答案： D顺序文件的读写是由Open语句的打开模式决定。用Output模式打开，则可对顺 序文件进行写操作；用 Input 模式打开，可对顺序文件进行读操作；用 Append 模式打开，可将数据追加到文件尾部。打开一次期间，只能读，或只能写，不能 同时进行读写操作。但随机文件和二进制文件打开以后可以同时进行读写操作。故 D 选项正确。第 10 题： 为了建立随机文件，要求文件的每条记录应包含多个不同数据类型的数据项， 则记录应使用的数据类型是A. 记录类型B. 字符串类型C. 字符串

7、数组D. 变体类型参考答案： AType 语句定义的类型又称记录类型，记录类型文件的每条记录应包含多个不同 数据类型的数据项，故Type语句定义的类型满足题目需求，记录应使用的数据类型是为记录型数据，选项 A 正确。 B、C、D 项不能包含多个不同数据类型的， 故都错误。第 11 题：在VB集成环境中要结束一个正在运行的工程，可单击工具栏上的一个按钮，这 个按钮是 。参考答案：D 第 12 题： 设x是整型变量，与函数llf(x > 0, x, x)有相同结果的代数式是A. |x|B. |x|C. xD. x 参考答案： B llF 函数是条件函数,本题的含义是如果 x> 0 条件

8、成立,即 x 为正数,就返回 x,即x的负数，否则返回x(它本身),两种情况都是返回负数。根据这一点， 选项B符合要求。故B选项正确。第 13 题： 下面有关标准模块的叙述中，错误的是 。A. 标准模块不完全由代码组成，还可以有窗体B. 标准模块中的Private过程不能被工程中的其他模块调用C. 标准模块的文件扩展名为.basD. 标准模块中的全局变量可以被工程中的任何模块引用参考答案： A标准模块中只包含其他窗体模块中公用的一些变量、过程等代码，不包括窗体。 故选项A错误。标准模块中用Private声明的过程属于私有过程，只能被它所在的模块中的其他过程调用，不能被工程中其他模块调用，用 P

9、ublic 声 明的全局变量属于公用变量， 可以被工程中的任何模块引用。 标准模块的文件扩 展名是 .bas 。第 14 题：以下数组定义语句中，错误的是 。A. Static a(10)As lntegerB. Dim c(3 ， 1 To 4)C. Dim d( 10)D. Dim b(0 To 5 ， 1 To 3)As Integer参考答案： C第 15 题： 以下关于过程及过程参数的描述中，错误的是 。A. 调用过程时可以用控件名称作为实际参数B. 用数组作为过程的参数时，使用的是 " 传地址" 方式C. 只有函数过程能够将过程中处理的信息传回到调用的程序中D.

10、 窗体(Form)可以作为过程的参数参考答案： C过程定义时，形参除了可以是整型、单精度、双精度等数据类型外，还可以是控 件或窗口等对象型。 相对应的调用过程时实参也可以是一般数据类型、 控件名或 窗体。故A、D选项正确。调用过程时，如果过程的参数是数组，则实参传给形参的是地址， 这个地址是用数组名表示的一个符号地址， 是数组的起始地 址，形参和实参用的是同一个地址， 在过程中形参的改变会引起实参的改变。 故 B选项正确。在过程调用时，不只是函数过程能把过程中处理的信息传回到调用程序中，Sub过程也可以。Sub过程中形参声明时前面有关键字 ByRef 或省略ByRef(默认)时，实参和形参之间

11、传递的是地址，Sub过程中形参的变化也会引起实参的变化，这样Sub过程中处理的信息也可以传回调用程序中。故 C 选项说法错误。第 16 题：窗体上建立了一个名为Com mon Dial ongl的通用对话框，用下面的语句建立一个 对话框： CommonDialong1Action=2 ，则以下语句与之等价的是 () 。A. CommonDialon 1ShowOpenB. CommonDialog 1ShowSaveC. CommonDialog1ShowColorD. CommonDialog1ShowFont参考答案： B本题考查通用对话框。系统提供了 6 种通用对话框。可以利用其 Act

12、ion 值和提 供的不同方法来区分不同的对话框。 Action 取值可为： 1、 2、 3、 4、 5、 6，对应 的方法分别为 ShowOpen、 ShowSave、 ShowColor、 ShowFont、 ShowPrimer、 ShowHelp。 第 17 题： 若实体A和B是一对多的联系，实体B和C是一对一的联系，则实体 A和C的 联系是A. 一对一B. 一对多C. 多对一D. 多对多参考答案： BA和B为一对多的联系，则对于 A中的每一个实体，B中有多个实体与之联系，而 B 与 C 为一对一联系，则对于 B 中的每一个实体， C 中之多有一个实体与之联 系，则可推出对于A中的每一个

13、实体，C中有多个实体与联系，所以为一对多联 系。第 18 题： 可以产生3050(含30和50)之间的随机整数的表达式是 。A. Int(Rnd*21 30)B. Int(Rnd*20 30)C. Int(Rnd*50 Rnd*30)D. Int(Rnd*30 50)参考答案： A第 19 题： 为了使文本框同时具有垂直和水平滚动条，应先把 MultiLine 属性设置为 True ，然后再把 ScrollBars 属性设置为 。A. 0B. 1C. 2D. 3参考答案： D文档的 ScrollBars 属性值， 0 表示无滚动条， 1 表示只有水平滚动条， 2 表示只 有垂直滚动条，3表示水

14、平和垂直滚动条都有。故 D选项正确。第 20 题：某人编写了下面的程序，希望能把 Text1 文本框中的内容写到 out.txt 文件 中：Private Sub Command1_Click()Open "out.txt" For Output As #2Print "Text1"Close #2End Sub调试时发现没有达到目的，为实现上述目的，应做的修改是A. 把 Print "Text1"B. 把 Print "Text1"改为 Print #2 ， Text1改为 Print Text1C.把 Prin

15、t "Textl"改为 Write "Text1"D.把所有#2改为#1参考答案： A要把文本框中的内容写入文本文件中，首先要用 Open语句的For Output模式 打开文本文件， 并为文件制定一个文件号， 然后， 用 Print 语句将文本写入文本 文件，最后关闭文件。本题中 Click 事件过程中第 1、3条语句正确。第2条语句Print语句的格式是：Print#文件号，要写入的内容，原语句错误。根据格式按选项A修改正确，故A选项正确。第 21 题：以下能够触发文本框Change事件的操作是。A. 文本框失去焦点B. 文本框获得焦点C. 设置文本

16、框的焦点D. 改变文本框的内容 参考答案： D改变文本框中的内容时就会触发它的 Change事件，故选B第 22 题：构成计算机软件的是A. 源代码B. 程序和数据C. 程序和文档D. 程序、数据及相关文档参考答案： D软件指的是计算机系统中与硬件相互依赖的另一部分， 包括程序、 数据和有关的 文档，选 D。第 23 题：在关系A（S, SN D）和B（D, CN NM中，A的主关键字是S，B的主关键字是D,则D是A的A. 外键（码）B. 候选键（码）C. 主键（码）D. 元组参考答案： A第 24 题： 以下说法中正确的是 。A. 当焦点在某个控件上时，按下一个字母键，就会执行该控件的Key

17、Press事 件过程B. 因为窗体不接受焦点，所以窗体不存在自己的KeyPress事件过程C. 若按下的键相同，KeyPress事件过程中的KeyAscii参数与KeyDown事件 过程中的KeyCode参数的值也相同D. 在KeyPress事件过程中，KeyAscii参数可以省略参考答案： AB选项错误原因：窗体有自己的KeyPress事件过程；C选项错误原因：KeyPress 事件过程中的 KeyAscii 参数返回按键的 ASCII 码值，大小写字母返回值不同； 而KeyDown事件过程中的KeyCode参数返回的是按键代码，大小写字母返回值相 同。故按下的键相同时，keyAscii和K

18、eyCode参数不一定返回相同值；D选项错 误原因：KeyPress事件中的KeyAscii参数不能省略。A选项正确。第 25 题：下列关于通用对话框 CommonDialog1的叙述中，错误的是 。A. 只要在"打开"对话框中选择了文件，并单击"打开"按钮，就可以将选中的文件打开B. 使用CommonDialogl.ShowColor方法，可以显示"颜色"对话框C. CancelError 属性用于控制用户单击 "取消"按钮关闭对话框时，是否显示 出错警告D. 在显示"字体"对话框前，必须先设

19、置 CommonDialogl的Flags属性，否则 会出错参考答案： A打开对话框主要用来获取用户指定的文件信息并供程序使用， 对话框本身并不提 供打开文件功能， 这些功能需另外编写代码才能实现， 所以在"打开"对话框中可 选中某文件，但不能打开。故 A 选项错误。第 26 题：在窗体上画一个名称为 Comma nd的命令按钮，并编写如下程序：Function Fun(x)y = 0If x v 10 Theny = xElsey = y + 10End IfFun= yEnd FunctionPrivate Sub Command1_Click() n=lnputBox

20、("请输入一个数") n = Val( n)P= Fun(n)Print PEnd Sub运行程序，单击命令按钮，将显示输入对话框，如果在对话框中输入100，并单击"确定"按钮，则输出结果为 。A. 10B. 100C. 110D. 出错信息参考答案： A程序中输入100，则调用过程为Fun(100)，过程Fun中判断参数是否小于10， 小于10则将此值赋给y，如果不小于10，则变量y值加10,由于100不小于 10，所以 y 值加 10，等于 10，并将此值做为函数值返回。因此输出结果为10。第 27 题：为了使文本框显示滚动条，除要设置 Scroll

21、Bars 外，还必须设置的属性是A. AutoSizeB. AlignmentC. MultilineD. MaxLength 参考答案： C为了使文本框显示滚动条，要将 ScrollBars 的值设置为非 0 的 1、2 或 3，还要 设置 Multiline 属性为 True。第 28 题：假定在图片框 Picture1 中装入了一个图片，在程序运行中，为了清除该图片 ( 注意，清除图片，而不是删除图片框 ) ，应采用的正确方法是 。A. 单击图片框，然后按 Del 键B. 执行语句 Picturel.Picture= LoadPicture("")C. 执行语句 Pi

22、cturel.Picture=""D. 执行语句：Picturel.CIs参考答案： BA选项按Del键不能删除图片；C选项中Pictue属性值不能为空字符串，语法错 误；D选项中CIs方法只能清除图片上显示的内容，不能清除图片。要将图片框 中的图片清除，用B选项方法可以。故B选项正确。第 29 题：以下合法的VB变量名是。A. _xB. 2yC. a#bD. x_1_x参考答案： DVB中变量的命名规则为：必须以字母或汉字开头由字母、 汉字、数字或下划 线组成不能使用VB的保留字。_x不能以下划线开头，不合法；2y不能以数 字开头，不合法；a#b中有#，不合法；D选项符合

23、命名规则，故D选项正确。第 30 题：Print Right("VB Programming" ， 2) 语句的输出结果是 。A. VBB. ProgrammingC. ngD. 2参考答案： CRight是字符串的右部截取函数，本题中是从字符串"VB Programming"右边向左截取 2 个字符，即为 "ng" ，故选 C。第 31 题：设有如下一段程序：Private Sub Command1_Click()Static a As Varianta = Array("one" ，"two"

24、; ，"three" ， "four" ， "five")Print a(3)End Sub 针对上述事件过程，以下叙述中正确的是 。A. 变量声明语句有错，应改为 Static a(5)As VariantB. 变量声明语句有错，应改为 Static aC. 可以正常运行，在窗体上显示 threeD. 可以正常运行，在窗体上显示 four参考答案： D题目中变量 a 被定义为 Variant 类型， Variant 是一种特殊的数据类型， 除了定 长 String 数据及用户定义类型外， 可以包含任何种类的数据。 变量 a 被赋值为

25、 字符串数组，数组默认下标从 0 开始，因此元素 a(3) 的值为 "four" 。第 32 题：求1!+ 2!+ 10!的程序如下：Private Function s(x As Integer)f = 1For i = 1 To xf = f * iNexts = fEnd FunctionPrivate Sub Command1_Click()Dim i As IntegerDim y As LongFor i = 1 To 10NextPrint yEnd Sub 为实现功能要求，程序的横线处应该填入的内容是 。A. Call s(i)B. Call sC. y =

26、 y + s(i)D. y = y + s参考答案： C题目中过程 s 的功能是实现一个数的阶乘，而题目是求 1 到 10的阶乘的和，则 程序空缺处应该是过程s返回值的累加，因此就应该为y二y + s(i)。第 33 题：在窗体上画1个名称为Comma nd的命令按钮，1个名称为Label1的标签，然 后编写如下事件过程：Private Sub Command1_Click()Dim i As Integer, j As IntegerDim s As IntegerFor i = 1 To 5For j = 1 To i s = s + j Next j Next i Label1.Capt

27、ion = s End Sub 程序运行后，单击命令按钮 Command，1 则标签中显示的内容是A. 15B. 20C. 35D. 55 参考答案： C利用多重For循环，对s累加，当i=1时，完成内层For循环后s=1;当i=2时， 完成内层For循环后s=4;依次类推，当i=5时，完成内层For循环后s=35,接 着退出最外层循环。将 s 的值赋值给标签 Label1 的标题，故标签中显示为 35， 选择 C 项。第 34 题：设窗体上有一个文本框 Text1 和一个命令按钮 Command，1 并有以下事件过程： Private Sub Command1_Click()Dim s As

28、 String ， ch As String_ 1111s =For k = 1 To Le n(Textl)ch = Mid(Text1，k， 1)s = ch + sNext kTextl.Text = sEnd Sub程序执行时，在文本框中输入 "Basic" ，然后单击命令按钮，则 Text1 中显示的A. BasicB. cisaBC. BASICD. CISAB 参考答案： BLen函数返回字符串的长度，Mid函数为字符串中部截取函数格式为：Mid(字符串，起始位置，长度 ) 。程序中， For 循环的终值是 Text1 中输入的字符串的长 度，即 "

29、Basic" 的长度，为 5。循环体中 Mid 函数从第一个字符开始依次取出一 个字符， 然后与上次取出的字符连接， 本次取出的字符在前， 上次取出的字符在 后。最终变量 s 中应该是 "cisaB" 。第 35 题：窗体上有名称为Comma nd的命令按钮，名称分别为 List1、List2的列表框， 其中 List1 的 MultiSelect 属性设置为 1(Simple) ，并有如下事件过程：Private Sub Command1_Click()For i = 0 To Listl 丄 istCou nt 1If Listl.Selected(i) =

30、True The nList2.AddItem TextEnd IfNextEnd Sub上述事件过程的功能是将 List1 中被选中的列表项添加到 List2 中。运行程序 时，发现不能达到预期目的，应做修改，下列修改中正确的是 。A. 将 For 循环的终值改为 List1.ListCountB. 将 List1.Selected(i) = True 改为 List1 List(i).Selected = TrueC. 将 List2.Addltem Text改为 List2.Addltem List1.List(i)D. 将 List2.Addltem Text改为 List2.Addl

31、tem List1 丄istlndex参考答案： C题目程序不能将List1中的选中项添加到 List2中，List2.AddItem Text 一行 有误，应该改为 List2.Addltem List1.List(i) 才能使 List1 中每个选中的行添 加到 List2 中。列表框控件的 List 属性保存了列表框中所有值的数组，可以通 过下标访问数组中的值。第 36 题：为计算an的值，某人编写了函数power如下：Private Function power(a As lnteger ， n As lnteger)As LongDim s As Longp = aFor k = 1

32、 To np= p*aNext kpower = pEnd Function在调试时发现是错误的，例如 Print power(5,4) 的输出应该是 625，但实际输 出是 3125。程序需要修改。下面的修改方案中有 3个是正确的，错误的一个是A. 把 For k = 1 To n 改为 For k = 2 To nB. 把 p = p * a 改为 p = p A nC. 把 For k = 1 To n 改为 For k = 1 To n 1D. 把p = a改为p = 1参考答案： B程序中计算an的算法有误，由于已经将a的值赋给了 p,在后边的For循环中 再乘n次a显然就多乘了一次

33、a,因此，要改正此程序或者将 p= a改为p= 1, 或者将 for k = 1 to n 改成 for k = 1 to n 1 或 for k = 2 to n。而 B 选项将 p= p*a改为p= pAn将会导致p= pAn执行n次，得不到正确结果。第 37 题：编写如下程序：Private Sub Command1_Click()Dim m As Integer ， n As Integern = 2For m = 1 To 3Print proc(n) ；Next mEnd SubFunction proc(i As Integer)Dim a As IntegerStatic b

34、As Integera = a+ 1b= b+ 1proc = a * b + iEnd Function程序运行后，单击命令按钮 Command，1 输出结果为A. 333B. 3 4 5C. 3 5 6D. 123参考答案： B第 38 题：下列循环中，可以正常结束的是 。A.i = 10 Do i = i + 1 Loop Un til iv 1B.i = 1 Do i = i + 1 Loop Un til i=10C.i = 10 Do i = i + 1 Loop While i> 1D.i = 10 Do i = i 2 Loop Un til i=1参考答案： B选项A中

35、先执行一次循环体，i的值变成1，测试循环结束条件，i < 1不成立， 循环继续， i 值总是增加，达不到循环结束条件，不能正常结束。选项 B 先执行 循环体，i值加1变成2,再测试循环结束条件i = 10,继续循环，i值再加1, 直到i变为10,循环结束。选项C中i初值为10,先执行一次循环体，使i加 1,然后判断继续循环的条件i > 1是否成立，此后i值不会小于等于，循环会一 直继续下去，不会正常结束。选项 D中i初值为10,每次循环i值减2,因此它 总是偶数，而循环结束的条件是i二1,不可能达到，循环会一直继续下去。第 39 题：窗体的MouseUp事件过程如下：Private

36、 Sub Form_MouseUp(Button As Integer ， Shift As Integer ， X As Single ， Y As Single)End Sub关于以上定义，以下叙述中错误的是 。A. 根据Shift参数，能够确定使用转换键的情况B. 根据 X、Y 参数可以确定触发此事件时鼠标的位置C. Button参数的值是在MouseUp#件发生时，系统自动产生的D. MouseUp是鼠标向上移动时触发的事件参考答案： DMouseUp事件是鼠标松开时触发的事件过程，事件过程的 Button参数值由系统 产生，为被按下的键，Shift参数表示Shift、Ctrl和Alt

37、键的状态，X、丫参数 表示光标的当前位置。第 40 题：设工程文件包含两个窗体文件 Form1.frm 、 Form2.frm 及一个标准模块文件Module1.bas。两个窗体上分别只有一个名称为 Comma nd的命令按钮。Form1 的代码如下：Public x As IntegerPrivate Sub Form_Load()x = 1y = 5End SubPrivate Sub Command1_Click()Form2.ShowEnd SubForm2的代码如下：Private Sub Command1_Click()Print Form1.x ， yEnd SubModule1

38、 的代码如下：Public y As Integer运行以上程序，单击Form1的命令按钮Command1则显示Form2；再单击 Form2上的命令按钮Command1则窗体上显示的是。A. 15B. 0 5C. 0 0D. 程序有错 参考答案： A在 Form1 窗体模块中 x 被定义为全局变量， 这使得它的值可以在其他模块中通过 "过程名 . 变量名 "的形式被引用。而变量 y 在标准模块中被定义为全局变量，则 它可以在工程的每个模块，每个过程中使用。因此程序运行时，x赋值为1, y赋 值为5,它们的值都可以在Form2中引用。基本操作题基本操作题第 41 题：在名称

39、为Form1的窗体上画两个标签(名称分别为Label1和Label2，标题分 别为“姓名”和“年龄”)、两个文本框(名称分别为Text1和Text2，初始内容 均为空)和一个命令按钮(名称为Command1标题为“显示”)。然后编写命令按 钮的 Click 事件过程。程序运行后， 在两个文本框中分别输入姓名和年龄， 然后 单击“显示”按钮，则在窗体上显示两个文本框中的内容，如图所示。要求程序 中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文 件 名 保 存 为 sjt1 vbp， 窗 体 文 件 名 保 存 为 sit1 frm 。（2） 在名称为 Form1 的窗体上画 一个

40、图片框，其名称为 Picture1 ，一个水平滚动条， 名称为 HScroll1 ， 一个命令按钮，名称为 Command，1 标题为“设置属性”， 通过属性窗 口在图片框中装入一个图形 （文件名为 pic1 jpg ，位丁考生目录下 ）， 图片框的高度与图形的高度相同，图片框的宽度任意 （如图 1 所示）。 编写适当的事件过程，程序运行后，如果单击命令按钮，则设置水平 滚动条的属性如下： Min 100 Max 1500LargeChange 100 SmallChange 10之后就可以通过移动滚动条上的滚动块来放大或缩小图片框。 程序运 行后的窗体如图 2 所示。要求程序中不得使用任何变

41、量。 注 意：存盘时必须存放在考生文件夹下，工程文件名为sjt2 . vbp，窗体文件名为 sjt2 frm。参考答案：(1)通过标签的Name和Caption属性设置标签的名称和标题，通过文本框 Name和Text属性设置文本框的名称和文本，通过命令按钮的Name和Caption属性设置命令按钮的名称和标题，“”和“ +”运算符均可将两个表达式作为 字符串连接。在窗体上输出文本内容可使用 Print 方法。 (2) 在设计阶段通过 Picture 属性为图片框指定显示的图片， 通过 Width 属性来设定或修改图片框的 宽度。通过调整滚动条滑块的位置即可改变其 Value属性的值。滚动条的M

42、ax和 Min 属性限定了滚动条所能表示的最大值和最小值， LargeChangc 属性用丁设置 当单击滑块与两侧箭头间区域时 Value 属性值的改变量， SmallChange 属性用于 设置当单击滚动条两侧箭头时 Value 属性值的改变量。 当改变滚动条滑块位置后 将触发其Change事件。简单应用题简单应用题 第 42 题： (1) 在考生文件夹下有一个工程文件 sjt3 vbp。程序的功能是： 1)程序运行时，文件列表框显示当前文件夹中的所有扩展名为 jpg 的文件。 2)双击文件 列表框中某个图片文件名时， 能在图像框中显示出该张图片， 并将该图片文件的 信息(包括路径及文件名

43、)显示到标签中。 3)“下一张”命令按钮的功能：选中并 显示卜次选中文件的下一个图片文件 (如果文件列表框中没有被选中的图片文件 或上次选中的是最后一个文件名， 则从第 1 个图片文件开始 )。在当前程序所在文件夹中，已经提供了所需要的图片文件，运行时窗体如图所示。 在给出的窗体文件中已经有了全部控件， 但程序不完整。 请将事件过程中的注释 符去掉，把 ?改为正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件 中已经存在的 控件和 程序， 最后将程序按原文件 名 存盘。(2) 在考生文件夹下有一个工程文件sjt4 . vbp。程序的功能是：程序运行时，文本框中显示一篇英 文短文，单击“

44、查找”按钮时可输入查找内容，如图 1 所示。若未找到查找内容， 查找结束；若 找到查找内容， 被找到的内容在文本框中以反相显示 (即呈选中状态 ) ， 每找到一次都给出提示， 并在左下角文本框中显示累计的次数， 如图 2所示，若单击提示对话框的“是”按钮，则继续向后查找；若单击 “否”按钮，则终止查找。在给出的窗体文件中已经有了全 部控件，但程序不完整。请将事件过程中的注释符去掉，把?改为正确的内容，以实现上述程序功能。 注意：考生不得修改窗体 文件中已经存在的控件和程序，最后将程序按原文件名存盘。 参考答案：步骤 1：打开本题工程文件。步骤 2：打开代码编辑窗口，去掉程序中的注释符，将问号改

45、为正确的内容。Private Sub Commandl Click() IfFilel . List In dex = 1 Or File1 . List In dex = File1 .ListCou nt 1ThenFile1LiSt In dex=0 E1Se If File1List In dex > =0 The nFile1 ListIndex=File1 ListIndex 1 End If End If ShowInfor End SubPrivate Sub Filel_DblClick() Call ShowInfor EndSubPrivateSubShowInfo

46、r() Labell Caption=App Path+""+File1 FileName Image1 Picture=LoadPicture(Label1 Caption) EndSubPrivateSubForm_Load() Filel . Path=App. Path File1 . Pattern ="* . jpg"End Sub步骤 3：调试并运行程序，关闭程序后按题目要求存盘。(2) 步骤 1：打开本题工程文件。步骤2:打开代码编辑窗口，去掉程序中的注释符，将问号改为正确的内容。 Private Sub Command1_Click() Dim fstr As String，