2016年计算机vb二级复习试题及答案

2016年第二次计算机等级考试9月即将开始了，yjbys为帮助大家巩固计算机基础知识，下面为大家分享的是计算机vb二级复习试题，同学们赶紧来学习吧!

　　1.基本操作(2小题，每小题15分，共计30分)

(1)在名称为Form1的窗体上画一个文本框，其名称为T1，宽度和高度分别为1400和400;再画两个命令按钮，其名称分别为C1和C2，标题分别为“显示”和“扩大”，编写适当的事件过程。程序运行后，如果单击C1命令按钮，则在文本框中显示“等级考试”，如图1所示;如果单击C2命令按钮，则使文本框在高、宽方向上各增加一倍，文本框中的字体大小扩大到原来的3倍，如图2所示。

Private Sub C1_Click()

T1 = "等级考试"

End Sub

Private Sub C2_Click()

ht = 2 * ht

h = 2 * h

Size = 3 * Size

End Sub

(2)在名称为Form1的窗体上画一个文本框，名称为Text1;再画一个命令按钮，名称为C1，标题为“移动”(如图所示)。请编写适当的事件过程，使得在运行时，单击“移动”按钮，则文本框水平移动到窗体的最左端。程序中不得使用任何变量。

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

Private Sub C1_Click()

= 0

End Sub

　　2.简单应用(2小题，每题20分，计40分)

(1)在名称为Form1的窗体上画二个图片框，名称分别为P1、P2，高度均为1900，宽度均为1700，通过属性窗口把图片文件pic1.bmp放入P1中，把图片文件pic2.jpg放入P2中;再画一个命令按钮，名称为C1，标题为“交换图片”(如图所示)。编写适当的事件过程，使得在运行时，如果单击命令按钮，则在P1中显示Pic2.jpg，在P2中显示Pic1.bmp。程序中不得使用变量，也不能使用第三个图片框。

Private Sub C1_Click()

ure = LoadPicture("pic2.jpg")

ure = LoadPicture("pic1.bmp")

End Sub

(2)在考生文件夹下有一个工程文件，要求程序运行后，如果按下Ctrl的同时单击多个列表框中的项，则可同时选择这些项。而如果单击“显示”按钮，则在窗体上输出所有选中的列表项(如图所示)。

要求： 修改列表框的适当属性，使得运行时可以多选，并去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不得修改程序中的'其他部分。最后把修改后的程序以原来的文件名存盘。

Private Sub C1_Click()

'题目

For i = 0 To Count - 1

If cted(i) = True Then

Print (i)

End If

Next

End Sub

'答案

'0

'4 或 Count-1

'Selected(i)

　　3.综合应用(1小题，计30分)

在考生的文件夹下有一个工程文件，相应的窗体文件为.。在窗体上有两个命令按钮，其名称分别为Command1和Command2，标题分别为“写文件”和“读文件”，如图1所示。其中“写文件”命令按钮事件过程用来建立一个通信录，以随机存取方式保存到文件中;而“读文件”命令按钮事件过程用来读出文件中的每个记录，并在窗体上显示出来。通信录中的每个记录由3个字段组成，结构如下：

姓名(Name) 电话(Tel) 邮政编码(Pos)

LiuMingliang (010)62781234 100082

…… …… ……

各字段的类型和长度为：

姓名(Name)： 字符串 15

电话(Tel)： 字符串 15

邮政编码(Pos)长整型(Long)

程序运行后，如果单击“写文件”命令按钮，则可以随机存取方式打开文件，并根据提示向文件中添加记录，每写入一个记录后，都要询问是否再输入新记录，回答“Y”(或“y”)则输入新记录，回答“N”(或“n”)则停止输入;如果单击“读文件”命令按钮，则可以随机存取方式打开文件，读出文件中的全部记录，并在窗体上显示出来，如图所2所示。该程序不完整，请把它补充完整。

要求： 1)去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。

2)文件中已有3个记录(如图2所示)，请运行程序，单击“写文件”命令按钮，向文件中添加以下两个记录(全部采用西文方式)：

LiDaqing (027)87348765 430065

ChenQingshan (022)26874321 300120

3)运行程序，单击“读文件”命令按钮，在窗体上显示全部记录(共5个)。

4)用原来的文件名保存工程文件和窗体文件。

图1 图2

Private Sub Command1_Click()

Open "" For Random As #1 Len = Len(Pers)

RecNum = LOF(1) / Len(Pers)

Do

= InputBox("请输入姓名")

= InputBox("请输入电话")

= InputBox("请输入邮政编码")

RecNum = RecNum + 1

' RecNum = ?

Put #1, RecNum, Pers

' Put #1, ?

asp = InputBox("More(Y/N)?")

Loop While UCase(asp) <> "N"

' Loop While UCase(asp) ?

Close 1

End Sub

Private Sub Command2_Click()

Open "" For Random As #1 Len = Len(Pers)

RecNum = LOF(1) / Len(Pers)

' RecNum = ?

Cls

For i = 1 To RecNum

Get #1, i, Pers

' Get #1, ?

Print ; ;

Next i

Close 1

End Sub