国家二级（VB）机试模拟试卷211
选择题
1.设有关键码序列(66，13，51，76，81，26，57，69，23)，要按关键码值递增的次序排序，若采用快速排序手法，并以第…个元素为划分的基准，那么第一趟划分后的结果为( )。(A)
A. 23，13，51，57，66，26，81，69，76
B. 13，23，26，51，57，66，81，76，69
C. 23，13，51，57，26，66，81，69，76
D. 23，13，51，57，81，26，66，69，76
解析：快速排序是起泡排序的改进。在快速排序中。任取一个记录，以它为基准用交换的方法将所有的记录分成两部分，关键码值比它小的在一部分，关键码值比它大的在另一部分，再分别对两个部分实施上述过程，一直重复到排序完成。
2.下列程序段的执行结果为( )。
a=6
For k=1 To 0
a=a+k
Next k
Print k：a(C)
A. -1 6
B. -1 16
C. 1 6
D. 11 21
解析：本题考查循环的分析。For型循环默认的循环变量的步长为1，由于循环变量的初值大于终值，因此循环体一次也不执行。
3.下面程序运行时，若输入395，则输出结果是( )。
Private Sub Cmd1_Click()
Dim a％
a=InputBox(\\(C)
A. 5 9 3
B. 3 5 9
C. 5 3 9
D. 3 9 5
解析：VB中常用算术运算符有8个，其中幂运算符(＾)优先级最高；其次是取负(-)、乘(*)、浮点除(／)、整除(＼)、取模(Mod)、加(+)、减(-)。
4.在窗体上画一个名称为Text1的文本框，然后画一个名称为Hscroll1的滚动条，其Min和Max属性分别为0和1 000。程序运行后，如果移动滑块，则在文本框中显示滚动条的当前值。以下能实现上述操作的程序是( )。(A)
A. Private Sub Hscroll1_Change()
Text1．Text=HScroll1．Value
End Sub
B. Private Sub Hscroll1_Click()
Text1．Text=HScroll1．Value
End Sub
C. Private Sub Hscroll1_Change()
Text1．Text=Hscroll1．Caption
End Sub
D. Private Sub Hscroll1_Click()
Text1．Text=Hscroll1．Caption
End Sub
解析：本题考查滚动条的事件和属性。滚动条上滑块的位置决定了其Value属性的值，当滑块的位置发生改变时，将触发滚动条的Change事件。因此，要想在移动滑块时，在文本框中显示滚动条的当前值，可通过在滚动条的Change事件中将滚动条的Value属性值赋值给文本框的Text属性来实现。
5.某人编写了如下程序，用来求10个整数(整数从键盘输入)中的最大值：
Private Sub Command1_Click()
Dim a(10)As Integer， max As Integer
For k＝1 To 10
a(k)＝InputBox(\\(D)
A. 把If a(k)>max Then改为If a(k)<max Then
B. 把max＝a(k)改为a(k)＝max
C. 把第2个循环语句For k＝1 To 10改为For k＝2 To 10
D. 把max＝0改为max＝a(10)
解析：程序中把变量max的初始值设置为0，没有考虑到负数的情况。应该把它的初始值设置为数组中的一个元素的值，然后让数组中的各个元素与这个值比较，如果比它大，就替换变量max的值，这样才能得到数组中的最大值。因此要修改max＝0这一行。
6.下面的数写成普通十进制数是( )。
2．65358979335278D-6(B)
A. 0．0000265358979335278
B. 0．00000265358979335278
C. 0．000265358979335278
D. 0．000000265358979335278
解析：浮点数也称为实型数或实数，是带有小数部分的数值。它由3部分组成：符号、指数及尾数。例如123．45678E3或123．45678E+3的双精度数，这其中的“123．45678”部分为尾数部分、“E3”为指数部分(E为符弓，3为指数)，相当于123．45678乘以10的3次幂。本题中是“D-6”，那么应该足乘以10的负6次幂，所以选项B正确。
7.软件按功能可以分为：应用软件、系统软件和支撑软件(或工具软件)。下面属于应用软件的是( )。(C)
A. 编译程序
B. 操作系统
C. 教务管理系统
D. 汇编程序
解析：编译软件、操作系统、汇编程序都属于系统软件，只有C教务管理系统才是应用软件。
8.某人编写了如下程序，用来求10个整数(整数从键盘输入)中的最大值：
Private Sub Commandl＿Click()
Dim a(10)As Integer，max As Integer
For k=l To 10
a(k)=InputBox(“输入一个整数”)
Next k
max=0
For k=l To 10
If a(k)>max Then
max=a(k)
End If
Next k
Print max
End Sub
运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的，程序需要修改下面。的修改中可以得到正确运行结果的是( )。(D)
A. 把If a(k)>max Then改为If a(k)<max Then
B. 把max=a(k)改为a(k)=max
C. 把第2个循环语句For k=l To 10改为For k=2 To 10
D. 把max=0改为max：a(10)
解析：程序中把变量max的初始值设置为0，没有考虑到负数的情况。应该把它的初始值设置为数组中的一个元素的值，然后让数组中的各个元素与这个值比较，如果比它大，就替换变量max的值，这样才能得到数组中的最大值。因此要修改max=0这一行。
9.以下叙述中错误的是( )。(D)
A. 在通用过程中，多个形式参数之间可以用逗号作为分隔符
B. 在Print方法中，多个输出项之间可以用逗号作为分隔符
C. 在Dim语句中，所定义的多个变量可以用逗号作为分隔符
D. 当一行中有多个语句时，可以用逗号作为分隔
本文档预览：3600字符，共18407字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
