国家二级（VB）机试模拟试卷291
选择题
1.在多窗体程序中，为了用Show方法把一个窗体设置为“模态”窗口，应把它的“模式”设置为( )。(B)
A. 0
B. 1
C. True
D. False
解析：在多重窗体程序设计中，Show方法用来显示一个窗体，其格式为：
[窗体名称．]Show[模式]
如果省略“窗体名称”，则显示当前窗体。参数“模式”用来确定窗体的状态，可以取两种值，即0和1(不是False和True)，故C和D选项均错。当“模式”值为1(或常量vbModal)时，表示窗体是“模态型”窗体，当“模式”值为0时，表示窗体为“非模态型”窗体，不用关闭该窗体就可以对其他窗体进行操作，故B选项正确，A选项错误，所以答案为B选项。
2.下面程序运行时，单击窗体后，窗体上显示的结果是( )。
Private Sub Form_ClickO
Dim i As Integer,sum As Long
DimtAs Long
t＝1：sum＝0
For i＝1 To 3
t＝t*i
sum＝sum＋t
Nexti
Print sum
End Sub(B)
A. 3
B. 9
C. 5
D. 6
解析：本题考查累加算法。题目中slim为求和项，初值为0，t为每一项的值，变化规律为后一项是前一项的i倍，i的变化为从1到3，由于t的初值为1，因此求和为1*1＋1*2＋2*3。
3.单击命令按钮时，下列程序段的执行结果为( )。
Private Sub Commandl Click()
Print Ftmcl(24,18)
End Sub
Public Function Func l(m As Integer,n As Integer)As Integer
Do While m＜＞n
Do While m>n：m=m—n：Loop
Do While m<n：n=n-m：Loop
Loop
Funcl=m
End Function(B)
A. 8
B. 6
C. 4
D. 2
解析：本题考查循环程序的分析。在函数Funcl中，程序主要由一条嵌套的循环语句构成，如果mn，外循环内部的第一条内循环为除去m中包含的所有的n的倍数。第二条内循环为除去n中包含的m的倍数。最后计算到m和n相等。
4.窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。窗体文件的程序如下：
Private Type x
a As Integer
b As Integer
End Type
Private Sub Command1_Click()
Dim y As x
y．a=InputBox(\\(D)
A. x是用户定义的类型
B. InputBox函数弹出的对话框中没有提示信息
C. 若输入的是偶数，y．b的值为该偶数的平方
D. Fix(y．a／2)把y．a／2的小数部分四舍五入，转换为整数返回
解析：x是用户定义的一种变量类型，可以使用它来声明变量。InputBox(””)函数的提示信息为””，即为空，因此弹出的对话框中没有提示信息。在程序中通过比较输入的数被2整除和被2除的值是否相等来判定它是否为偶数，如果是那么y．b的值就是y．a的值的平方。Fix函数是取整函数，它会删除小数部分，直接取表达式的整数部分，不四舍五入，因此D选项错。
5.有下列程序，运行后的结果为( )。X=2．4：Y=3：Z=5 Print“A(”；X+Y*Z；“)”(B)
A. A(17)
B. A(17，4)
C. A(18)
D. A(2，4+3*5)
解析：本题考查Print方法的输出。使用Print方法可以在窗体或图片框上输出文本，方法的参数为输出的内容，各个输出项之间可以使用逗号或分号隔开，如果用“，”隔开，则表示输出项分区输出，否则表示连续输出。因此题目中的输出项”A(“；X+Y*Z；”)”之间用分号分隔是连续输出。
6.在窗体上画一个名为Commandl的命令按钮，然后编写以下程序：
Private Sub Commandl—Click()
Dim M(10)As Integer
For k：l To 10
M(k)=12－k
Next k
X＝8
Print M(2+M(x))
End Sub
运行程序，单击命令按钮，在窗体上显示的是( )。(A)
A. 6
B. 5
C. 7
D. 8
解析：从程序中可知，数组M元素M(1)-M(10)的值为11、10、9、8、7、6、5、4、3、2。则M(8)的值为4，M(2+M(8))即M(2+4)，即M(6)、M(6)的值为6。因此窗体上显示为6。
7.假定有如下的Sub过程：
Sub S(x As Single，y As Single)
t=x
x=t／y
y=t Mod y
End Sub
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a As Single，Dim b As Single
a=5：b=4
S a,b
Print a,b
End Sub
程序运行后，单击命令按钮，输出结果为( )。(D)
A. 5 4
B. 1 1
C. 1．25 4
D. 1．25 1
解析：本题考察过程调用知识。在命令按钮单击事件过程中，初始时a=5、b=4；在S过程初始时，x=5、y=4， s过程计算后，x=1．25、y=1，所以S过程返回后a=1．25、b=1。
8.下面函数的功能应该是：删除字符串str中所有与变量ch相同的字符，并返回删除后的结果。例如：若str=“ABCDABCD”，ch=“B”，则函数的返回值为：“ACDACD”
Function delchar(str As String，ch As String)
As String
Dim kAs Integer，temp As String，ret As String
ret=\\(B)
A. 把ret=ret&temp改为ret=temp
B. 把Iftemp=ch Then改为If temp＜＞ch Then
C. 把delchar=ret改为delchar=temp
D. 把ret=\\
解析：题干中给出的函数作用为删除参数字符串中与ch相同的字符，而在给出的程序段中，每次遍历str参数中的每一个字符
本文档预览：3600字符，共17177字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
