计算机二级VB机考题库

1◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】

（1）【操作步骤】

步骤1：打开Visual Basic，按照题目的要求新建窗体并添加一个水平滚动条控件。

步骤2：在属性窗口中，按题照目的要求设置水平滚动条的相关属性

步骤3：按照题目的要求，在窗体上添加两个标签控件。

步骤4：按照题目的要求设置两个标签的相关属性。 程序中用到的控件及属性见表3.1。

表3.1 控件 滚动条 标签1 标签2 属性 Name Min Max Large－ Name Caption Name Caption Change 设置值 H1 1 100 10 L1 1 L2 100 步骤5：按下键盘上的F5键运行程序。 步骤6：按题目要求保存工程和窗体文件。 （2）【操作步骤】

步骤1：新建窗体，按表3.2建立菜单项并设置其属性。

表3.2 标题 操作 复制 清除 名称 M1 Copy Clear 内缩符号 0 1 1 图3.7 步骤2：同步骤3，输入第3项的标题和名称，单击确定即可。 步骤3：添加文本框控件，按照表3.3设置文本框的属性。

表3.3 控 件 文本框1 文本框2 属 性 Name Name 设置值 Text1 Text2 步骤4：编写程序代码。 参考答案

Private Sub Clear_Click() End Sub

Text2.Text = \Private Sub Copy_Click() End Sub

Text2.Text = Text1.Text 步骤7：调试并运行程序，关闭程序后按题目要求存盘。

【简单应用】

（1）【操作步骤】

步骤1：打开本题工程文件，按照题目要求建立控件数组。 步骤2：按照题目要求设置控件的属性，见表3.4。

参考答案

第一个？处填入：Index 第二个？处填入：a （2）【操作步骤】

步骤1：打开本题工程文件，按照题目要求建立框架控件并设置其属性。

步骤 2：按照步骤1建立其他控件并设置相关属性，程序中用到的控件及属性见表3.5和表3.6。

表3.6 控件 单选按钮1 单选按钮2 单选按钮3 单选按钮4 属性 Name Caption Name Caption Name Caption Name Caption 设置值 Op1 男 Op2 女 Op3 学生 Op4 老师 步骤4：分析并编写程序代码。 程序提供代码

Private Sub Form Unload(Cancel As Integer) Open \

Print #1, Op1.Value, Op2.Value, Op3.Value, Op4.Value, Text1.Text Close #1 End Sub 程序结束 参考答案

Private Sub C1_Click() If Op1.Value Then

Text1.Text = \我是\ Text1.Text = Text1.Text & Op1.Caption

Else

Text1.Text = Text1.Text & Op2.Caption End If

If Op3.Value Then

Text1.Text = Text1.Text & Op3.Caption Else

Text1.Text = Text1.Text & Op4.Caption End If End Sub

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

【综合应用】

【操作步骤】

步骤1：打开本题工程文件。 步骤2：编写程序代码。 参考答案

Private Sub Command1_Click() Dim a() As Long Dim i As Integer Dim n As Integer

For i = 0 To Op1.Count - 1

If Op1(i).Value = True Then n = Val(Op1(i).Caption) Exit For End If Next

ReDim a(n) a(1) = 1 a(2) = 1

For i = 3 To n

a(i) = a(i - 1) + a(i - 2) Next

Text1.Text = a(n) End Sub

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

2◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】

（1）【操作步骤】

步骤1：新建一个窗体，按照要求建立控件并设置其属性。 步骤2：调试并运行程序。

步骤3：关闭程序后按题目要求保存工程和窗体文件。 （2）【操作步骤】

步骤1：新建一个窗体，按照题目要求建立控件并设置其属性。 程序中用到的控件及属性见表3.7。

表3.7 控件 图片框 属性 Name 设置值 P1 步骤2：编写程序代码。 参考答案

Private Sub Form_Click() Form1.Print \单击窗体\End Sub

Private Sub P1_Click() P1.Print \单击图片框\End Sub

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

【简单应用】

（1）【操作步骤】

步骤1：按题目要求打开工程文件，设置计时器属性。 步骤2：分析并编写程序代码。 参考答案

第1个？处填入：True 第2个？处填入：Height 第3个？处填入：Enabled

步骤3：调试并运行程序，关闭程序后按题目要求存盘。 （2）【操作步骤】

步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案

第1个？处填入：tmp*a 第2个？处填入：tmp 第3个？处填入：xn(t, i) 第4个？处填入：z

步骤3：按照题目要求调试并运行程序。

步骤4：关闭程序后，按照题目要求保存工程和窗体文件。

【综合应用】

【操作步骤】

步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案

Dim a As Integer Dim b As Integer a = 0

b = arr(1)

For i = 1 To 40

If prime(arr(i)) Then a = a + 1 Label3.Caption = a Next

For i = 1 To 40

If prime(arr(i)) And arr(i) <= b Then b = arr(i) Label4.Caption = b Next

步骤3：按照题目要求调试并运行程序。 步骤4：关闭程序后，按题目要求存盘。

3◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】

(1)【操作步骤】

步骤1：新建一个窗体，按照题目要求建立文本框控件并设置其属性

步骤2：按照步骤1建立其他控件并设置相关属性，程序中涉及的控件及属性见表3.8和表3.9。

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

(2)【操作步骤】

步骤1：新建一个窗体，按照题目要求建立控件并设置图像框相应属性。

步骤2：按照步骤1设置其他控件相关属性，程序中涉及的控件及属性见表3.10和3.11。 表3.10 控件 图像框 属性 Name Width Height Picture Stretch 设置值 Image1 1700 1900 pic1.bmp True 表3.11 控件 命令按钮1 命令按钮2 属性 Name Caption Name Caption 设置值 C1 放大 C2 缩小 步骤3：编写程序代码。 参考答案

Private Sub C1_Click()

Image1.Height = Image1.Height + 100 Image1.Width = Image1.Width + 100 End Sub

Private Sub C2_Click()

Image1.Height = Image1.Height - 100 Image1.Width = Image1.Width - 100 End Sub

步骤4：调试并运行程序，关闭程序后按题目要求存盘。

【简单应用】

(1)【操作步骤】

步骤1：按照题目要求打开工程文件。 步骤2：分析并编写程序代码。 参考答案

Dim i As Integer

Dim max As Integer, min As Integer max = -1 min = 1000

For i = 1 To 100

If isnarc(a(i)) Then

If max <= a(i) Then max = a(i) If min >= a(i) Then min = a(i) End If Next i

Text1 = max Text2 = min

步骤3：按照题目要求调试并运行程序。 步骤4：关闭程序后，按题目要求存盘。 (2)【操作步骤】

步骤1：打开本题工程文件，按照题目要求建立控件并设置组合框控件属性。

步骤2：按照步骤1设置其他控件的相关属性，程序中用到的控件及属性见表3.12。

步骤3：分析并编写程序代码。 参考答案

Private Sub C1_Click() Dim sum As Long Dim n As Integer Dim i As Integer n = Val(Cb1.Text) For i = n To 5000

If i Mod n = 0 Then sum = sum + i End If Next i

Text1.Text = sum End Sub

步骤4：调试并运行程序，关闭程序后按题目要求存盘。

【综合应用】

【操作步骤】

步骤1：打开本题工程文件，按照题目要求建立菜单并设置其属性。 菜单属性如表3.13所示。 表3.13

控件 编辑 剪切 复制 粘贴 名称 Edit Cut Copy Paste 内缩符号 0 1 1 1 步骤2：分析并编写程序代码。 参考答案

第1个？处填入：1 第2个？处填入：2

第3个？处填入：Text1.Text＋ Text3.Text 第4个？处填入：Text2.Text＋ Text3.Text

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

4◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】

(1)【操作步骤】

步骤1：新建一个窗体，按照要求建立控件并设置其属性。 程序中用到的控件及属性见表3.14和3.15。

表3.14

控件 命令按钮 属性 Name Caption 设置值 Command1 打开文件

步骤2：编写程序代码。 参考答案

Private Sub Command1_Click() CD1.ShowOpen End Sub

步骤3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】

步骤1：新建一个窗体，按照要求建立控件并设置相应属性。 程序中用到的控件及属性见表3.16。

表3.16 控件 命令按钮 属性 Name Caption 设置值 Command1 移动本按钮 步骤2：编写程序代码。 参考答案

Private Sub Command1_Click()

Command1.Left = Command1.Left - 100 End Sub

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

【简单应用】

(1)【操作步骤】

步骤1：新建一个窗体，按照题目要求建立控件并设置控件属性。 程序中用到的控件及属性设置见表3.17和3.18

步骤2：分析并编写程序代码。 参考答案

Private Sub Command1_Click() Combo1.AddItem Text1 End Sub

Private Sub Command2_Click() Print Combo1.ListCount End Sub

步骤3：调试并运行程序，关闭程序后按题目要求存盘。 (2) 【操作步骤】

步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案

第1个？处填入：Caption 第2个？处填入：m 第3个？处填入：k 第4个？处填入：a

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

【综合应用】

【操作步骤】

步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案

第1个？处填入：a(k) 第2个？处填入：ch \排序\按钮的代码

Private Sub C2_Click() Dim t As Integer Dim i As Integer Dim j As Integer Dim ch As String ch = \

For i = 50 To 2 Step -1 For j = 1 To 49

If a(j) > a(j + 1) Then t = a(j + 1) a(j + 1) = a(j) a(j) = t End If Next j Next i

For j = 1 To 50

ch = ch + Str(a(j)) + \ Next j

Text2.Text = ch End Sub

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

5◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】

（1）【操作步骤】

步骤1：新建一个窗体，按照题目要求建立控件并设置标签属性。

步骤2：按照步骤1设置其他控件相关属性，程序用到的控件及其属性见表3.19和3.20。 表3.19

控件 标签1 标签2 属性 Name Caption Name Caption 设置值 Label1 姓名 Label2 年龄

步骤3：编写程序代码。 参考答案

Private Sub Command1_Click()

Form1.Print Text1.Text & \现年\岁\End Sub

步骤4：调试并运行程序，关闭程序后按题目要求存盘。 （2）【操作步骤】

步骤1：新建一个窗体，按照题目要求建立控件并设置图片框的属性 步骤2：按照步骤1设置其他控件相关属性，程序中用到的控件及其 属性见表3.21。

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库计算机二级VB机考题库在线全文阅读。