2004年9月全国计算机等级考试二级VB笔试试卷-在线考试系统

1、【单选题】
设窗体上有一个文本框，名称为text1,程序运行后，要求该文本框只能显示信息，不能接受输入的信息，以下能实现该操作的语句是 [2分]

、 Text1.MaxLength=0

、 Text1.Enabled=Flase

、 Text1.Visible=Flase

、 Text1.Width=0

答案：

2、【单选题】
以下能在窗体Form1的标题栏中显示“VisualBasic窗体"的语句是 [2分]

、 Form1.Name="VisualBasic窗体"

、 Form1.Title="VisualBasic窗体"

、 Form1.Caption="VisualBasic窗体"

、 Form1.Text="VisualBasic窗体”

答案：

3、【单选题】
在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为0和100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如图所示。
　

　
以下能实现上述操作的程序段是 [2分]

、 Private Sub Hscroll1_Change()
Text1.Text=HScroll1.Value
End Sub

、 Private Sub Hscroll1_Click()
Text1.Text=HScroll1.Value
End Sub

、 Private Sub Hscroll1_Change()
Text1.Text=Hscroll1.Caption
End Sub

、 Private Sub Hscroll1_Click()
Text1.Text=Hscroll1.Caption
End Sub

答案：

4、【单选题】
设菜单中有一个菜单项为"Open"。若要为该菜单命令设置访问键，即按下Alt及字母O时，能够执行"Open"命令，则在菜单编辑器中设置“Open"命令的方式是 [2分]

、把Caption属性设置为&Open

、把Caption属性设置为O&pen

、把Name属性设置为&Open

、把Name属性设置为O&pen

答案：

5、【单选题】
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
x=InputBox("Input")
Select Case x
Case 1,3
Print "分支 1"
Case Is >4
Print "分支 2"
Case Else
Print "Else 分支 "
End Select
End Sub
程序运行后，如果在输入对话框中输入2，则窗体上显示的是 [2分]

、分支1

、分支2

、 Else分支

、程序出错

答案：

6、【单选题】
以下关于MsgBox的叙述中，错误的是 [2分]

、 MsgBox函数返回一个整数

、通过MsgBox函数可以设置信息框中图标和按钮的类型

、 MsgBox语句没有返回值

、 MsgBox函数的第二个参数是一个整数,该参数只能确定对话框中显示的按钮数量

答案：

7、【单选题】
在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是 [2分]

、 Timer1.Interval=0.5

、 Timer1.Interval=5

、 Timer.Interval=50

、 Timer1.Interval=500

答案：

8、【单选题】
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Static x As Integer
Cls
For i=1 To 2
y=y+x
x=x+2
Next
Print x,y
End Sub
程序运行后，连续三次单击Command1按钮后，窗体上显示的是 [2分]

、 4 2

、 12 18

、 12 30

、 4 6

答案：

9、【单选题】
以下关于多重窗体程序的叙述中，错误的是 [2分]

、用Hide方法不但可以隐藏窗体,而且能清除内存中的窗体

、在多重窗体程序中,各窗体的菜单是彼此独立的

、在多重窗体程序中,可以根据需要指定启动窗体

、对于多重窗体程序, 需要单独保存每个窗体

答案：

10、【单选题】
以下关于文件的叙述中，错误的是 [2分]

、顺序文件中的记录一个接一个地顺序存放

、随机文件中记录的长度是随机的

、执行打开文件的命令后,自动生成一个文件指针

、 LOF函数返回给文件分配的字节数

答案：

11、【单选题】
以下叙述中错误的是 [2分]

、事件过程是响应特定事件的一段程序

、不同的对象可以具有相同名称的方法

、对象的方法是执行指定操作的过程

、对象事件的名称可以由编程者指定

答案：

12、【单选题】
以下合法的Visual Basic标识符是 [2分]

、 ForLoop

、 Const

、 9abc

、 a#x

答案：

13、【单选题】
当一个复选框被选中时，它的Value属性的值是 [2分]

、 3

、 2

、 1

、 0

答案：

14、【单选题】
表达式 5 Mod 3+3\5*2的值是 [2分]

、 0

、 2

、 4

、 6

答案：

15、【单选题】
设x=4,y=8,z=7，以下表达式的值是
x<y And (Not y>z) Or z<x [2分]

、 1

、 -1

、 True

、 False

答案：

16、【单选题】
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
a$="VisualBasic"
Print String(3,a$)
End Sub
程序运行后，单击命令按钮，在窗体上显示的内容是 [2分]

、 VVV

、 Vis

、 sic

、 11

答案：

17、【单选题】
设有如下程序段：
x=2
For i=1 To 10 Step 2
x=x+i
Next
运行以上程序后，x的值是 [2分]

、 26

、 27

、 38

、 57

答案：

18、【单选题】
以下叙述中错误的是 [2分]

、在KeyPress事件过程中不能识别键盘的按下与释放

、在KeyPress事件过程中不能识别回车键

、在KeyDown和KeyUp事件过程中,将键盘输入的"A"和"a"视作相同的字母

、在KeyDown和KeyUp事件过程中,从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符

答案：

19、【单选题】
执行如下两条语句，窗体上显示的是
a=9.8596
Print Format(a,"$00,00.00") [2分]

、 0,009.86

、 $9.86

、 9.86

、 $0,009.86

答案：

20、【单选题】
设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下：
Private Sub Command1_Click()
Dim a As Integer
a=10
Call g(Form2,a)
End Sub
Private Sub g(f As Form,x As Integer)
y=IIf(x>10,100,-100)
f,Show
f.Caption=y
End Sub
运行以上程序，正确的结果是 [3分]

、 Form1的Caption属性值为100

、 Form2的Caption属性值为-100

、 Form1的Caption属性值为-100

、 Form2的Caption属性值为100

答案：

21、【单选题】
在窗体上画一个名称为Command1的命令按钮，并编写如下程序：
Private Sub Command1_Click()
Dim x As Integer
Static y As Integer
x=10
y=5
Call f1(x,y)
Print x,y
End Sub
Private Sub f1(ByRef x1 As Integer, y1 As Integer)
x1=x1+2
y1=y1+2
End Sub
程序运行后，单击命令按钮，在窗体上显示的内容是 [3分]

、 10 5

、 12 5

、 10 7

、 12 7

答案：

22、【单选题】
设有如下程序
Option Base 1
Private Sub Command1_Click()
Dim a(10) As Integer
Dim n As Integer
n=InputBox("输入数据")
If n<10 Then
Call GetArray(a,n)
End If
End Sub
Private Sub GetArray(b() As Integer,n As Integer)
Dim c(10) As Integer
j=0
For i=1 To n
b(i)=CInt(Rnd()*100)
If b(i)/2=b(i)\2 Then
j=j+1
c(j)=b(i)
End If
Next
Print j
End Sub
以下叙述中错误的是 [3分]

、数组b中的偶数被保存在数组c中

、程序运行结束后,在窗体上显示的是c数组中元素的个数

、 GetArray过程的参数n是按值传送的

、如果输入的数据大于10，则窗体上不显示任何显示

答案：

23、【单选题】
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_Click()
Dim a
a= Array(1,2,3,4,5)
For i=1 To UBound(a)
a(i) = a(i)+i-1
Next
Print a(3)
End Sub
程序运行后，单击命令按钮，则在窗体上显示的内容是 [3分]

、 4

、 5

、 6

、 7

答案：

24、【单选题】
阅读程序
Option Base 1
Private Sub Form_Click()
Dim arr,Sum
Sum = 0
arr = Array(1,3,5,7,9,11,13,15,17,19)
For i=1 To 10
If arr(i)/3 = arr(i)\3 Then
Sum = Sum + arr(i)
End If
Next i
Print Sum
End Sub
程序运行后，单击窗体，输出结果为 [3分]

、 13

、 14

、 27

、 15

答案：

25、【单选题】
在窗体上画一个名称为File1的文件列表框，并编写如下程序：
Private Sub File1_DblClick()
x=Shell(File1.FileName,1)
End Sub
以下关于该程序的叙述中，错误的是 [3分]

、 x没有实际作用，因此可以将该语句写为：Call Shell(File1,FileName,1)

、双击文件列表框中的文件，将触发该事件过程

、要执行的文件的名字通过File1.FileName指定

、 File1中显示的是当前驱动器、当前目录下的文件

答案：

26、【单选题】
在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500，如图所示。
　

　
编写如下程序：
Private Sub Form_Load()
Timer1.Enabled=False
End Sub
Private Sub Command1_Click()
Timer1.Enabled=True
End Sub
Private Sub Command2_Click()
Timer1.Enabled=False
End Sub
Private Sub Timer1_Timer()
If Label1.Left<Width Then
Label1.Left = Label1.Left + 20
Else
Label1.Left=0
End If
End Sub
程序运行后单击“开始”按钮，标签在窗体中移动。
对于这个程序，以下叙述中错误的是 [3分]

、标签的移动方向为自右向左

、单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动

、当标签全部移出窗体后，将从窗体的另一端出现并重新移动

、标签按指定的时间间隔移动

答案：

27、【单选题】
执行以下程序段
a$="abbacddcba"
For i=6 To 2 Step -2
X=Mid(a,i,i)
Y=Left(a,i)
z=Right(a,i)
z=UCase(X & Y & z)
Next i
Print z
输出结果为 [3分]

、 ABA

、 BBABBA

、 ABBABA

、 AABAAB

答案：

28、【单选题】
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click()
Dim a As Variant
a=Array(1,2,3,4,5)
Sum=0
For i=1 To 5
Sum = sum+a(i)
Next i
x=Sum/5
For i =1 To 5
If a(i)>x Then Print a(i);
Next i
End Sub
程序运行后，单击命令按钮，在窗体上显示的内容是 [3分]

、 1 2

、 1 2 3

、 3 4 5

、 4 5

答案：

29、【单选题】
假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。
Model1代码如下：
Public x As Integer
Public y As Integer
Sub S1()
x =1
S2
End Sub
Sub S2()
y=10
Form1.Show
End Show
Model2的代码如下：
Sub Main()
S1
End Sub
其中Sub Main被设置为启动过程。程序运行后，各模块的执行顺序是 [3分]

、 Form1→Model1→Model2

、 Model1→Model2→Form1

、 Model2→Model1→Form1

、 Model2→Form1→Model1

答案：

30、【填空题】
以下程序段的输出结果是。
num =0
While num<=2
num = num + 1
Wend
Print num [每空2分]

答案： ["3"]

31、【填空题】
本程序的功能是利用随机数函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于一次投币，1代表正面，0代表反面。在窗体上有三个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图所示。程序运行后，在文本框Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空。
　

　
Private Sub Command1_Click()
Randomize
n = CInt(Text1.Text)
n1 = 0
n2 = 0
For I = 1 To
r = Int(Rnd*2)
If r = Then
n1 = n1 + 1
Else
n2 = n2 + 1
End If
Next
Text2.Text = n1
Text3.Text = n2
End Sub [每空2分]

答案： ["n","1"]

32、【填空题】
阅读程序：
Option Base 1
Private Sub Form_Click()
Dim a(3) As Integer
Print "输入的数据是：";
For i = 1 To 3
a(i)=InputBox("输入数据")
Print a(i);
Next
Print
If a(1)<a(2) Then
t = a(1)
a(1) = a(2)
a(2) =
End If
If a(2)>a(3) Then
m = a(2)
ElseIf a(1)>a(3) Then
m =
Else
m =
End If
Print "中间数是：";m
End Sub
程序运行后，单击窗体，在输入对话框中分别输入三个整数，程序将输出三个数中的中间数，如图所示。请填空。
　

　 [每空2分]

答案： ["t","a(3)","a(1)"]

33、【填空题】
在窗体上画一个名称为“Command1”，标题为“计算”的命令按钮，再画7个标签，其中5个标签组成名称为Label1的控件数组;名称为Label2的标签用于显示计算结果，其Caption属性的初始值为空；标签Label3的标题为“计算结果”。运行程序时会自动生成5个随机数，分别显示在标签控件数组的各个标签中，如图所示。
　

　
单击“计算”按钮，则将标签数组各元素的值累加，然后计算结果显示在Label2。请填空。
Private Sub Command1_Click()
Sum = 0
For i = 0 To 4
Sum = Sum +
Next
= Sum
End Sub [每空2分]

答案： ["label1(i).caption","label2.caption"]

34、【填空题】
在窗体上画两个名称分别为Command1和Command2、标题分别为“初始化”和“求和”的命令按钮。程序运行后，如果单击“初始化”命令按钮，则对数组a的各元素赋值；如果单击“求和”命令按钮，则求出数组a的各元素之和，并在文本框中显示出来，如图所示。请填空。
　

　
Option Base 1
Dim a(3,2) As Integer
Private Sub Command1_Click()
For i = 1 To 3
For j = 1 To 2
= i + j
Next j
Next i
End Sub
Private Sub Command2_Click()
For j = 1 To 3
For i = 1 To 2
s = s +
Next i
Next j
Text1.Text =
End Sub [每空2分]

答案： ["a(i,j)","a(j,i)","s"]