上机考试真题.doc

Visual Basic语言程序设计二级上机考试真题(一) (考试时间90分钟，满分100分)1基本操作(2小题，每小题15分，共计30分)注意：下面出现的“考生文件夹”均为c：wexam000000请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为Framel，标题为“目的地”的框架，在框架中添加三个复选框，名称分别为Checkl、Check2、Check3，其标题分别是“上海”、“广州”、 “巴黎”，其中“上海”为选中状态，“广州”为未选状态，“巴黎”为灰色状态，如图所示。请画控件并设置相应属性。 图l-1注意： 存盘时必须存放在考生文件夹下，工程文件名为sjtlvbp，窗体文件名为sjtlfrm。(1)、评析：本题主要考查了CheckBox控件的使用方法，在CheckBox中可通过Value的值来设置其是否选中，当Value为0时，表示未选中，当Value=1时表示选中，当ValHe=2时，显示为灰色选中。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及属性设置如下表：控件属性设置值框架NameFramelCaption目的地复选框NameChecklCaption上海场lue1-Checked复选框NameChecI(2Caption广州复选框NameCheck3CaptiOn巴黎Value2-Graved第二步：调试并运行程序。第三步：按题目要求保存程序。(2)在名称为Forml的窗体上画一个名称为Picturel的图片框，其宽和高分别为1700、1900。请编写适当事件过程，使得在运行时，单击图片框，则装入考生目录下的图形文件piclbmp，如图所示。单击窗体则图片框中的图形消失。要求程序中不得使用变量，每个事件过程中只能写一条语句。 图1-2注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2vbp，窗体文件名为sjt2frm。（2）、评析：主要考查了PictureBox控件的使用方法，在PictureBox控件中可用Height、Width来指定控件的大小，同时可以用形如这样的语句在程序中动态地为控件设置图片：控件名Picture=LoadPicture(“文件名”)。要清空图片，可以让文件名为空，也可以使Picture=Nothing。 解题步骤：第一步：建立界面，在窗体上放一个图片框，设军Name属性为Picturel，Width属性为1700，Height属性为1900。第二步：编写程序代码。参考代码： Option Explicit Private Sub Form_click() Set PicturelPicture=Nothing Private Sub Picturel_Clickfl PicturelPicture=LoadPicture(“piclbmp”) End Sub第三步：调试并运行程序。第四步：按题目要求保存程序。2简单应用(2小题，每题20分，计40分)注意：下面出现的“考生文件夹”均为c：wexam000000(1)在考生文件夹下有一个工程文件sjt3vbp，相应的窗体文件为sjt3frm。在窗体上有一个命令按钮，其名称为Commandl，标题为“移动”；有一个文本框，名称为Textl，可以多行显示；此外还有一个列表框，其名称为Listl。程序运行后，会在列表框中显示几行文字，如图1所示。如果单击命令按钮，则把列表框中的文字移到文本框中，如图2所示。该程序不完整，请把它补充完整(程序中的vbCrLf表示回车换行符)。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。 图2-l 图2-2(1)、解析：本题主要考的ListBox控件，可以通过List属性来获得列表项目，可以使用Clear方法来把列表框清空。解题步骤：第一步：编写程序代码。源程序提供的代码： Private Sub Commandl_Click() Fori=0 To? s=s & ? & vbCrLf Next i Listl? TextlText=? End Sub Private Sub Form_Load() ListlAddltem“枯藤老树昏鸦，” ListlAddltem “小桥流水人家，” ListlAddltem“古道西风瘦马。” ListlAddltem“夕阳西下，” ListlAddltem“断肠人在天涯。” End Sub参考代码： Private Sub Commandl_Click() For i=0 TO ListlListCount-1 s=s & ListlList(i) & vbCrLf Next i ListlClear TextlText=s End Sub Private Sub Form Load() ListlAddltem“枯藤老树昏鸦，” ListlAddltem“小桥流水人家，” ListlAddItem“古道西风瘦马。” ListlAddItem“夕阳西下，” ListlAddltem“断肠人在天涯。” End Sub第二步：调试并运行程序。 第三步：按题目要求保存程序。(2)在考生文件夹下有一个工程文件sjt4vbp，相应的窗体文件为sjt4frm。在窗体上有一个标签(名称为Labell)、一个计时器(名称为Timerl)和二个命令按钮(名称分别为Commandl和Command2)，如图3所示。程序运行后，其初始界面如图4所示。此时如果单击“开始”命令按钮，则可使标签每隔02秒闪烁一次；如果单击“停止”命令按钮，则标签停止闪烁。该程序不完整，请把它补充完整。要求：去掉程序中的注释符，把程序中的?。改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。 图2-3 图2-4(2)、评析：本题主要考的是Timer控件的使用，在Timer中可用Enable来控制计时器的开启与关闭，同时可在其Timer事件中设置触发事件的时间间隔，而时间间隔可以通过Interval属性来设置。 解题步骤： 第一步：编写程序代码。 源程序提供的代码： Private Sub Form_Load() TimerlEnabled=? TimerlInterval=? LabellCaption=“注意!” CommandlCaption=“开始” Command2Caption=“停止” End Sub Private Sub Commandl_Click() TimerlEnabled=? End Sub Private Sub Command2_Click() TimerlEnabled=? End Sub Private Sub Timerl_Timer() Label1Visible=Not Label 1Visible End Sub 参考代码： Private Sub Form_Load() TimerlEnabled=False TimerlInterval=200 LabellCaption=“注意!” CommandlCaption=“开始” Command2Caption=“停止” End Sub Private Sub Command 1 Click() TimerlEnabled=True End Sub Private Sub Command2_Click() TimerlEnabled=False End Sub Private Sub Timerl_Timer() Label IVisible=Not Label1Visible End Sub第二步：调试并运行程序。第三步：按题目要求保存程序。3综合应用(1小题，计30分)注意：下面出现的“考生文件夹”均为c：wexam000000在名称为Forml的窗体上画三个命令按钮(名称分别为Commandl、Command2和Command3，标题分别为“显示”、“统计”和“保存”)，然后画一个文本框(名称为Textl，MultiLine属性设置为True，ScrollBars属性设置为2)。程序运行后，如果单击“显示”命令按钮， 则读入in5txt文件中的文本，并在文本框中显示出来；如果单击“统计”命令按钮，则统计文本框中ASCII码大于等于70，小于等于100的字符的个数，并把结果在文本框中显示出来，如图所示(注意，图中所显示的统计次数是随便写的，不是实际的统计结果)；如果单击“保存”命令按钮，则把统计结果存入考生文件夹下的out5txt文件中。 图3-1 注意：结束程序运行前必须用“保存”命令按钮把统计结果存入考生文件夹下的out5txt文件中，否则没有成绩。存盘时必须存放在考生文件夹下，工程文件名为sjt5vbp，窗体文件名为sjt5frm。3、综合应用评析：本题主要考查了分支语句的使用，字符串统计算法。文本框用Text属性来显示计算结果；命令按钮的标题由Caption属性来设置，单击命令按钮触发Click事件。解题步骤：第一步：建立界面并设置控件属性。程序用到的控件及属性设置如下表所示：控件属性设置值命令按钮NameCommandlCaption显示命令按钮NameCommand2Caption统计命令按钮NameCommand3Caption保存文本框NameTextlMultiLineTrueScrollBars2-Vertical第二步：编写程序代码： 参考代码： Option Explicit Dim c As Integer Private Sub Commandl_Click() Open“in5Txt”For Input As#l TextlText=Input(LOF(1)，#1) Close#1 End Sub Private Sub Command2_C1ick() Dim I As Integer c=O For i=1 To Len(TextlText) If Asc(Mid(Textl.Text,I,1)=70 And Asc(Mid(Textl.Text;I,1)=1250 Then Exit For Next If iSum=? Then Print i；“”；j End If Next End Sub 参考代码： Private Sub Commandl_Click() Dim i As Integer,j As Integer，iSum As Integer Print“连续和为1250的正整数是：”， For i=l To 500 iSum=0 For j=I To 500 iSum=j+iSum If iSum=1250 Then Exit For Next If iSum=1250 Then Print i；“”；j End If Next End Sub 第二步：调试并运行程序。 第三步：按题目要求保存程序。(2)在考生文件夹下有一个工程文件sjt4vbp，相应的窗体文件为sjt4frm。在窗体上有一个命令按钮，其名称为Commandl，标题为“计算并输出”。程序运行后，如果单击命令按钮，程序将计算500以内两个数之间(包括开头和结尾的数)所有连续数的和为1250的正整数，并在窗体上显示出来。这样的数有多组，程序输出每组开头和结尾的正整数，并用“”连接起来，如图所示。该程序不完整，请把它补充完整。End Type变量定义为：Dim Pal As Pallnfo要求：1)打开随机文件in5txt，读取其中的第三个记录，把该记录中的三个字段在三个文本框中显示出来，三个文本框中所显示的字段分别为姓名、电话号码和邮政编码。2)文件out5txt以顺序存取方式建立和保存，在第二个命令按钮事件过程中实现，其代码如下：Private Sub Command2 Click()Open“out5Txt”For Output As #l Print#1，TextlText，Text2Text，Text3Text Close l End Sub 3)存盘时必须存放在考生文件夹下，工程文件名为sjt5vbp，窗体文件名为sjt5frm。评析：本题主要考察了对于随机文件的读取与写入操作，在读文件时，可以使用Get语句，其语法如下：Get文件号，记录号，变量名解题步骤：第一步：建立界面并设置控件属性。程序用到的控件及属性设置如下表所示：控件属性设置值标签NameLabelICaption姓名标签NameLabel2Caption电话号码标签NameLabel3Caption邮政编码文本框NameTextlText文本框NameText2Text文本框NameText3Text命令按钮NameCommandlCaption显示第三记录NameCommand2Caption保存第二步：编写程序代码：参考代码： 0ption Explicit Private Type Pallnfo Name As String*8 Tel As String*10 Post As Long End Type Dim Pal As Pallnfo Private Sub Commandl_Click() Ope