二级VISUAL+BASIC机试真题2011年09月

2011年9月全国计算机等级考试二级Visual Basic

上机真题

1．基本操作

请根据以下各个小题的要求设计Visual Basic应用程序(包括界面和代码)。

(1)在名称为Form1的窗体上画一个名称为L1的标签，标题为“请确认”；再画两个命令按钮，名称分别为C1、C2，标题分别为“是”、“否”，高均为300、宽均为800。如下图所示。

请在属性窗口中设置适当属性满足以下要求：

1)窗体标题为“确认”，窗体标题栏上不显示最大化和最小化按钮；

2)在任何情况下，按Enter键都相当于单击“是”按钮；按Esc键都相当于单击“否”按钮。

*注意：

存盘时必须存放在考生文件夹下，工程文件名为

sjt11.vbp，窗体文件名为sjt11.frm。

(2)在名称为Form1的窗体上画一个文本框，名称为Text1，其宽度为1000；再画一个滚动条，名称为HS1。其刻度值的范围是1000—2000。请编写滚动条的Change事件过程，程序运行后，如果移动滚动框，则可按照滚动条的刻度值改变文木框的宽度。运行时的窗体如下图所示。程序中不能使用任何变量，事件过程只能写一条语句。

*注意：

存盘时必须存放在考生文件夹下，工程文件名为sjt12.vbp，窗体文件名为sjt12.frm。

2．简单应用

(1)在考生文件夹下有一个工程文件stj3.vbp，相应的窗体文件为stj3.frm。在窗体上有一个名称为Command1、标题为“计算”的命令按钮；两个水平滚动条，名称分别为Hscroll1和Hscroll2，其Max属性均为100，Min属性均为1；四个标签，名称分别为Lable1、Lable2、Lable3和Lable4，标题分别为“运算数1”、“运算数2”、“运算数结果”和空白；此外还有一个包含有四个单选按钮的控件数组，名称为Option1，标题分别为“+”、“-”、“*”、“/”，如图所示。程序运行后，移动两个滚动条中的滚动框，用滚动条的当前

值作为运算数，如果选中一个单选按钮，然后单击命令按钮，相应的计算结果将显示在Lable4中，程序运行情况如图所示。这个程序不完整，请把它补充完整，并能正确运行。

试题源程序：

1 Private Sub Command1_Click( )

2 For i=0 To 3

3 If ?=True Then

4 opt=Option1(i).Caption

5 End If

6 Next

7 Select Case?

8 Case "+"

9 Result=HScroll1.Value+HScroll2.Value

10 Case "-"

11 Result=HScroll1.Value-HScroll2 Value

12 Case "*"

13 Result=HScroll1.Value*HScroll2.Value

14 Case "/"

15 Result=HScroll1.Value/HScroll2.Value

16 End Select

17 Label4.Caption=Str(HScroll1.Value) &" "&opt&Str(RScroll2.Value) & "=" & Str(Result)

18 End Sub

(2)在考生文件夹下有一个工程文件stj4.vbp，相应的窗体文件为stj4.frm，其功能是通过调用过程FindMax求数组的最大值，请装入该文件，程序运行后，在四个文本框中各输入一个整数，然后单击命令按钮，即可求得数组的最大值，并在窗体上显示出来(如下图所示)。这个程序不完整，请把它补充完整，并能正确运行。

试题源程序：

1 Option Base 1

2 Private Function FindNax(a( )As Integer)

3 Dim Start As Integer

4 Dim Finish As Integer，i As Integer

5 'Start=?(a)

6 'Finish=?(a)

7 'Max=?(Start)

8 For i=Start To Flnlsh

9 'If a(i)?Nax Then Nax=?

10 Next i

11 FindMax=Nax

12 End Function

13 Private Sub Command1_Click( )

14 Dim arr1

15 Dim art2(4)As Integer

16 arr1=Array(Val(Text1.Text)，Val(Text2.Text)，Val(Text3.Text)，Val(Text4.Text))

17 For i=1 To 4

18 arr2(i)=CInt(?)

19 Next i

20 'M=FindUax(?)

21 Print"最大值是："；M

22 End Sub

3．综合应用

在考生文件夹下有工程文件djks044.vbp及窗体文件djks044.frm，该程序是不完整的，请在有?的地方填入正确内容，然后删除?及所有注释符(')，但不能修改其他部分。存盘时不得改变文件名和文件夹。

本题描述如下：在Form1窗体上建立一个名称为Op1的单选按钮数组，含有三个单选按钮，其标题分别为“10!”、“11!”、“12!”，Index属性分别为0、1、2；再画两个命令按钮，按钮的名称分别为Cmd1与Cmd2，标题分别为“计算”与“保存”；画一个名称为Tex1的文本框。程序的功能是在选定一个单选框并单击“计算”按钮后，可以计算出相应的阶乘值，在Text1中显示该值。单击“保存”，文本框中的数据可以保存到考生文件夹下的out044.txt文件夹中。注意窗体加载时，Cmd2按钮不可用，单击“计算”按钮后，Cmd2变为可用。

程序运行时的窗体界面如下图所示。

试题源程序

1 Private Sub Cmd1_Click( )

2 Cmd2.Enabled=True

3 Dim i As Integer

4 Dim t As Integer

5 For i=0 To 2

6 If Opl(i)=True Then

i. t=Val(Left$(Op1(i).Caption，?))

ii. Text1.Text=?(t)

7 End If

8 Next i

9 End Sub

10 Function Out(n As Integer)

11 Dim i As Integer

12 Dim t As Long

13 t=1

14 For i=2 To n

15 Print

16 Next i

17 Out=t

18 End Funtion

19 Private Sub Cmd2_Click( )

20 Open App.Path &"\out044.txt" For Output As #1

21 Print#1，Text1.Text

22 Close #1

23 End Sub

24 Private Sub Form Load( )

25 Cmd2.Enabled=?

26 End Sub

2011年9月全国计算机等级考试二级Visual Basic上机真题答案解析

1．基础操作题

(1)[解析]

首先按试题要求在窗体上画一个标签和两个命令按钮，并分别将它们的属性按试题要求进行设置。窗体标题栏中的最大化和最小化按钮是用MinButton属性和MaxButton属性来设置的。Cancel属性返回或设置一个值，用来指示窗体中命令按钮是否为取消按钮。Default属性设置默认的焦点，为保证任何时候按Enter键都相当于单击C1按钮．还需在C2的Click事件中使用C1的SetFocus方法。

答案

步骤1：启动VB，新建工程文件。

步骤2：设计窗体。根据题意，该用户界面包括四个对象，即窗体，一个标签和两个按钮。

步骤3：设置属性。根据题意，窗体的标题(Caption)属性改为“确认”，MaxBotton与MinBotton属性均设为False。设置按钮的标题(Caption)属性分别为“是”、“否”，设置相应的宽高，把C1的Default属性设置

为”true”，把C2的Cancel属性性设置为”true”，编辑窗口编写代码如下：

Private Sub C2_Click( )

C1.SetFocus

End Sub

步骤4：保存。程序设计完成经调试无误后进行存盘。执行“文件”菜单中的“保存工程”命令，打开“文件另存为”对话框，窗体文件名为

“Stj1.form”，单击保存按钮。然后在紧接着出现的“工程另存为”对话框中选择工程文件名为“stj1.vbp”，单击保存按钮。

(2)[解析]

本题主要考查对象的Left属性的概 …… 此处隐藏：5023字，全部文档内容请下载后查看。喜欢就下载吧 ……