精品文档
2004年9月
全国计算机等级考试二级笔试试卷 公共基础知识和Visual Basic语言程序设计
(考试时间90分钟,满分100分)
一、选择题((1)~(20)每小题2分,(21)~(30)每小题3分,共70分) 下列各题A)、B)、C)、D)四个选项中,只有一个选项是正确的。请将正确选项涂写在答题卡相应位置上,答在试卷上不得分。
(1)设窗体上有一个文本框,名称为Text1,程序运行后,要求该文本框不能接受键盘输入,但能输出信息,以下属性设置正确的是: A)text1.maxlength=0 B)text1.enabled=false C)text1.visible=flase D)text1.width=0
(2)以下能在窗体Form1的标题栏中显示“VisualBasic窗体”的语句是 A)Form1.Name=\窗体\ B)Form1.Title=\窗体\ C)Form1.Caption=\窗体\ D)Form1.Text=\窗体”
(3)在窗体上画一个名称为Text1的文本框,然后画一个名称为HScroll1的滚动条,其Min和Max属性分别为0和100。程序运行后,如果移动滚动框,则在文本框中显示滚动条的当前值,如图所示。
以下能实现上述操作的程序段是 A)Private Sub HScroll_Change()
Text1.Text=HScroll1.Value End Sub
B)Private Sub HScroll_Click()
Text1.Text=HScroll1.Value End Sub
C)Private Sub HScroll_Change()
Text1.Text=HScroll.Caption End Sub
D)Private Sub HScroll_Click()
Text1.Text=HScroll.Caption End Sub
(4)设菜单中有一个菜单项为“Open”。若要为该菜单命令设计访问键,即按下Alt及字母O时,能够执行“Open”命令,则在菜单编辑器中设置“Open”命令的方式是 A)把Caption属性设置为&Open 精品文档
精品文档
B)把Caption属性设置为O&pen C)把Name属性设置为&Open D)把Name属性设置为O&pen
(5)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() x=InputBox(\) Select Case x Case 1,3
Print \分支1\ Case Is >4
Print \分支2\ Case Else
Print \分支\ End Select End Sub
程序运行后,如果在输入对话框中输入2,则窗体上显示的是 A)分支1 B)分支2 C)Else分支 D)程序出错
(6)以下关于MsgBox的叙述中,错误的是 A)MsgBox函数返回一个整数
B)通过MsgBox函数可以设置信息框中图标和按钮的类型 C)MsgBox语句没有返回值
D)MsgBox函数的第一个参数是一个整数,该参数只能确定对话框中显示的按钮数量
(7)在窗体上画一个名称为Timer1的计时器控件,要求每隔0.5秒发生一次计时器事件,则以下正确的属性设置语句是 A)Timer1.Interval=0.5 B)Timer1.Interval=5 C)Timer1.Interval=50 D)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按钮后,窗体上显示的是 A)4 2 B)12 18 C)12 30 D)4 6
(9)以下关于多重窗体程序的叙述中,错误的是 精品文档
精品文档
A)用Hide方法不但可以隐藏窗体,而且能清除内存中的窗体 B)在多重窗体程序中,各窗体的菜单是彼此独立的 C)在多重窗体程序中,可以根据需要指定启动窗体 D)对于多重窗体程序中,需要单独保存每个窗体
(10)以下关于文件的叙述中,错误的是 A)顺序文件中的记录一个接一个地顺序存放 B)随机文件中记录的长度是随机的
C)执行打开文件的命令后,自动生成一个文件指针 D)LOF函数返回给文件分配的字节数
(11)以下叙述中错误的是 A)事件过程是响应特定事件的一段程序 B)不同的对象可以具有相同名称的方法 C)对象的方法是执行指定操作的过程 D)对象事件的名称可以由编程者指定
(12)以下合法的Visual Basic标识符是 A)ForLoop B)Const C)9abc D)a#x
(13)当一个复选框被选中时,它的Value属性的值是 A)3 B)2 C)1 D)0
(14)表达式 5 Mod 3+3\\5*2的值是 A)0 B)2 C)4 D)6
(15)设x=4,y=8,z=7,以下表达式的值是 x (16)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() a$=\ Print String(3,a$) End Sub 程序运行后,单击命令按钮,在窗体上显示的内容是 A)VVV B)Vis C)sic D)11 (17)设有如下程序段: x=2 For i=1 To 10 Step 2 x=x+i Next 运行以上程序后,x的值是 精品文档 精品文档 A)26 B)27 C)38 D)57 (18)以下叙述中错误的是 A)在KeyPress事件过程中不能识别键盘的按下与释放 B)在KeyPress事件过程中不能识别回车键 C)在KeyDown和KeyUp事件过程中,将键盘输入的\和\视作相同的字母 D)在KeyDown和KeyUp事件过程中,从大键盘上输入的\和从右侧小键盘上输入的\被视作不同的字符 (19)执行如下两条语句,窗体上显示的是 a=9.8596 Print Format(a,\) A)0,009.86 B)$9.86 C)9.86 D)$0,009.86 (20)在窗体上画一个名称为CommandDialog1的通用对话框,一个名称为Command1的命令按钮。然后编写如下事件过程: Private Sub Command1_Click() CommonDialog1.FileName =\ CommonDialog1.Filter=\(*.Doc)|*.Doc|(*.Txt)|*.Txt\ CommonDialog1.FilterIndex=2 CommonDialog1.DialogTitle=\ CommonDialog1.Action=1 End Sub 对于这个程序,以下叙述中错误的是 A)该对话框被设置为“打开”对话框 B)在该对话框中指定的默认文件名为空 C)该对话框的标题为VBTest D)在该对话框中指定的默认文件类型为文本文件(*.Txt) (21)设一个工程由两个窗体组成,其名称分别为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 运行以上程序,正确的结果是 A)Form1的Caption属性值为100 B)Form2的Caption属性值为-100 C)Form1的Caption属性值为-100 D)Form2的Caption属性值为100 精品文档 精品文档 (22)在窗体上画一个名称为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 程序运行后,单击命令按钮,在窗体上显示的内容是 A)10 5 B)12 5 C)10 7 D)12 7 (23)设有如下程序 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 以下叙述中错误的是 A)数组b中的偶数被保存在数组c中 B)程序运行结束后,在窗体上显示的是c数组中元素的个数 C)GetArray过程的参数n是按值传送的 D)如果输入的数据大于10,则窗体上不显示任何信息 精品文档