VB程序设计上机题目.docx

VB程序设计上机题目.docx

《VB程序设计上机题目.docx》由会员分享，可在线阅读，更多相关《VB程序设计上机题目.docx（7页珍藏版）》请在冰豆网上搜索。

VB程序设计上机题目

VB程序设计上机题目

45

1.基本操作（2小题，每小题15分，共计30分）

注意：

下面出现的"考生文件夹"均为%USER%

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

请根据以下各小题的要求设计VisualBasic应用程序（包括界面和代码）。

（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-RightJustify。

打开代码窗口，添加如下代码

PrivateSubOption1_Click（）

Text1.Text=Option1.Caption&Text1.Text

EndSub

PrivateSubOption2_Click（）

Text1.Text=Text1.Text&Option2.Caption

EndSub

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

2.简单应用（2小题，每题20分，计40分）

注意：

下面出现的"考生文件夹"均为%USER%

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

（1）考生文件夹中有工程文件sjt3.vbp。

窗体上有名称为Label1、标题为"标签

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

单

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

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

请去

掉程序中的注释符，把程序中的？

改为正确的内容。

注意：

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

存盘。

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

（2）在考生文件夹下有一个工程文件sjt4.vbp。

程序运行后，如果单击"开始

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

动一次。

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

新移动，若单击"停止"按钮，则图片停止移动，如图所示。

在窗体文件

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

要求：

请去掉程序中的注释符，把程序中的？

改为正确的内容，使其实现上

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

最后把修改后的文件

按原文件名存盘。

评析

第1小题：

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

①在VB中也可以把对象作为参数向过程传递。

在形参表中，把形参变量的类型声明为"Control"，就可以向过程传递控件。

对象的传递只能是按地址传递。

在用控件作为参数时，必须考虑到作为实参的控件是否具有通用过程中所列的控件的属性。

为此，VisualBasic提供了一个TypeOf语句，其格式为：

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

TypeOf语句放在通用过程中，"控件名称"实际上指的控件参数（形参）的名字，即"AsControl"前面的参数名。

"控件类型"是代表各种不同控件的关键字。

解题方法：

应用程序中的ShowName是以控件对象为参数的通用过程。

若单击命令按钮Command1，调用执行事件过程Command1_Click，该过程以命令按钮名Command1为实参调用通用过程ShowName，执行ShowName后，在窗体中的Label2标签内显示"单击命令按钮"；若单击命令按钮Command2，调用执行事件过程Command2_Click，该过程以标签Label1为实参调用通用过程ShowName，执行ShowName后，在窗体中的Label2标签内显示"单击标签控件"。

打开代码窗口，修改后的代码如下：

PrivateSubCommand1_Click（）

CallShowName（Command1）

EndSub

PrivateSubLabel1_Click（）

CallShowName（Label1）

EndSub

PrivateSubShowName（cAsControl）

IfTypeOfcIsCommandButtonThen

Label2.Caption="单击"&Command1.Caption

EndIf

IfTypeOfcIsLabelThen

Label2.Caption="单击"&Label1.Caption

EndIf

EndSub

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

第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语句判断图片左边界是否完全移出窗体的右边界，如果是，图片左边界大于窗体的宽度，即IfPicture1.Left>Form1.WidthThen，图片再回到窗体左边界，此时图片左边距窗体左边界的距离为0。

打开代码窗口，修改后的代码如下：

PrivateSubCommand2_Click（）

Timer1.Enabled=False

EndSub

PrivateSubForm_Load（）

Timer1.Interval=500

EndSub

PrivateSubTimer1_Timer（）

Picture1.Left=Picture1.Left+200

IfPicture1.Left>Form1.WidthThen

Picture1.Left=0

EndIf

HScroll1.Value=Picture1.Left

EndSub

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

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#文件号

打开代码窗口，"读数"、"统计"、"存盘"按钮的代码如下：

OptionBase1

Dima（6）AsInteger

PrivateSubCommand1_Click（）

OpenApp.Path&"\"&"in5.txt"ForInputAs#1

s=Input（LOF

（1）,#1）

Text1.Te