真题答案

程
B）通用过程
C）添加窗体
D）添加模块
114.Sub过程与Function过程最根本的区别是 D 。
A）Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以
B）Function过程可以有参数，Sub过程不可以
C）两种过程参数的传递方式不同
D）Sub过程的过程名不能返回值，而Function过程能通过过程名返回值
115.单击窗体时，下列程序代码的执行结果是 C 。
Private Sub Invert(ByVal xstr As String,ystr As String)
Dim tempstr As String
Dim I As Integer
I=Len(xstr)
Do While I>=1
Tempstr=tempstr+Mid(xstr,I,1)
I=I-1
Loop
ystr=tempstr
End Sub
Private Sub Form_Click()
Dim s1 As String,s2 As String
S1="abcdef"
Invert s1,s2
Print s2
End Sub
A)abcdef
B)afbecd
C)fedcba
D)defabc
116.下面程序段的运行结果是 B 。
Private Sub Command1_Click()
Dim a(1 To 3,1 To 3),x
x=Array(1,4,7,2,5,8,3,6,9)
For m=1 To 3
For n=1 To 3
a(m,n)=x(m*n-1)
Next n
Next m
Call mat(m,n,a)
End Sub
Private Sub mat(m,n,a)
For m=1 To 3
For n=1 To 3
Print a(m,n);
Next n
Print
Next m
End Sub
A)1 4 7
2 5 8
3 6 9
B)1 4 7
4 2 8
7 8 9
C)3 6 9
2 5 8
1 4 7
D)7 8 9
4 2 8
1 4 7
117.下面过程定义语句中合法的是 D 。
A）Sub Proc(ByVal n())
B)Sub Proc(n)As Integer
C)Function Proc(Proc)
D)Function Proc(ByVal n)
119.下述程序的运行结果是 A 。
Private Sub Command1_Click()
y=10
Print fnt(1+fnt(fnt(fnt(y)))*10)
End Sub
Private Function fnt(X)
fnt=1/x
End Function
A)0.5
B)2
C)909090
D)1.001
119．要想在过程调用后返回两个结果，下面的过程定义语句中合法是 C 。
A）Sub Proc(ByVal n,ByVal m)
B)Sub Proc(n,ByVal m)
C)Sub Proc(n,m)
D）Sub Proc(ByVal n,m)
120．显示打印对话框需要使用CommonDialog控件的方法为 B 。
A）ShowOpen
B）ShowPrinter
C）ShowColor
D）ShowFont
121．使用通用对话框控件打开字体对话框时，如果要在字体对话框中列出可用的屏幕字体和打印字体，必须设置通用对话框控件的Flags属性为 D 。
A）0
B）1
C）2
D）3
122．通用对话框MsgBox作为函数的返回值一般为 A 。
A）Integer
B）String
C）Variant
D）Long

123．对话框Filter属性为“Text(*.txt)|*.txt|Pictures(*.bmp,*ico)|*.bmp;*ico”,若在使用ShowOpen方法时默认过滤器为*.bmp;*.ico，需将对话框的FilterIndex属性设置为 B 。
A）1
B）2
C）（*.bmp;*.ico）|*.bmp;*.ico
D）*.bmp;*.ico
124．下列属性属于颜色对话框的是 D 。
A）FileName
B）Min
C）FontSize
D）Color
125．要使用打印对话框，应首先在“部件”对话框中选择 B 控件。
A）MsgBox
B）MicroSoft Comm
on Dialog 6.0
C）MicroSoft Comm Control 6.0
D）InputBox
126．MsgBox函数的Buttons参数的表达错误的是 B 。
A）一个Visual Basic的内部常量
B）一个用加号连接着3个Visual Basic内部