二级VISUAL BASIC真题.docx

1、二级VISUAL BASIC真题2010年3月全国计算机等级考试二级笔试试卷Visual Basic语言程序设计 一、选择题 下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的。 (11)在VB集成环境中要结束一个正在运行的工程，可单击工具栏上的一个按钮，这个按钮是 (12)设x是整型变量，与函数IIf(x0，-x，x)有相同结果的代数式是 A)|x| B)-|x| C)x D)-x (13)设窗体文件中有下面的事件过程： Private Sub Command1_Click() Dim s a%=100 Print a End Sub 其中变量a和s的数据类型分别是 A)整型，整

2、型 B)变体型，变体型 C)整型，变体型 D)变体型，整型 (14)下面哪个属性肯定不是框架控件的属性 A)Text B)Caption C)Left D)Enabled (15)下面不能在信息框中输出“VB”的是 A)MsgBoxVB B)x=MsgBox(VB) C)MsgBox(VB) D)Call MsgBoxVB (16)窗体上有一个名称为Option1的单选按钮数组，程序运行时，当单击某个单选按钮时，会调用下面的事件过程 Private Sub option1_Click(Index As Integer) End Sub 下面关于此过程的参数Index的叙述中正确的是 A)Ind

3、ex为1表示单选按钮被选中，为0表示未选中 B)Index的值可正可负 C)Index的值用来区分哪个单选按钮被选中 D)Index表示数组中单选按钮的数量 (17)设窗体中有一个文本框Text1，若在程序中执行了Text1.SetFocus，则触发 A)Text1的SetFocus事件 B)Text1的GotFocus事件 C)Text1的LostFocus事件 D)窗体的GotFocus事件 (18)VB中有3个键盘事件：KeyPress、KeyDown、KeyUp，若光标在Text1文本框中，则每输入一个字母 A)这3个事件都会触发 B)只触发KeyPress事件 C)只触发KeyDow

4、n、KeyUp事件 D)不触发其中任何一个事件 (19)下面关于标准模块的叙述中错误的是 A)标准模块中可以声明全局变量 B)标准模块中可以包含一个Sub Main过程，但此过程不能被设置为启动过程 C)标准模块中可以包含一些Public过程 D)一个工程中可以含有多个标准模块 (20)设窗体的名称为Form1，标题为Win，则窗体的MouseDown事件过程的过程名是 A)Form1 MouseDown B)Win_MouseDown C)Form_MouseDown D)MouseDown_Form1 (21)下面正确使用动态数组的是 A)Dim art()As Integer B)Dim

5、 arr()As Integer ReDim arr(3，5) ReDim arr(50)As String C)Dim arr() D)Dim arr(50)As Integer ReDim arr(50)As Integer ReDim arr (20) (22)下面是求最大公约数的函数的首部 Function gcd(ByVal x As Integer，ByVal y As Integer)As Integer 若要输出8、12、16这3个数的最大公约数，下面正确的语句是 A)Print gcd(8，12)，gcd(12，16)，gcd(16，8) B)Print gcd(8，12，1

6、6) C)Print gcd(8)，gcd(12)，gcd(16) D)Print gcd(8，gcd(12，16) (23)有下面的程序段，其功能是按图1所示的规律输出数据 Dim a(3，5)As Integer For i=1 To 3 For j=1 To 5 a(i,j)=i+j Print a(i,j)； Next Print Next 若要按图2所示的规律继续输出数据，则接在上述程序段后面的程序段应该是 A)For i=i To 5 B)For i=1 To 3 For i=1 To 3 For j=1 To 5 Print a(j,i)； Print a(j,i)； Next

7、Next Print Print Next Next C)For j=1 To 5 D)For i=1 To 5 For i=1 To 3 For j=1 To 3 Print a(j,1)； Print a(i,j)； Next Next Print Print Next Next (24)窗体上有一个Text1文本框，一个Command1命令按钮，并有以下程序 Private Sub Command1_click() Dim n If Text1.Text123456Then n=n+1 print口令输入错误&n&次 End If End Sub 希望程序运行时得到左图所示的效果，即：输

8、入口令，单击“确认口令”命令按钮，若输入的口令不是“123456”，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果，程序需要修改。下面修改方案中正确的是 A)在Dim n语句的下面添加一句：n=0 B)把Print口令输入错误&n&次改为Print口令输入错误+n+次 C)把Print口令输入错误&n&次改为Print口令输入错误&Str(n)&次 D)把Dim n改为Static n (25)要求当鼠标在图片框P1中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是 A)Private Sub P1_MouseMove(Button As

9、Integer，Shift As Integer，X As Single，Y As Single) Print X，Y End Sub B)Private Sub P1_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) Picture.Print X，Y End Sub C)Private Sub P1_MouseMove(Button As Integer，Shift As Integer，X As Single，Y As Single)P1.Print X，Y End Sub D)Private Su

10、b Form_MouseMove(Button As Integer，Shift As Integer，x As Single，Y As Single) P1.Print X，Y End Sub (26)计算霄的近似值的一个公式是。某人编写下面的程序用此公式计算并输出的近似值： Private Sub Command1_Click() PI=1 Sign=1 n=20000 For k=3 To n sign=-sign PI=PI+sign/k Next k Print PI*4 End sub 运行后发现结果为3.22751，显然，程序需要修改。下面修改方案中正确的是 A)把For k=3

11、 To n改为For k=1 To n B)把n=20000改为n=20000000 C)把For k=3 To n改为For k=3 To n Step2 D)把PI=1改为PI=0 (27)下面程序计算并输出的是 Private Sub Command1_Click() a=10 s=0 Do s=s+a*a*a a=a-1 Loop until a=0 Print s End sub A)13+23+33+103的值 B)10!+3!+2!+1!的值 C)(1+2+3+10)3的值 D)10个103的和 (28)若在窗体模块的声明部分声明了如下自定义类型和数组 Private Type

12、rec Code As Integer Caption As String End Type Dim art(5)As rec 则下面的输出语句中正确的是 A)Print arr.Code(2),arr.Caption(2) B)Print arr.Code,arr.Caption C)Print arr(2).Code,arr(2).Caption D)Print Code(2),Caption(2) (29)设窗体上有一个通用对话框控件CD1，希望在执行下面程序时，打开如图所示的文件对话框 Private Sub Command1_Click() CD1.DialogTitle=打开文件

13、CD1.InitDir=C: CD1.Filter=所有文件|*.*|Word文档|*.doc|文本文件|*.txt CD1.FileName= CD1.Action=1 If CD1.FileName= Then Print未打开文件 Else Print要打开文件&CD1.FileName End If End Sub 但实际显示的对话框中列出了C:下的所有文件和文件夹，“文件类型”一栏中显示的是“所有文件”。下面的修改方案中正确的是 A)把CD1.Action=1改为CD1.Action=2 B)把CD1.Filter=后面字符串中的“所有文件”改为“文本文件” C)在语句CD1.Act

14、ion=1的前面添加:CD1.FilterIndex=3 D)把CD1.FileName= 改为CD1.FileName=文本文件 (30)下面程序运行时，若输入395，则输出结果是 Private sub command1_Click() Dim x% x=InputBox(请输入一个3位整数) Print x Mod 10，x100，(x Mod 100)10 End Sub A)3 9 5 B)5 3 9 C)5 9 3 D)3 5 9 (31)窗体上有List1、List2两个列表框，List1中有若干列表项(见图)，并有下面的程序： Private sub Command1_Clic

15、k() For k=List1.ListCoum-1 To 0 step-1 If List1.Selected(k) Then List2.AddItem List1.List(k) List1.RemoveItem k End If Next k End Sub 程序运行时，按照图示在List1中选中2个列表项，然后单击Command1命令按钮，则产生的结果是 A)在List2中插入了“外语”、“物理”两项 B)在List1中删除了“外语”、“物理”两项 C)同时产生A)和B)的结果 D)把List1中最后1个列表项删除并插入到List2中 (32)设工程中有2个窗体：Form1、Form

16、2，Form1为启动窗体。Form2中有菜单，其结构如表。要求在程序运行时，在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后，隐藏Form1，显示 Form2。若口令为Teacher，所有菜单项都可见；否则看不到成绩录入菜单项。为此，某人在Form1窗体文件中编写如下程序： Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then If Text1.Text=TeacherThen Form2.input.Visible=True Else Form2.input.Visible=F

17、alse End If End If Form1.Hide Form2.Show End Sub 菜单结构标题名称级别成绩管理mark1成绩查询query2成绩录入input2 程序运行时发现刚输入口令时就隐藏了Form1，显示了Form2，程序需要修改。下面修改方案中正确的是 A)把Form1中Text1文本框及相关程序放到Form2窗体中 B)把Form1.Hide、Form2.Show两行移到2个End If之间 C)把If KeyAscii=13 Then改为If KeyAscii=TeacherThen D)把2个Form2.input.Visible中的Form2.删去 (33)某

18、人编写了下面的程序，希望能把Text1文本框中的内容写到out.txt文件中 Private Sub Command1_Click() Openout.txt For Output As PrintText1 Close #2 End sub 调试时发现没有达到目的，为实现上述目的，应做的修改是 A)把PrintText1改为Print#2，Text1 B)把PrintText1改为Print Text1 C)把PrintText1改为WriteText1 D)把所有#2改为#1 (34)窗体上有一个名为Command1的命令按钮，并有下面的程序： Private Sub Command1_C

19、lick() Dim art(5)As Integer For k=1 To 5 arr(k)=k Next k prog arr() For k=1 To 5 Print arr(k)； Next k End sub Sub prog(a() As Integer) n=UBound(a) For i=n To 2 step-1 For j=1 To n-1 if a(j)a(j+1) Then t=a(j):a(j)=a(j+1):a(j+1)=t End If Next j Next i End sub 程序运行时，单击命令按钮后显示的是 A)1 2 3 4 5 B)5 4 3 2 1

20、C)0 1 2 3 4 D)4 3 2 1 0 (35)下面程序运行时，若输入“Visual Basic Programming”，则在窗体上输出的是 Private Sub Command1_Click() Dim count(25)As Integer，ch As String ch=UCase(InputBox(请输入字母字符串) For k=1 To Len(ch) n=Asc(Mid(ch,k,1)-Asc(A) If n=0 Then count(n)=count(n)+1 End If Next k m=count(0) For k=1 To 25 If mcount(k) Th

21、en m=count(k) End If Next k Print m End sub A)0 B)1 C)2 D)3 二、填空题 (6)为了使复选框禁用(即呈现灰色)，应把它的Value属性设置为_。 (7)在窗体上画一个标签、一个计时器和一个命令按钮，其名称分别为Label1、Timer1和Command1，如图1所示。程序运行后，如果单击命令按钮，则标签开始闪烁，每秒钟“欢迎”二字显示、消失各一次，如图2所示。以下是实现上述功能的程序，请填空。 Private Sub Form_Load() Label1.Caption=欢迎 Timer1.Enabled=False Timer1.In

22、terval:_7_ Command1.Caption=开始闪烁 End sub Private Sub Timer1_Timer() Label1.visible= 8 End sub Private Sub Command1_Click() 9 End sub (8)有如下程序： Private Sub Form_Click() n=10 i=0 Do i=i+n n=n-2 Loop while n2 Print i End sub 程序运行后，单击窗体，输出结果为 10 。 (9)在窗体上画一个名称为Command1的命令按钮。然后编写如下程序： Option Base 1 Priva

23、te Sub Command1_click() Dim a(10)As Integer For i=1 To 10 a(i)=1 Next call swap( 11 ) For i=1 To 10 Print a(i)； Next End sub Sub swap(b() As Integer) n=UBound(b) For i=1 To n/2 t=b(i) b(i)=b(n) b(n)=t 12 Next End sub 上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，。请填空。(10)在窗体上画一个文本框，

24、其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程： Private sub Form_Click() Opend:testsmtext1.txtFor Input As #1 Do While Not 13 Line Input #1，aspect $ whole$=whole$+aspect$+Chr$(13)+Chr$(10) Loop Text1.Text=whole$ 14 Opend:testsmtext2.txtFor Output As #1 Print #1，15 Close #1 End sub 运行程序，单击窗体，将把

25、磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。2010年3月笔试试卷 一、选择题 (11) D) 解析 A)选项为重复按钮，可以返回撤消前的编辑状态；B)选项为运行按钮，点击即可运行程序；C)选项为添加工程按钮，点击即可添加新工程，而D)选项就是结束按钮，所以选D。 (12) B) 解析 IIF的语法格式为：II(expr，Truepart，Falsepart)。其中expr为表达式，如果expr为True，则返回Tmepart的值或表达式；如果expr为False，则返回Falsepart的值或表达式。所以

26、，题干中语句意思是：如果一个数大于零，则取其相反值；如果小于零则取本身，所以B)答案正确。 (13) c) 解析 如果在程序中变量没有定义具体的数据类型，则该数据类型为变体型数据类型，因此s为变体型；VB中可以用%定义整型，所以a%=100意思是把100赋值给整型变量a。所以正确答案为C)。 (14) A) 解析 选项A)Text不是框架控件的属性；选项B)Caption是框架的标题属性，用于设置框架上显示的标题名称；选项C)Left是框架的基本属性，表示框架的左上角在窗体中的横向坐标；选项D)Enabled是框架的属性，它决定框架是否允许操作，其默认值为True，如果框架的该属性设置为Fal

27、se，则其标题变成灰色，框架内的所有对象均不可操作。 (15) D) 解析 当Msgbox需要返回一个函数值时需要加上括号，即选项B)的形式，而选项D)通过Call语句调用过程，也需要加上括号，所以D)是错的。而当Msgbox只是一个过程的时候不需要加括号，即A)选项和C)选项都是对的。 (16) C) 解析 控件数组是一组具有相同名称和相同属性的控件，为了区分用户使用了哪一个命令按钮，VB系统自动对控件数组的事件过程增加了Index参数项，该参数值代表被单击控件数组元素的下标值(即Index属性值)，所以正确的答案为C)。 (17) B) 解析 Seffocus是使文本框获得焦点的方法， G

28、offocus是文本框获得焦点事件，表示文本框获得焦点，而不是失去了焦点，更加与窗体无关，故B)正确，A)、C)、D)错误。 (18) A) 解析 在输入字母时这三个键盘事件都会发生。KeyDown事件是当一个键被按下时所产生的事件，而KeyUp事件是松开被压下的键时所产生的事件，而在此过程中 KeyPress事件在按下并抬起的过程中也会发生。只是KeyDown和KeyUp事件返回的是键盘的直接状态。换言之，KeyDown和KeyUp事件返回的是键盘的KeyCode，而KeyPress事件返回的是“字符”的ASCII码。 (19) B) 解析 标准模块的作用主要是简化程序，其中可以包含类型、常

29、数、变量、外部过程和公共过程的公共或模块级声明，所以A)、C)都是正确的。一个工程中可以有多个标准模块以供其他窗体调用，所以D)是正确的。标准模块通常使用Sub Main过程作为窗体启动前的初始化运行，所以B)错误。 (20) C) 解析 对于控件来说，它由对象名、下划线“-”和事件名三部分组成；而对于窗体来说，事件过程名由“Form”、下划线“-”和事件名三部分组成，所以正确的答案为C)。 (21) A) 解析 在定义动态数组时，不能在ReDim语句后面改变数组的数据类型，故答案B)、C)错误。此外，如果要在ReDim中定义数组的长度，那么之前的Dim中则不能注明长度，故答案D)错误。 (2

30、2) D) 解析 函数中的两个参数是求最大公约数的两个数，函数返回值是这两个数的最大公约数。求8、12、16这三个数的最大公约数，可以先求出其中两个数的最大公约数，然后再将返回的数与剩下的数值求最大公约数。选项A)输出的是三个数，它们分别是每两个数的最大公约数，不是三个数的最大公约数；选项B)函数参数为两个，函数调用错误；选项 C)函数参数为两个，函数调用错误，所以正确的答案为D)。 (23) A) 解析 题目的意思是要把原矩阵倒置，可以这样理解：把原矩阵按列取出，然后重新按行排列，所以答案A)正确，答案B)、C)、D)错误。 (24) D) 解析 本题考查的是动态变量与静态变量。原来的程序中无法使变量n的值保持到下一次的使用，只有D)选项符合要求，将n定义为静态局部变量，在程序执行到该对象的声明处时被首次初始化，每次执行后n的值都会被保存到内存中，所以答案D)是正确的；而