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

1、 模拟 二级 Visual Basic 语言程序设计模拟 136单项选择题第 1 题： 命令按钮不支持的事件是A. ClickB. DblClickC. GotFocusD. LostFocus 参考答案： B第 2 题：在用菜单编辑器设计菜单时，必须输入的项是 。A. 快捷键B. 标题C. 索引D. 名称参考答案： D 知识点 选项个数 4 试题编号 分数 题目类型 难度 第 3 题： 设有语句：x=InputBox（" 输入数值 " ，"0" ，"示例 "） 程序运行后，如果从键盘上输入数值 10，并按回车键，则下列叙述中正 确的

2、是 。A. 变量 X 的值是数值 10B. 在 InputBox 对话框标题栏中显示的是 "示例 "C. 0 是默认值D. 变量X的值是字符串"10"参考答案： D第 4 题：数据库系统的三级模式不包括（ ）A. 概念模式B. 内模式C. 外模式D. 数据模式参考答案： D数据库系统的三级模式是概念模式、 外模式和内模式， 不包括数据模式， 因此选 择 D）。第 5 题：下列队列的描述中，正确的是A. 队列属于非线性表B. 队列在队尾删除数据C. 队列按“先进后出”进行数据操作D. 队列按“先进先出”进行数据操作参考答案： D队列是只允许在一端删除，在另

3、一端插入的顺序表，允许删除的一端叫做队头， 允许插入的一端叫做队尾。 队列的操作数是依据先进先出的原则进行的。 因此队 列亦称作先进先出的线性表，或后进后出的线性表。第 6 题：在窗体上画一个命令按钮，然后编写如下事件事件过程：Private Sub Command1_Click( )Dim a(5) As StringFor i=1 To 5a(i)=Chr (Asc("A")+(i-1)Next iFor Each b In aPrint b;NextEnd sub程序运行后，单击命令按钮，输出结果是( )。A. ABCDEB. 1 2 3 4 5C. abcdeD.

4、出错信息参考答案： Aasc为取assic码，chr为从assic码计算字符。所以输出 A与其后的5位连续 字母。第 7 题：在窗体上画一个命令按钮和一个标签，其名称分别为Comma nd和Labell，然后编写如下事件过程：Private Sub Command1_Click()Dim arr(10)For i = 6 To 10arr(i) = i - 5Next iLabel1.Caption = arr(0) + arr(arr(10)/arr(6)End Sub运行程序，单击命令按钮，则在标签中显示的是( )。A. 0B. 1C. 2D. 3 参考答案： A程序中使用 For 语句为

5、数组中的部分元素赋值， 没显示赋值的数组元素的值默认 为 0，因此 arr(0) = 0 ，arr(10) = 10-5 = 5 ，arr(6)= 6-5 = 1 ， arr(arr(10)/ arr(6) 即 arr(5 / 1) = arr(5) = 0 ，arr(0)+arr(5) = 0+0 = 0 。因此标签中 显示的是0, A)选项正确。第 8 题：窗体上有两个名称分别为Textl、Text2的文本框，一个名称为Comma nd的命令按钮。设有如下的类型声明：Type Personname As String*8majorAs String*20End Type当单击命令按钮时，将

6、两个文本框中的内容写入一个随机文件 Testdat 中。 设文本框中的数据已正确地赋值给 Person类型的变量p。则能够正确地把数据 写入文件的程序段是 () 。A. Open” c：Test. dat ” ForRandomAs#1 Put#1, 1, p Close#1B. Open” c：Test. dat ” For Random As#1 Get#1 , 1,p Close#1C. Oper” c: Test. dat ” For RandomAs#1 Len=Len(p) Put #1, 1,p Close#1D. Open” c：Test. dat” For RandomAs#

7、1 Len=Len(p) Get#1， 1， p Close#1 参考答案： C考查随机文件读写。以Random打开随机文件的格式为：Open文件名ForRandomAs文件号Len=记录长度，该语句可以进行读写操作，写操作格式为： Put#文件号，记录号,变量名，可以将一个记录变量的内容写到指定的记录位 置处，如果忽略记录号， 则表示在当前记录后的位置插入一条记录。 读操作格式 为： Get# 文件号， 记录号，变量名，如果忽略记录号，则读出当前记录后 面的那一条记录。第 9 题：在窗体上画一个命令按钮，其名称为 Command，1 然后编写如下代码：Option Base 1Private

8、 Sub Comma nd1 Click()Dim aa=Array(1 ， 2， 3， 4)j=1For i=4 To 1 Step _ 1S=S+a(i)*jj=j*10Next I Print SEnd Sub程序运行后，单击命令按钮，其输出结果是 ()。A. 4321B. 1234C. 34D. 12 参考答案： BArray 函数用来为数组元素赋值，即把一个数据集读入某个数组。其格式为：数 组变量名=Array(数组元素值)°Dira a语句没有变量类型名，则a默认为Vatiant 类型，这里它作为数组变量使用。现在已知数组 a 中元素的值依次为 1、2、3、 4，则 Fo

9、r 循环中各变量值变化如下：i=4 时， s=s+a(4)*j=0+4*1=4 ，j=1*10=10i=3 时 ， s=s+a(3)*j=4+3*10=4+30=34 ， j=10*10=100i=2 时 ， s=s+a(2)*j=34+2*100=34+200=234 ， j=100*10=1000i=1时.s=s+a(1)*j=234+1*1000=234+1000=1234。循环结束。s 的值为 1234。 第 10 题：某二叉树中有 n 个度为 2 的结点 , 则该二叉树中的叶子结点数为 。A. n+1B. n-1C. 2nD. n/2参考答案： A第 11 题：表达式 12 / 24

10、 的值是 。A. 1.5B. 2C. 4D. 1参考答案： D运算符除 / 优先级高于整除、所以先计算 / ，再计算、结果是 1，故选 D。 第 12 题：已知： x=-6 ， y=39 则表达式 "yx*Sgn(x)" 的值为 。A. -6.5B. -6C. 6D. 6.5 参考答案： C本题按运算符从高到低优先级计算： ，所以应该是 39-6)*Sgn(-6)=39(- 6)*(-1)=(396=6，故选 C。 知识点 选项个数 4 试题编号 分数 题目类型 难度 第 13 题：某人在窗体模块中定义了如下自定义类型：Type Recnum As Integername

11、As StringEnd Type 但发现程序不能运行，关于这一问题，下面叙述中正确的是 A. 自定义类型不能写在窗体模块中B. 自定义类型只能写在标准模块中C. 在Type Rec前面添加关键字Public就可解决问题D. 在 Type Rec 前面添加关键字 Private 就可解决问题参考答案： D对于用户定义的数据类型，在标准模块中定义时，关键字Type前面可以有Public （默认）或者 Private ；但当在窗体模块中定义时，必须在前面加上关键字 Private，故选择D选项。第 14 题：向顺序文件 Temp.txt 中写入 1、2、3这 3个数。在程序中加入（）可以使程序功能

12、完整。Private Sub Command1_Click（ ）Open "c:Temp.txt",Output As #1For i=0 To 3NextClose #1End SubA. Print 1,Temp.txtB. Get 1,iC. Print 1,iD. Unit 1,i 参考答案： C向顺序文件中写入数据时用 Print 语句。第 15 题：下面关于 KeyPress 事件的叙述中正确的是 A. 按下F1键能够激活KeyPress事件B. 按下字符"A"键和按下"a"键时，KeyPress事件过程的KeyAscii

13、参数的值 是不同的C. 无法在KeyPress事件过程中区分按下的字母键是大写还是小写D. 窗体不响应 KeyPress事件参考答案： B当按下某个键，所触发的是拥有输入焦点的那个控件的 KeyPress 事件，该事件 可用于窗体、复选框、文本框等，故 D项表述错误。按下字符"A"键和按下"a"键 时， KeyPress 事件过程的 KeyAscii 参数的值是不同的，这是因为 KeyPress 事 件带有一个参数，其中一种形式，用来识别按键的ASCII码，当按下"A"键，KeyAseii的值为65,当按下"a"键

14、，KeyAseii的值为97。故B正确，C错误。 按下 F1 键不一定能够激活 KeyPress 事件，如果没有定义 F1 键的 Keypress 事件 过程，就不能激活 KeyPress 事件。第 16 题： 下面的数组声明语句中正确的是（ ）。A. Dim gg1,5 As StringB. Label1.BackStyle=1C. Dim gg（1 To 5） As StringD. Dim gg1:5,1:5 As String参考答案： C声明数组时，数组的默认下界为0,如果希望下界不是0,可以用关键字To规定 下界。如选项C）中，数组gg的索引从1到5。第 17 题：设 x 是整型

15、变量，与函数 IIf（x 0， -x ， x） 有相同结果的代数式是 。A. |x|B. -|x|C. xD. -x参考答案： BIIF函数是条件函数，本题的含义是如果 x0条件成立，即x为正数，就返回 -x ，即 x 的负数，否则返回 x（ 它本身 ） ，两种情况都是返回负数。根据这一点， 选项B符合要求。故B选项正确。第 18 题：如果有一个菜单项，名称为 Menultem,为了运行时使该菜单项失效（变灰）， 应使用的语句为 。A. MenuItem.Enabled=FalseB. MenuItem.Enabled=TrueC. MenuItem.Visible=FalseD. MenuI

16、tem.Visibli=True 参考答案： A 知识点 选项个数 4 试题编号 分数 题目类型 难度 第 19 题：语句 Dim Arr（ 2 To 4）As Integer 所定义的数组的元素个数为 （）。A. 7 个B. 6 个C. 5 个D. 4 个 参考答案： A本题是定义了一个一维数组，下标是-2to 4,所以数组元素的个数是4（-2）+仁7， 故选 A。第 20 题：编写如下程序：Dim x As Integer, y As Integer, z As IntegerPrivate Sub Command1_Click()Dim x As Integerx = 2: y = 3:

17、 z = 10Call S1(y) Print x; y; zEnd SubPublic Sub S1(z As Integer)x = x + yy = y + z End Sub 程序运行后，单击命令按钮 Command，1 输出结果为A. 2 6 10B. 2 3 10C. 5 6 10D. 2 13 10 参考答案： A程序初始，定义了全局变量 x、y、z, x=y=z=O。在Command1_Click()过程中， 又定义了一个局部变量x,它只能在Command1_Click()过程内部使用，给局部变 量x赋值2，对全局变量y、z分别赋值为3、10。在过程si中，x=x+y中的x是

18、全局变量，未调用 s1 过程前，全局变量 x=O， y = 3 ， z = 1O 。调用 s1 ( y) ，全 局变量 x=0+y=0+3=3， y=y+y=3+3=6， z=10 不变。调用结束，回到 Command1_Click() 过程中，输出过程内的局部变量 x，全局变量y和z，局部变量x为2,故输出 结果为 2,6,10 ，故选择 A 项。第 21 题： 有以下通用过程： Function fun(N As Integer)s=0For k=1 To N s=s+k*(k+1) Next k fun=sEnd Function 该过程的功能是 。A. 计算 N！B. 计算 1+2+3

19、+NC. 计算 1 X2X2X 3X 3X-X NX ND. 计算 1 X 2+2X 3+3X 4+NX (N+1)参考答案： D由程序可知 s=1*(1+1)+2*(2+1)+3*(3+1)+4*(4+1)+N*(N+1),因此选项 D正确第 22 题：Print Right("VB Programming",2) 语句的输出结果是 。A. VBB. ProgrammingC. ngD. 2参考答案： CRight 是字符串的右部截取函数，本题中是从字符串 "VB Programming" 右边向左 截取 2 个字符，即为 "ng"

20、 ，故选 C。第 23 题：一个工程中包含两个名称分别为 Forml Form2的窗体、一个名称为Func的标 准模块。假定在Forml Form2和Func中分别建立了自定义过程，其定义格式为：Forml中定义的过程：Private Sub Fun1()End SubForm2中定义的过程:Private Sub Fun2()End SubFunc中定义的过程:Private Sub Fun3()End Sub 在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述 中正确的是 () 。A. 上述3个过程都可以在工程中的任何窗体或模块中被调用B. Fun1和Fun2过程能够在工程中各

21、个窗体或模块中被调用C. 上述3个过程都只能在各自被定义的模块中调用D. 只在Fun3过程能够被工程中各窗体或模块调用 参考答案： C本题考查过程的作用域。在定义过程或者函数的时候选用了 Private 关键字说 明，那么这个过程仅可以在本模块中使用， 标准模块定义的函数或者过程也不例 外。第 24 题：在窗体上画一个名为Comma nd的命令按钮，然后编写如下代码：Option Base 1Private Sub Commandl_Click()Dim aa=Array(1 ， 2， 3， 4)j=1For i=4 To 1 Step-1s=s+a(i)*jj=j*10Next iPrint

22、 sEnd Sub运行上面的程序，其输出结果是 () 。A. 1234B. 12C. 34D. 4321 参考答案： AAtray 函数用来为数组元素赋值，即把一个数据集读入某个数组。其格式为：数 组变量名=Array(数组元素值)。Dim a语句没有变量类型名，则a默认为Variant 类型，这里它作为数组变量使用。现在已知数组 a 中元素的值依次为 1、2、3、 4，则 For 循环中各变量值变化如下：i=4 时， s=s+a(4)*j=0+4*1=4 ，j=1*10=10i=3 时 ， s=s+a(3)*j=4+3*10=4+30=34 ， j=10*10=100i=2 时， s=s+a

23、(2)*j=34+2*100=34+200=234 ， j=100*10=1000i=1 时，s=s+a(1)*j=234+1*1000=234+1000=1234 。循环结束。 s 的值为 1234。第 25 题： 假定有下面的程序： Private Sub Form_Click() Dim N As IntegerN = InputBox(" 输入一个 2位整数")Print (N - Int(N / 10) * 10) * 10 + Int(N / 10)End Sub程序运行后，单击窗体，在输入对话框中输入58，然后单击 "确定" 按钮，输出结果

24、是 A. 58B. 13C. 85D. 40 参考答案： C当输入58后，N=58则Int (x)返回值为不大于自变量x的最大整数，则Int (N/10)返回的值为5,则结果为(58-5*10)*10+5=85。故C选项正确。第 26 题：下面程序运行时,若输入 395,则输出结果是 ()。Private Sub Cmd1_Click()Dim aa=InputBox( ”请输入一个 3 位整数” )Print a Mod 10, a 100, (a Mod 100) 10End SubA. 5 9 3B. 3 5 9C. 5 3 9D. 3 9 5参考答案： CVB中常用算术运算符有8个，其

25、中幕运算符(A)优先级最高；其次是取负(-)、 乘(*)、浮点除(/)、整除()、取模(Mod)、加(+)、减(-)。第 27 题： 下列关于线性链表的叙述中，正确的是 （ ） 。A. 各数据结点的存储空间可以不连续， 但它们的存储顺序与逻辑顺序必须一 致B. 各数据结点的存储顺序与逻辑顺序可以不一致， 但它们的存储空间必须连 续C. 进行插入与删除时，不需要移动表中的元素D .以上说法均不正确参考答案： C一般来说， 和线性表的链式存储结构中， 各数据结点的行储序号是不连续的， 并 且各结点在存储空间中的位置关系与逻辑关系也不一致。 线性链表中数据的插入 和删除都不需要移动表中的元索，只需改

26、变结点的指针域即可。第 28 题：在 Visual Basic 中，要将一个窗体从内存中释放，应使用的语句是（ ）。A. HideB. UnloadC. LoadD. Show 参考答案： BLoad语句格式为：Load窗体名称，其作用是把一个窗体装入内存，执行Load语 句后，可以引用窗体中的控件及其各种属性，但此时窗体没有显示出来， “窗体 名称”是窗体的Name属性；Un load语句格式为：Unload窗体名称，该语句与 Load语句的功能相反，它清除内存中指定的窗体；Show方法格式为：窗体名称.Show 模式，其作用显示一个窗体。如果省略“窗体名称”，则显示当前 窗体。参数“模式”

27、用来确定窗体的状态， 可以取两种值， 即 0和 1（不是 False 和True ）。当“模式”值为1 （或常量vbModal）时，表示窗体是“模态型”窗 体，在这种情况下鼠标只在此窗体内起作用， 不能到其他窗口内操作， 只有关闭 该窗口才能对其他窗口进行操作；当“模式”值为 0（或省略参数“模式”值） 时，表示窗体为“非模态型”窗体，不用关闭该窗体就可以对其他窗体进行操作； Hide 方法格式为： 窗体名称 .Hide ，其作用是使窗体隐藏，即使不在屏幕上显 示，也仍在内存中，因此它与 Unload 语句的作用不同。第 29 题：下列叙述中正确的是（ ）。A. 在栈中，栈中元素随栈底指针与栈

28、顶指针的变化而动态变化B. 在栈中，栈顶指针不变，栈中元素随栈底指针的变化而动态变化C. 在栈中，栈底指针不变，栈中元素随栈顶指针的变化而动态变化D. 在栈中，栈中元素不会随栈底指针与栈顶指针的变化而动态变化 参考答案： C栈是先进后出的数据结构， 在对栈操作的整个过程中， 栈底指针不变， 入栈与出 栈操作均由栈顶指针的变化来完成，因此本题答案 C）。第 30 题：变量，其作用域是窗体内的所有过 变量，其作用域是模块内的所有过 变量，其作用域是本窗体的所有过 变量，其作用域是应用程序的所有以下关于变量作用域的叙述中错误的是 A. 在窗体模块的声明部分声明的 Private 程B. 在标准模块的

29、声明部分声明的 Private 程C. 在窗体模块的声明部分声明的Pubilc程D. 在标准模块的声明部分声明的Pubilc过程参考答案： C在窗体模块中声明的Public变量，其作用域是应用程序的所有过程，故C选项错误。但用时注意：变量名前要加窗体名，否则不能被其他模块的过程引用，只能被本模块内的所有过程引用。第 31 题：以下不能用形状控件画出的图形是A. 矩形B. 圆形C. 椭圆D. 扇形参考答案： D形状控件 （Shape） 提供了显示一些规则图形的简易方法，通过设置形状控件Shape属性值，可显示6种图形：0 矩形、1正方形、2 椭圆、3 圆、4圆 角矩形、 5圆角正方形。第 32

30、题：窗体上有一个名称为 VScroll1 的滚动条，当用鼠标拖动滚动条中的滚动块时， 触发的事件是（ ）。A. ClickB. KeyDownC. DragDropD. Scroll参考答案： D用鼠标拖动滚动条中的滚动块， 说明在滚动条上有拖动、 滚动的动作， 因此触发 滚动条的 Scroll 事件，故选 D）。第 33 题：窗体上有单选钮和列表框控件。单击名称为 Option1 、标题为“国家”的单选 钮，向列表框中添加国家名称，如下图所示。Option1 的单击事件过程如下：Private Sub Optio n1 Click（）Dim arrnit=Array（ “中国”，“日本”，“

31、德国”，“美国”，“澳大利亚”）List1 ClearFor i=0 To Ubound(arr)List1 AddItem arr(i) NextEnd Sub以下关于上述代码的叙述中，正确的是 () 。A. 程序有错，没有声明数组的维数及上下界B. 只有一维数组才能使用 Array 为数组赋初值C. For 循环的终值应为 ListCount-1D. For 循环的初值应为 1参考答案： B程序没有错误。数组变量定义时可以不用声明上下界。 List 控件列表项的索引 从 0 开始。 Array 函数只适用于一组数组，只能对一维数组进行初始化，不能对 二维数组或多维数组进行初始化。因此叙述正

32、确的是B选项。第 34 题：在窗体上画 1 个文本框，名称为 Text1 ，然后编写如下程序：Private Sub Form Load()OpeS C: dat . txt For Output As#1Text1 Text= ”End SubPrivate Sub Text 1_KeyPress(KeyAscii As Integer)If=13 ThenIf UCase(Text1 Text= )ThenClose 1EndElseWrite#1 Text1 TextText1 Text=""End IfEnd IfEnd Sub程序的功能是，在C盘根目录下建立1个名

33、为dat .txt的文件，在文本 框中输入字符，每次 按回车键(回车符的ASCH码是13)都把当前文本框中的内容写入文件 dat . txt 中，并清空文本框中的内容；如果输入“ END，则结束程序，请选择适合空白处的语句( )。A. KeyAscii ”END”B. Text1 . Text ”END”C. Text1 . Text 13D. KeyAscii 13参考答案： A本题考查 KeyPress 事件。在 Text1 中输入字符时， 将触发 Text1 的 KeyPress 事 件，同时可返回一个 KeyAscii参数(输入字符的 ASCH码，区分大小写)。当 KeyAscii 为

34、 13时，表示输入了回车键， 此时判断 Text1 的文本信息， 如果 Text1 的文本为“ END，则关闭文件，退出程序。第 35 题： 下列有语法错误的赋值语句是 。A. y=7=9B. s=m+nC. Text1.Text=10D. m+n=12 参考答案： D赋值语句的格式是：变量名 =表达式。赋值号左边必须是变量名，不能是表达式 或常量。D选项中赋值号左边m+n是表达式，不是变量名，故 D选项错误。 第 36 题： 为了调整图像框的大小以与其中的图形相适应，必须把它的 Stretch 属性设置 为 。A. TrueB. FalseC. 1D. 2 参考答案： B图像框的 Stret

35、hc 属性值为 False 时，将自动放大或缩小图像框中的图形以与图 像框的大小相适应。第 37 题：执行语句 Print Right$(Mid$("ABCDEFG", 2, 5), 3) 后的输出是 A. DEFB. EFGC. FGD. BCDEF参考答案： A第 38 题：某二叉树共有 13 个结点，其中有 4 个度为 1 的结点，则叶子结点数为 A. 5B. 4C. 3D. 2参考答案： A在树结构中，一个节点所拥有的后件个数称为该节点的度。对任何一棵二叉树， 度为 0 的节点(即叶子节点)总是比度为 2 的节点多一个。二叉树中有 13 个节 点，设叶子节点个数为n

36、O,度为1的节点个数为4,设度为2的节点个数为n2。13=n0+4+n2且 n0=n2+1,则 n0=5, n2=4。A选项正确。第 39 题：如果A为整数且|A| > =100,则打印"OK",否则打印"Error"，表示这个条件的 单行格式 If 语句是 。A. If Int(A)=A And Sqr(A)>=100 Then Print "OK" Else Print "Error"B. If Fix(A)=A And Abs(A)>=100 Then Print "OK"

37、; Else Print "Error"C. lf Int(A)=A And (A >=100, A v =-100) Then Print "OK" Else Print"Error"D. If Fix(A)=A And A>=100 And Av=-100 Then Print "OK" Else Print"Error"参考答案： B 知识点 选项个数 4 试题编号 分数 题目类型 难度第 40 题： 以下数组定义语句中,错误的是 ()。A. Static a(10)As In

38、tegerB. Dim C(3, 1 To 4)C. Dim d(-10)D. Dim b(0 To 5 , 1 To 3)As Integer参考答案： C基本操作题第 41 题：在名称为Form1的窗体上添加两个名称分别为 Label1、Label2，标题分别为 “开始位置”、“选中字符数”的标签；添加三个文本框,名称分别为Text1 、 Text2 、 Text3 ,再添加一个名称为 Command、1 标题为“显示选中信 息”的命令按钮。程序运行时,在 Text1 中输入若干字符,并用鼠标选中部分 文本后,单击“显示选中信息”按钮,则把选中的第一个字符的顺序号在 Text2 中显示,选

39、中的字符个数在 Text3 中显示,如图所示。要求：画出所有控件，编写命令按钮的 Click 事件过程。 注意：要求程序中不 得使用变量，事件过程中只能写两条语句，分别用于显示第一个字符的顺序号 和显示选中的字符个数。存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2.vbp ，窗体文件名保存为 sjt2.frm 。参考答案：步骤 1：建立界面，添加相应的控件并设置控件的属性。程序中用到的控件 及属性见表。步骤 2：打开代码编辑窗口，在指定位置编写如下代码。Private SubCommand1_Click()Text3=Text1.SelLength'将Textl 中选中的字符

40、长度显示 Text2=Text1.SelStart将Textl中选中的字符串首字母的顺序号显示End Sub步骤 3：调试并运行程序，关闭程序后按题目要求存盘。通过标签的Name和Caption属性设置标签的名称和标题，通过命令按钮的 Name和Caption属性设置命令按钮的名称和标题。知识点文本框的NameSelLength 和 SelStart 属性，标签的 Name、Caption 属性，命令按钮的 Name、 Caption属性，通过文本框的 Name属性设置文本框的名称。在 Text1中输入若 干字符，并用鼠标选中一些字符后，单击“显示选中信息”按钮，则把 Text1 的 SelS

41、tart 属性值显示在 Text2 中， Text1 的 SelLength 属性值显示在 Text3 中。 选项个数 0 试题编号 分数 题目类型 难度第 42 题：在名称为Forml的窗体上画一个名称为CD1的通用对话框，通过属性窗口设置 CD1的初始路径为C:，默认的文件名为None,标题为“保存等级考试”，如 图 2 所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl . vbp,窗体文件名为 sjt1 frm 。参考答案：【操作步骤】 步骤1:新建一个“标准EXE工程，选择【工程】-【部 件】命令，在弹出的“部件”对话框的列表中选中“ MicroSoft Common D

42、ialog Control6 0”项目，单击“确定”按钮。 步骤 2: 在窗体 Form1 上画一个通 用对话框，其相关属性设置如表 12-7 所示。步骤3:编写Forml的Load事件，加入下面的代码：CD 1. ShowSave步骤 4:按要求将文件保存至考生文件夹中。简单应用题第 43 题：(1)在考生目录下有一个工程文件sjt3 . vbp。窗体上有个钟表图案，其中代表指 针的直线的名称是 Linel ，还有一个名称为 Label1 的标签，和其他一些控件， 如图 2-28(a) 所示。在运行时，若用鼠标左键单击圆的边线，则指针指向鼠标单 击的位置， 如图 228(b) 所示；若用鼠标

43、右键单击圆的边线， 则指针恢复到起始 位置，如图 228(a) 所示；若鼠标左键或右键单击其他位置， 则在标签上显示” 鼠标位置不对”。文件中已经给出了所有控件和程序，但程序不完整，请去掉程 序中的注释符， 把程序中的 ?改为正确的内容。 程序中的 oncircle 函数的作用是 判断鼠标单击的位置是否在圆的边线上 (判断结果略有误差 ) ，是则返回 True， 否则返回 False 。符号常量 x0、y0 是圆心距窗体左上角的距离； 符号常量 radius 是圆的半径。 注意：不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。(2) 在考生目录下有一个工程文件sjt4

44、 . vbp,窗体如图2. 29所示。其功能 是单击”输入数据”按钮，则可输入一个整数n(要求：8< n< 12);单击”计算”按钮，则计算1!+2!+3!+n!,并将计算结果显示在文 本框中：单击”存盘”按钮，则把文本框中的结果保存到考生目录下 的 out4 dat 文件中。文件中已经给出了所有控件和程序，但程序不 完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容，并编 写”计算”按钮的 Click 事件过程。 注意：不得修改已经存在的内 容和控件属性，在结束程序运行之前，必须用”存盘”按钮存储计算 结果，否则无成绩。最后把修改后的文件按原文件名存盘。参考答案：(1)步骤

45、1:打开本题工程文件sjt3 . vbp，在代码编辑窗口，去掉程序中的 注释符”“，将问号”？ ”改为正确的内容。参考代码：Lin el . Y2=YLinel X2=Line1 X1 Linel Y2=y0-7 5 0 Label1 Caption= “鼠标位置不对” 步骤 2：按要求将文件保存至考生文件夹中。 (2) 步骤 1：打开考生文件中的本 题工程文件sjt4 .vbp,在代码编辑窗口，去掉程序中的注释符”“，将问号”？” 改为正确的内容。 参考代码： s=1 f=s 步骤 2：双击”计算”按钮，编写该按 钮的单击事件过程。 参考代码： Private Sub Command2_Cl

46、ick() Dim s As Long， k As Integer 考生应编写的程序 s=0 For k=1 To n s= s + f(k) Next Text1=s End Sub 步骤 3：按 F5 键键运行程序，单击”输入数据”按钮， 通过输入框输入一个812之间的整数，然后单击”计算”按钮计算结果，最后 单击”存盘”按钮保存结果。 步骤 4：按要求将文件保存至考生文件夹中。第 44 题：在考生文件夹下有一个工程文件 sjt4.vbp ，包含了所有控件和部分程序，如图 所示。其功能如下：单击“读数据”按钮，可将考生文件夹下in4.dat文件中的100个整数读到 数组 a 中。单击“计算”按钮，则根据从组合框 Combo仲选中的项目，对数组a 中的数据计算平均值，并将计算结果四舍五入取整后显示在文本框 Text1 中。“读数据”按钮的 Click 事件过程已经给出，请为“计算”按钮编写适 当的事件过程实现上述功能。注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进 行一次计算，且必须用窗体右上角的关闭按钮结束程序，否则无成