VB程序设计上机题目

演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案

VB程序设计上机题目

45

1. 基本操作（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.Text End Sub

Private Sub Option2_Click()

Text1.Text = Text1.Text & Option2.Caption End Sub

精心收集 精心编辑 精致阅读 如需请下载！

演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案

按要求保存文件即完成本题。

2. 简单应用（2小题，每题20分，计40分） 注意：下面出现的\考生文件夹\均为%USER%

***********************************************************************

（1）考生文件夹中有工程文件sjt3.vbp。窗体上有名称为Label1、标题为\标签

控件\的标签；有一个名称为Command1、标题为\命令按钮\的命令按钮。单

击上述两控件中任一控件，则在标签Label2中显示所单击控件的标题内容

（标题内容前有\单击\二字），下图是单击命令按钮后的窗体外观。请去

掉程序中的注释符，把程序中的 ？改为正确的内容。 注意：

考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名 存盘。

精心收集 精心编辑 精致阅读 如需请下载！

演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案

**********************************************************************

（2）在考生文件夹下有一个工程文件sjt4.vbp。程序运行后，如果单击\开始

\按钮，则图片自左向右移动，同时滚动条的滑块随之移动，每0.5秒移

动一次。当图片完全移出窗体的右边界时，立即再从窗体的左边界开始重

新移动，若单击\停止\按钮，则图片停止移动，如图所示。在窗体文件

中已经给出了全部控件，但程序不完整。 要求：

请去掉程序中的注释符，把程序中的 ？改为正确的内容，使其实现上

述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件

按原文件名存盘。 评析 第1小题：

本题主要考查了控件参数。

精心收集 精心编辑 精致阅读 如需请下载！

演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案

①在VB中也可以把对象作为参数向过程传递。在形参表中，把形参变量的类型声明为\，就可以向过程传递控件。对象的传递只能是按地址传递。在用控件作为参数时，必须考虑到作为实参的控件是否具有通用过程中所列的控件的属性。为此，Visual Basic提供了一个TypeOf语句，其格式为：

[If|ElseIf] TypeOf 控件名称 Is 控件类型

TypeOf语句放在通用过程中，\控件名称\实际上指的控件参数（形参）的名字，即\前面的参数名。\控件类型\是代表各种不同控件的关键字。 解题方法：

应用程序中的ShowName是以控件对象为参数的通用过程。若单击命令按钮Command1，调用执行事件过程Command1_Click，该过程以命令按钮名Command1为实参调用通用过程ShowName，执行ShowName后，在窗体中的Label2标签内显示\单击命令按钮\；若单击命令按钮Command2，调用执行事件过程Command2_Click，该过程以标签Label1为实参调用通用过程ShowName，执行ShowName后，在窗体中的Label2标签内显示\单击标签控件\。 打开代码窗口，修改后的代码如下： Private Sub Command1_Click() Call ShowName(Command1) End Sub

Private Sub Label1_Click()

精心收集 精心编辑 精致阅读 如需请下载！

演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案

Call ShowName(Label1) End Sub

Private Sub ShowName(c As Control) If TypeOf c Is CommandButton Then

Label2.Caption = \单击\ End If

If TypeOf c Is Label Then

Label2.Caption = \单击\ End If End 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.Left>Form1.Width Then，图片再回到窗体左边界，此时图片左边距窗体左边界的距离为0。 打开代码窗口，修改后的代码如下： Private Sub Command2_Click() Timer1.Enabled = False End Sub

Private Sub Form_Load() Timer1.Interval = 500 End Sub

Private Sub Timer1_Timer()

Picture1.Left = Picture1.Left + 200 If Picture1.Left > Form1.Width Then Picture1.Left = 0 End If

HScroll1.Value = Picture1.Left

精心收集 精心编辑 精致阅读 如需请下载！

演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案

End 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 1 Dim a(6) As Integer

Private Sub Command1_Click()

Open App.Path & \ s = Input(LOF(1), #1) Text1.Text = s Close #1 End Sub

Private Sub Command2_Click() For i = 1 To Len(Text1) str1 = Mid(Text1, i, 1) Select Case LCase(str1) Case Is = \ a(1) = a(1) + 1 Case Is = \

精心收集 精心编辑 精致阅读 如需请下载！

演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案

a(2) = a(2) + 1 Case Is = \ a(3) = a(3) + 1 Case Is = \ a(4) = a(4) + 1 Case Is = \ a(5) = a(5) + 1 Case Is = \ a(6) = a(6) + 1 End Select Next i End Sub

Private Sub Command3_Click()

Open App.Path & \ For i = 1 To 6 Print #1, a(i); Next i Close #1 End Sub

按要求保存文件即可完成本题。

精心收集 精心编辑 精致阅读 如需请下载！

本文来源：https://www.bwwdw.com/article/smq7.html