VB程序设计上机题目.doc

演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案VB程序设计上机题目451. 基本操作（2小题，每小题15分，共计30分） 注意：下面出现的考生文件夹均为%USER%* 请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。 （1）在名称为Form1，标题为图片的窗体上画1个名称为Image1的图像框，其 高为2500，宽为2000。请通过属性窗口设置适当属性，装入考生目录下的 图片文件pic1.jpg，并使图片适应图像框的大小（如图所示）。 注意： 存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名 为sjt1.frm。 * （2）在名称为Form1的窗体上画1个名称为Text1的文本框，其初始内容为空；再 画2个单选按钮，名称分别为Option1、Option2，标题分别为参加、不 参加，Option1的标题在单选按钮的左边，如图所示。当程序运行时，在 Text1中输入一些文字（例如比赛），单击Option1时，则把其标题放在 输入文字的前面（例如参加比赛），单击Option2时，则把其标题放在输 入文字的后面（例如比赛不参加）。请编写适当的事件过程，完成上述 功能。 注意： 存盘时，将文件保存至考生文件夹下，窗体文件名为sjt2.frm，工程文 件名为sjt2.vbp。要求程序中不得使用变量，每个事件过程中只能写一条 语句。 评析第1小题：新建一个窗体Form1，通过属性窗口设置窗体Form1的Caption属性为图片。点击工具箱中的Image控件图标，然后在窗体上拖拉出一个图像框Image1，通过属性窗口设置其Height属性为2500，Width属性为2000，Stretch属性为True，并通过Picture属性添加考生文件夹下的图片文件pic1.jpg。按要求保存文件即完成本题。第2小题：新建一个窗体Form1，点击工具箱中的TextBox控件图标，然后在窗体上拖拉出一个文本框Text1，通过窗口设置其Text属性为空。点击工具箱中的OptionButton控件图标，然后在窗体上拖拉出两个单选按钮Option1、Option2，通过属性窗口设置其Caption属性分别为参加、不参加，并将单选按钮Option1的Alignment属性设置为1-Right Justify。打开代码窗口，添加如下代码Private Sub Option1_Click() Text1.Text = Option1.Caption & Text1.TextEnd SubPrivate Sub Option2_Click() Text1.Text = Text1.Text & Option2.CaptionEnd Sub按要求保存文件即完成本题。2. 简单应用（2小题，每题20分，计40分） 注意：下面出现的考生文件夹均为%USER%* （1）考生文件夹中有工程文件sjt3.vbp。窗体上有名称为Label1、标题为标签 控件的标签；有一个名称为Command1、标题为命令按钮的命令按钮。单 击上述两控件中任一控件，则在标签Label2中显示所单击控件的标题内容 （标题内容前有单击二字），下图是单击命令按钮后的窗体外观。请去 掉程序中的注释符，把程序中的 ？改为正确的内容。 注意： 考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名 存盘。 * （2）在考生文件夹下有一个工程文件sjt4.vbp。程序运行后，如果单击开始 按钮，则图片自左向右移动，同时滚动条的滑块随之移动，每0.5秒移 动一次。当图片完全移出窗体的右边界时，立即再从窗体的左边界开始重 新移动，若单击停止按钮，则图片停止移动，如图所示。在窗体文件 中已经给出了全部控件，但程序不完整。 要求： 请去掉程序中的注释符，把程序中的 ？改为正确的内容，使其实现上 述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件 按原文件名存盘。 评析第1小题：本题主要考查了控件参数。在VB中也可以把对象作为参数向过程传递。在形参表中，把形参变量的类型声明为Control，就可以向过程传递控件。对象的传递只能是按地址传递。在用控件作为参数时，必须考虑到作为实参的控件是否具有通用过程中所列的控件的属性。为此，Visual Basic提供了一个TypeOf语句，其格式为：If|ElseIf TypeOf 控件名称 Is 控件类型TypeOf语句放在通用过程中，控件名称实际上指的控件参数（形参）的名字，即As Control前面的参数名。控件类型是代表各种不同控件的关键字。解题方法：应用程序中的ShowName是以控件对象为参数的通用过程。若单击命令按钮Command1，调用执行事件过程Command1_Click，该过程以命令按钮名Command1为实参调用通用过程ShowName，执行ShowName后，在窗体中的Label2标签内显示单击命令按钮；若单击命令按钮Command2，调用执行事件过程Command2_Click，该过程以标签Label1为实参调用通用过程ShowName，执行ShowName后，在窗体中的Label2标签内显示单击标签控件。打开代码窗口，修改后的代码如下：Private Sub Command1_Click() Call ShowName(Command1)End SubPrivate Sub Label1_Click() Call ShowName(Label1)End SubPrivate Sub ShowName(c As Control) If TypeOf c Is CommandButton Then Label2.Caption = 单击 & Command1.Caption End If If TypeOf c Is Label Then Label2.Caption = 单击 & Label1.Caption End IfEnd Sub按要求保存文件即可完成本题。第2小题：本题主要考查了计时器和水平滚动条控件。计时器的Enabled属性设置为True时，可使计时器按Interval属性在指定的时间间隔发生计时器事件。本题中每隔0.5秒发生一次计时器事件，因此计时器控件的Interval属性应设置为500。Top、Left（顶边、左边位置）这两个属性用来设置对象的顶边和左边的坐标值，用以控制对象的位置。这里的对象可以是窗体和绝大多数控件。当对象为窗体时，Left指的是窗体的左边界与屏幕左边界的相对距离，Top指的是窗体的顶边与屏幕顶边的相对距离；而当对象为控件时Left和Top分别指控件的左边和顶边与窗体的左边和顶边的相对距离。解题方法：事件过程Form_Load为计时器控件的Interval属性设置初值500；事件过程Command1_Click用来启动计时器控件Timer1；事件过程Command2_Click用来停止计时器控件Timer1；事件过程Timer1_Timer用来控制图片的移动。每执行一次计时器事件，图片自左向右移动200，同时滚动条的滑块随之移动，也就是说图片和滚动条保持同步运动。If语句判断图片左边界是否完全移出窗体的右边界，如果是，图片左边界大于窗体的宽度，即If Picture1.LeftForm1.Width Then，图片再回到窗体左边界，此时图片左边距窗体左边界的距离为0。打开代码窗口，修改后的代码如下：Private Sub Command2_Click() Timer1.Enabled = FalseEnd SubPrivate Sub Form_Load() Timer1.Interval = 500End SubPrivate Sub Timer1_Timer() Picture1.Left = Picture1.Left + 200 If Picture1.Left Form1.Width Then Picture1.Left = 0 End If HScroll1.Value = Picture1.LeftEnd Sub按要求保存文件即可完成本题。3. 综合应用（1小题，计30分） 注意：下面出现的考生文件夹均为%USER% 在窗体上画1个文本框，名称为Text1（可显示多行），然后再画三个命令按 钮，名称分别为Command1，Command2和Command3，标题分别为读数，统 计和存盘，如图所示。程序的其功能是：单击读数按钮，则把考生目 录下的in5.txt文件中的所有英文字符放入Text1（可多行显示）；单击统 计按钮，找出并统计英文字母i，j，k，l，m，n（不区分大小写）各自出 现的次数；单击存盘按钮，将字母i到n出现次数的统计结果依次存到考生 目录下的顺序文件out5.txt中。 *注意： 存盘时必须存放在考生文件夹下，工程文件名为sjt5.vbp，窗体文件名 为sjt5.frm。 评析本题主要考查了文件的操作和字符串的处理。1、Open语句Open语句用来打开或建立一个文件，其语法为：Open 文件名 for 存取方式 Access 操作方式 锁定 As #文件号 Len=记录长度参数说明：存取方式指文件的输入输出方式，可以是以下操作之一：Output指定顺序输出方式Input指定顺序输入方式2、Input$函数：格式：Input$(n,#文件号)Input$函数返回从指定的文件中读出的n个字符的字符串。也就是说，它可以从数据文件中读取指定数目的字符。3、LOF函数LOF函数返回给文件分配的字节数（即文件的长度）。4、Print #语句用来把数据写入顺序文件。语法为：Print #文件号，Spc(n)|Tab(n) 表达式列表 ;|,Spc(n)函数用来在当前的输出位置加入n个空白；Tab(n)函数用来设置在第n个位置写入数据。分号表示后续写入的数据将接着当前的数据尾部写入；逗号表示在当前写入的数据后换行。5、Close语句 用来关闭一个被打开的文件。语法为：Close #文件号打开代码窗口，读数、统计、存盘按钮的代码如下：Option Base 1Dim a(6) As IntegerPrivate Sub Command1_Click() Open App.Path & & in5.txt For Input As #1 s = Input(LOF(1), #1) Text1.Text = s Close #1End SubPrivate Sub Command2_Click() For i = 1 To Len(Text1) str1 = Mid(Text1, i, 1) Select Case LCase(str1) Case Is = i a(1) = a(1) + 1 Case Is = j a(2) = a(2) + 1 Case Is = k a(3) = a(3) + 1 Case Is = l a(4) = a(4) + 1 Ca