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()
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
Next
End Sub
'答案
'0
'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)
Do
Pers.Name = InputBox("请输入姓名")
Pers.Tel = InputBox("请输入电话")
Pers.Pos = 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 "t5.txt" 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 Pers.Name; Pers.Tel; Pers.Pos
Next i
Close 1
End Sub
【2016年计算机vb二级复习试题及答案】相关文章：