二级(Visual Basic语言程序设计)样题

公共基础知识

同二级（C语言程序设计）样题公共基础知识部分（P33—P34）。

Visual Basic语言程序设计

一、           选择题

1、下列可以打开立即窗口的操作是        。

A）Ctrl + D      B) Ctrl + E      C) Ctrl + F      D) Ctrl + G

2、InputBox函数返回值的类型为        。

A）数值        B）字符串      C）变体        D）数值或字符串（视输入的数据而定）

3、表达式4 + 5 \ 6 * 7 / 8 Mod 9的值是        。

A）4          B）5           C）6           D）7

4、以下语句的输出结果是        。

   Print Format $ (32548.5,”000,000.00”)

A)32548.5       B)32,548.5       C)032,548.50     D)32,548.50

5、执行以下程序段后，变量c $ 的值为

   a $ = “Visual Basic Programing”

   b $ = “Quick”

   c $ = b $ & Ucase (Mid $ (a $,7,6)) & Right $ (a $,11)

A)    Visual BASIC Programing

B)     Quick Basic Programing

C)     QUICK Basic Programing

D)    Quick BASIC Programing

6、在窗体（Name属性为Formal）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程：

Private Sub Command1_Click()

    A = Text.Text + Text2.Text

    Print  a

End Sub

Private Sub Formm_Load()

     Text1.Text = “ “

     Text2.Text = “ “

End Sub

程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为        。

A）444         B）321123        C）123321        D）132231

7、阅读下面的程序段：

For  I = 1 To 3

   For  j = 1 To I

      For  k = j To 3

         A=A+1

      Next k

   Next j

Next I

执行上面的三重循环后，a的值为        。

A）3          B）9          C）14         D）21

8、在窗体上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下的事件过程：

Private Sub Command1_Click()

    X = 0

    Do While x<50

       X = ( x + 2 ) * ( x + 3 )

       N = n+1

    Loop

    Text1.Text = Str(n)

    Text2.Text = Str(x)

End Sub

程序执行后，单击命令按钮，在两个文本框中显示的值分别为        。

A）1和0        B）2和72       C）3和50        D）4和168

9、假定窗体上有一个标签，名为Lable1。为了使该标签透明并且没有边框，则正确的属性设置为        。

A）Lable1.BackStyle = 0

   Lable1.BorderStyle = 0

B)  Lable1.BackStyle = 1

    Lable1.BorderStyle = 1

C)  Lable1.BackStyle = true

Lable1.BorderStyle = true

D)  Lable1.BackStyle = Flase

Lable1.BorderStyle = False

10、对窗体编写如下代码：

Option Base 1

Private Sub Form_KeyPress (KeyAscii As Integet)

     A = Array (237,126,87,48,498)

     M1 = a (1)

     M2 = 1

     If KeyAscii = 13 Then

       For  I = 2 To 5

         If a (i)>m1 then

            M1 = a(i)

            M2 = I

         End if

      Next I

End if

Print m1

Print m2

End Sub

程序执行后，按回车键，输出结果为

A）48           B）237            C）498           D）498

4               1                  5                4

二、  填空题

1、设有如下的Visual Basic表达式：

   5 * X^2 – 3 * X – 2 – Sin(a) / 3

   它相当于代数式     [1]     。

2、执行下面的程序段后，s的值为     [2]     。

   s = 5

   For I 2.6 To 4.9 Step 0.6

S = S + 1

   Next I

3、为了在运行时把图形文件picfile.jpg装入图片框Picture1，所使用的语句为     [3]     。

4、如果要将某个菜单项设计为分隔线，则该菜单项的标题应设置为     [4]     。

5、假定建立一个工程，该工程包括两个窗体，其名称（Name属性）分别为Form1和Form2，启动窗体为Form1。在Form1上画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请在     [5]     和     [6]     处将程序补充完整。

Private Sub Command1_Click()

         [5]     Form1

    Form2.     [6]    

End Sub

三、  上机操作题

1、基本操作

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

   在名称为Form1标题为“选课”的窗体上画一个复选框数组，名称为CH1，共有四个复选框，按顺序其标题分别是“数学”、“语文”、“外语”、“计算机”，其中“语文”、“计算机”复选框处在选中状态下，运行时的窗体如图。请画控件并设置相应属性。

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

2、简单应用

   在名称为Form1的窗体上画一个名称为Text1的文本框，再建立一个名称为Format的弹出式菜单，含三个菜单项，标题分别为“加粗”、“斜体”、“下划线”，名称分别为M1、M2、M3。请编写适当的事件过程，在运行时当用鼠标右键单击文本框时，弹出此菜单，选中一个菜单项后，则进行菜单标题所描述的操作。

*注意：存盘时必须存放在考生文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt4.frm。

3、综合应用

以下数列：1，1，2，3，5，8，13，21，……，的规律是从第3个数开始，每个数是它前面两个数之和。

在考生文件夹下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件，如图所示。请编写适当的事件过程完成以下功能：选中一个单选按钮后，单击“计算”按钮，则计算出上述数列的第n项的值，并显示在文本框中，n是选中的单选按钮后面的数值。（提示：因计算结果较大，应使用长整型变量。）

注意：不能修改已经给出的程序和已有的控件的属性；在结束程序运行之前，必须选中一个单选按钮，并单击“计算”按钮获行一个结果；必须使用窗体右上角的关闭按钮结束程序，否则无成绩。最后把修改后的文件按原文件名存盘。

二级（Visual Basic语言程序设计）样题参考答案

公共基础知识

同二级（C语言程序设计）样题参考答案中公共基础知识部分（P40）。

Visual Basic语言程序设计

一、             选择题

（1）D     （2）B     （3）B     （4）C     （5）D

（6）C     （7）C     （8）B     （9）A     （10）C

二、             填空题

（1）     [1]     5x² – 3x – sinA/2

（2）     [2]     9

（3）     [3]     Picture1.picture = LoadPicture(“picfile,jpg”)

（4）     [4]      -

（5）     [5]     Unload

          [6]     Show