2007年9月计算机等级二级VB考前密卷一及答案

出处：Examlink 作者：唐易龙日期：2007年08月30日 13时39分

(25) 下列程序的功能是调用字体对话框来设置文本框字体，单击按钮弹出对话框后，按Cancel键退出对话框，则
Private Sub Command1_Click()
   CommonDialog1.CancelError=True
   CommonDialog1.Flags=cdlCFEffects Or cdlDFBoth
   CommonDialog1.Action=4
   CommonDialog1.ShowFont
   Text1.Font.Name=CommonDialog1.FontName
   Text1.Font.Size=CommonDialog1.FontSize
   Text1.Font.Bold=CommonDialog1.FontBold
   Text1.Font.Italic=CommonDialog1.FontItalic
   Text1.Font.Underline=CommonDialog1.FontUnderline
   Text1.FontStrikethru=CommonDialog1.FontStrikethru
   Text1.ForeColor=CommonDialog1.Color
End Sub
A) Text1的字体不发生变化
B) Text1的字体发生变化
C) Text1的字体和颜色发生变化
D) 程序出错！
答案：D
(26) 要将名为MyForm的窗体显示出来，正确的使用方法是
A) MyForm.Show
B) Show.MyForm
C) MyForm Load
D) MyForm Show
答案：A
(27) 下列程序段的执行结果为
a=5
For k=1 To 0
    a=a + k
Next k
Print k; a
A) -1 6
B) -1 16
C) 1 5
D) 11 21
答案：C
(28) 下列程序段的执行结果为
a=3
b=1
For I=1 To 3
   f=a + b
   a=b
   b=f
   Print f
Next I
A) 4 3 6
B) 4 5 9
C) 6 3 4
D) 7 2 8
答案：B
(29) 下列程序段的执行结果为
I=9
x=5
Do
   I=I + 1
   x=x + 2
Loop Until I >=7
Print "I="; I
Print "x="; x
A) I＝4x＝5
B) I＝7x＝15
C) I＝6x＝8
D) I＝10x＝7
答案：D
(30) 以下程序段运行时从键盘上输入字符"-"，则输出结果为
op$=InputBox("op=")
If op$="+" Then a=a + 2
If op$="-" Then a=a - 2
Print a
A) 2
B) -2
C) 0
D) +2
答案：B
(31) 以下程序段的输出结果为
Dim l, a(10) , p(3)
k=5
For i=0 To 10
     a(i) =i
Next i
For i=0 To 2
     p(i) =a(i  (i + 1) )
Next i
For i=0 To 2
    k=k + p(i)  2
Next i
Print k
A) 20
B) 21
C) 56
D) 32
答案：B
(32) 下列程序的执行结果为
Private Sub Command1_Click()
   Dim x As Integer, y As Integer
   x=12: y=20
   Call Value(x, y)
   Print x; y
End Sub
Private Sub Value(ByVal m As Integer, ByVal n As Integer)
   m=m * 2: n=n - 5
   Print m; n
End Sub
A) 20 12
     20 15
B) 12 20
     12 25
C) 24 15
     12 20
D) 24 12
     12 15
答案：C
(33) 在窗体上画一个命令按钮，然后编写下列程序
Private Sub Command3_Click()
   Tcl 2
   Tcl 3
   Tcl 4
End Sub
Sub Tcl(a As Integer)
   Static x As Integer
   x=x + a
   Print x;
End Sub
程序运行后，单击命令按钮，输出结果为
A) 2 3 4
B) 2 5 9
C) 3 5 4
D) 2 4 3
答案：B