55.在利用菜单编辑器设计菜单时，为了把组合键\Alt＋X\设置为\退出(X)\菜单项的访问键，可以将该菜单项的标题设置为( )。 A) 退出(X&) B) 退出(&X) C) 退出(X#) D) 退出(#X)
56.窗体上有一个名称为Option1的单选按钮数组，程序运行时，当单击某个单选按钮时，会调用下面的事件过程：
Private Sub Option1_Click(Index As Integer) ? End Sub
下面关于此过程的参数 Index 的叙述中正确的是( )。 A) Index为1表示单选按钮被选中，为0表示未选中 B) Index 的值可正可负
C) Index 的值用来区分哪个单选按钮被选中 D) Index表示数组中单选按钮的数量
57.设窗体中有一个文本框Text1，若在程序中执行了 Text1.SetFocus，则触发( )。 A) Text1的SetFocus事件 B) Text1的GotFocus事件 C) Text1的LostFocus事件 D) 窗体的GotFocus事件
58.窗体上有两个水平滚动条HV、HT，还有一个文本框Text1和一个标题为\计算\的命令按钮Command1，并编写了以下程
序：
Private Sub Command1_Click() Call calc(HV.Value，HT.Value) End Sub
Public Sub calc(x As Integer，y As Integer) Text1.Text＝x*y End Sub
运行程序，单击\计算\按钮，可根据速度与时间计算出距离，并显示计算结果。 对以上程序，下列叙述中正确的是( )。 A) 过程调用语句不对，应为calc(HV， HT)
B) 过程定义语句的形式参数不对，应为Sub calc(x As Control， y As Control) C) 计算结果在文本框中显示出来 D) 程序不能正确运行
59.某人编写了如下程序，用来求10个整数(整数从键盘输入)中的最大值：
Private Sub Command1_Click()
Dim a(10)As Integer， max As Integer For k＝1 To 10
a(k)＝InputBox(\输入一个整数\ Next k max＝0
For k＝1 To 10
If a(k)>max Then max＝a(k) End If Next k Print max End Sub
运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的，程序需要修改。下面的修改中可以得到正确运行结果的是( )。
A) 把If a(k)>max Then改为If a(k) C) 把第2个循环语句For k＝1 To 10改为For k＝2 To 10 D) 把max＝0改为max＝a(10) 60.某人编写了如下程序： For I=100 To 400 Step 3 Print I , Next I 请问：本程序的循环次数为： A) 100 B) 101 C) 99 D) 102 61. 以下关于窗体的叙述中错误的是( )。 A) 窗体的Hide方法将窗体隐藏并卸载 B) 窗体的Show方法可以将窗体装入内存并显示该窗体 C) 若工程中包含多个窗体，则可指定一个为启动窗体 D) 窗体的Load事件在加载窗体时发生 62. .如果在窗体模块中所有程序代码的前面有语句：Dim x ，则x是( )。 A) 全局变量 B) 局部变量 C) 静态变量 D) 窗体级变量 63. .计算下面分段函数的正确语句是( )。 A) y＝IIf(x>0， x＋1， IIf(x<0， x－1， 0)) B) y＝IIf(x＝0， 0， IIf(x>0， x－1， x＋1)) C) y＝IIf(x>0， x＋1， IIf(x<0， 0， x－1)) D) y＝IIf(x＝0， 0， x－1， x＋1) 64. 设工程中有Form1、Form2两个窗体，要求单击Form2上的Command1命令按钮，Form2就可以从屏幕上消失，下面的事 件过程中不能实现此功能的是( )。 A) Private Sub Command1_Click() Form2.Hide End Sub B) Private Sub Command1_Click() Unload Me End Sub C) Private Sub Command1_Click() Form2.Unload End Sub D) Private Sub Command1_Click() Me.Hide End Sub 65. 窗体上有一个Text1文本框，一个Command1命令按钮，并有以下程序： Private Sub command1_Click() Dim n If Text1.Text<>\ n＝n＋1 Print \口令输入错误\次\ End If End Sub 希望程序运行时得到左图所示的效果，即：输入口令，单击\确认口令\命令按钮，若输入的口令不是\123456\，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果，程序需要修改。下面修改方案中正确的是( )。 A) 在Dim n语句的下面添加一句：n＝0 B) 把 Print \口令输入错误\次\改为 Print \口令输入错误\＋n＋\次\ C) 把 Print \口令输入错误\次\改为 Print \口令输入错误\次\ D) 把Dim n 改为 Static n 66. 能够用于标识对象名称的属性是( )。 A) Name B) Caption C) Value D) Text 67. 关于水平滚动条，如下叙述中错误的是( )。 A) 当滚动框的位置改变时，触发Change事件 B) 当拖动滚动条中的滚动框时，触发Scroll事件 C) LargeChange属性是滚动条的最大值 D) Value是滚动条中滚动框的当前值 68. 当文本框中的内容发生改变时所触发的事件是( )。 A) KeyUp B) Change C) LostFocus D) GotFocus 69. 定时器的Interval属性的值是一个整数，它表示的是( )。 A) 毫秒数 B) 秒数 C) 分钟数 D) 小时数 70. 阅读程序： Private Sub Form_Click() a＝0 For j＝1 To 15 a＝a＋j Mod 3 Next j Print a End Sub 程序运行后，单击窗体，输出结果是( A) 105 B) 1 C) 120 D) 15 )。 第二题：编程 1.用分支结构写出实现下列功能的语句： （1） 2?x?0 ?sinx?x?1y?? ?cosx?x3?3xx?0? If x<>0 Then y=sin(x)+sqr(x*x+1) Else y=cos(x)－x^3+3*x End If If x<>0 Then y=sin(x)+sqr(x*x+1) else y=cos(x)-x^3+3*x (2) 三个数x、y、z，比较它们的大小，按从小到大的顺序排列 x,y,z if x>y then t=x x=y y=t end if if x>z then t=x x=z z=t end if if y>z then t=y y=z z=t end if print x,y,z (3) 根据系数a、b、c的值,判断方程 有无实根并输出根值。 2ax?bx?Private Sub Command1_Click() Dim a, b, c, d, e1, e2 a = Val(text1.Text) b = Val(text2.Text) c = Val(text3.Text) d = b ^ 2 - 4 * a * c If d < 0 Then Print \该方程无解\ElseIf d = 0 Then e1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / 2 * a Print \该方程的解为x1=x2=\ c?0