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

时间：2024-08-16 04:19:04 计算机等级我要投稿

相关推荐

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

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

2016年计算机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()

　　T1.Height = 2 * Me.T1.Height

　　T1.Width = 2 * T1.Width

　　T1.FontSize = 3 * Form1.T1.FontSize

　　End Sub

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

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

　　Private Sub C1_Click()

　　Text1.Left = 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()

　　P1.Picture = LoadPicture("pic2.jpg")

　　P2.Picture = LoadPicture("pic1.bmp")

　　End Sub

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

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

　　Private Sub C1_Click()

　　'题目

　　For i = 0 To Me.l1.ListCount - 1

　　If l1.Selected(i) = True Then

　　Print l1.List(i)

　　End If

　　End Sub

　　'答案

　　'4 或 L1.ListCount-1

　　'Selected(i)

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

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

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

　　LiuMingliang (010)62781234 100082

　　…… …… ……

　　各字段的类型和长度为：

　　姓名(Name)：字符串 15

　　电话(Tel)：字符串 15

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

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

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

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

　　LiDaqing (027)87348765 430065

　　ChenQingshan (022)26874321 300120

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

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

　　图1 图2

　　Private Sub Command1_Click()

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

　　RecNum = LOF(1) / Len(Pers)

　　Pers.Name = InputBox("请输入姓名")

　　Pers.Tel = InputBox("请输入电话")