vb套题字母查找.docx

vb套题字母查找.docx

《vb套题字母查找.docx》由会员分享，可在线阅读，更多相关《vb套题字母查找.docx（58页珍藏版）》请在冰豆网上搜索。

vb套题字母查找

第44套：

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

注意：

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

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

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

（1）在标题为“列表框”、名称为Form1的窗体上画一个名称为List1列表框，

通过属性窗口输入四个列表项：

“数学”、“语文”、“历史”、“地理

”，列表项采用“复选框形式”，如图所示。

列表框的宽为1100，高不限。

注意：

存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名

为sjt1.frm。

解题思路：

启动VisualBasic系统，创建一个Form1窗体。

在该窗体上画一个列表框控件，通过其属性窗口将名称设为List1，向列表框中添加项目（List属性），添加的项目分别为“数学”、“语文”、“历史”、“地理”，每个项目为一行，宽（Width属性）设为1100，Style属性设为1。

　　参考文件：

c:

\wexam\26990001\hlpsys\参考答案\sjt1.vbp、sjt1.frm、sjt1.vbw

　　请把这些文件复制到c:

\wexam\26990001中，然后打开sjt1.vbp文件并运行。

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

（2）在名称为Form1的窗体上建立一个名称为“menu1”、标题为“文件”的弹

出式菜单，含有三个菜单项，它们的标题分别为：

“打开”、“关闭”、

“保存”，名称分别为“m1”、“m2”、“m3”。

再画一个命令按钮，名

称为“Command1”、标题为“弹出菜单”。

要求：

编写命令按钮的Click

事件过程，使程序运行时，单击“弹出菜单”按钮可弹出“文件”菜单（

如图所示）。

注意：

程序中不得使用变量，事件过程中只能写一条语句。

存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名

为sjt2.frm。

解题思路：

启动VisualBasic系统，创建一个Form1窗体。

在该窗体上通过菜单编辑器建立一个主菜单，在菜单编辑器的标题处输入“文件”，名称处输入menu1，将“可见”单选按钮设为不选状态。

在“文件”菜单下有三个子菜单，在菜单编辑器的标题处分别输入“打开”、“关闭”、“保存”，名称处分别输入m1、m2、m3。

画一个命令按钮控件，通过其属性窗口将名称设为Command1，标题（Caption属性）设为“弹出菜单”。

单击“弹出菜单”按钮（即运行Click事件过程），在该Click事件过程中加入语句：

PrivateSubCommand1_Click（）

Form1.PopupMenumenu1

'或PopupMenumenu1

EndSub

　　参考文件：

c:

\wexam\26990001\hlpsys\参考答案\sjt2.vbp、sjt2.frm、sjt2.vbw

　　请把这些文件复制到c:

\wexam\26990001中，然后打开sjt2.vbp文件并运行。

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

注意：

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

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

（1）在考生目录下有一个工程文件sjt3.vbp，包含了所有控件和部分程序。

程序运行时，在文本框中每输入一个字符，则立即判断：

若是小写字母，

则把它的大写形式显示在标签Label1中，若是大写字母，则把它的小写

形式显示在Label1中，若是其他字符，则把该字符直接显示在Label1中。

输入的字母总数则显示在标签Label2中，如图所示。

要求：

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

改为正确的内容。

注意：

不得修改已经存在的程序，最后把修改后的文件按原文件名存盘。

解题思路：

启动VisualBasic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp，相应的窗体文件名为sjt3.frm。

由于所提供的窗体程序不完整，在文本框输入字符，即运行PrivateSubText1_Change（）事件过程，在该事件过程中，有三处地方需要修改。

1）将语句

'ch=Right$（?

）

改为

ch=Right$（Text1,1）

2）将语句

'Label1.Caption=?

改为

Label1.Caption=Right$（Text1,1）

3）将语句

'Label2.Caption=?

改为

Label2.Caption=n

　　参考文件：

c:

\wexam\26990001\hlpsys\参考答案\sjt3.vbp、sjt3.frm、sjt3.vbw

　　请把这些文件复制到c:

\wexam\26990001中，然后打开sjt3.vbp文件并运行。

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

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

窗体中有一个图片框，图片

框中有一个名称为Shape1的蓝色圆，如图所示。

程序运行时，单击“开始”按钮，圆逐渐变大（圆心位置不变），当圆

充满图片框时则变为红色，并开始逐渐缩小，当缩小到初始大小时又变

为蓝色，并再次逐渐变大，如此往复。

单击“停止”按钮，则停止变化。

文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注

释符，把程序中的？

改为正确的内容。

提示：

程序中的符号常量bule_color表示蓝色的值，red_color表示红色的值。

注意：

不能修改程序的其他部分和各控件的属性。

最后把修改后的文件按原

文件名存盘。

解题思路：

启动VisualBasic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。

由于所提供的窗体程序不完整，在“开始”按钮的PrivateSubCommand1_Click（）事件过程中，有一处地方需要修改。

1）将语句

'Timer1.Enabled=?

改为

Timer1.Enabled=True

在计时器的PrivateSubTimer1_Timer（）事件过程中，有四处地方需要修改。

1）将语句

'Shape1.FillColor=?

改为

Shape1.FillColor=red_color

2）将语句

'?

=Shape1.Left+50

改为

Shape1.Left=Shape1.Left+50

3）将语句

'?

=Shape1.Top+50

改为

Shape1.Top=Shape1.Top+50

4）将语句

'Shape1.FillColor=?

改为

Shape1.FillColor=blue_color

　　参考文件：

c:

\wexam\26990001\hlpsys\参考答案\sjt4.vbp、sjt4.frm、sjt4.vbw

　　请把这些文件复制到c:

\wexam\26990001中，然后打开sjt4.vbp文件并运行。

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

3.综合应用（1小题，计30分）

注意：

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

在考生目录下有一个工程文件sjt5.vbp，包含了所有控件和部分程序。

程序

运行时，单击“打开文件”按钮，则弹出“打开”对话框，默认文件类型为

“文本文件”，默认目录为考生目录。

选中in5.txt文件（如图1所示），单

击“打开”按钮，则把文件中的内容读入并显示在文本框（Text1）中；单

击“修改内容”按钮，则可把Text1中的大写字母“E”、“N”、“T”改为

小写，把小写字母“e”、“n”、“t”改为大写；单击“保存文件”按钮，

则弹出“另存为”对话框，默认文件类型为“文本文件”，默认目录为考生

目录，默认文件为“out5.txt”（如图2所示），单击“保存”按钮，则把

Text1中修改后的内容存到out5.txt文件中。

窗体中已经给出了所有控件和程序，但程序不完整，去掉程序中的注释符，

把程序中的？

改为正确的内容，并编写“修改内容”按钮的Click事件过

程。

注意：

考生不得修改已经存在的程序。

必须把Text1中修改后的内容用“保存文

件”按钮存储结果，否则无成绩。

最后，按原文件名把程序存盘。

解题思路：

启动VisualBasic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。

由于所提供的窗体程序不完整，需添加事件过程。

单击“修改内容”按钮（即运行Click事件过程），在该Click事件过程中加入语句：

PrivateSubCommand2_Click（）

s=""

str_len=Len（Text1）

Fork=1Tostr_len

ch=Mid$（Text1,k,1）

Ifch="E"Orch="N"Orch="T"Then

s=s&LCase（ch）

ElseIfch="e"Orch="n"Orch="t"Then

s=s&UCase（ch）

Else

s=s&ch

EndIf

Nextk

Text1=s

EndSub

在“打开文件”按钮的PrivateSubCommand1_Click（）事件过程中，有三处地方需要修改。

1）将语句

'CommonDialog1.FilterIndex=?

改为

CommonDialog1.FilterIndex=2

2）将语句

'Open?

ForInputAs#1

改为

OpenCommonDialog1.ForInputAs#1

3）将语句

'Text1.Text=?

改为

Text1.Text=s

在“打开文件”按钮的PrivateSubCommand3_Click（）事件过程中，有三处地方需要修改。

1）将语句

'CommonDialog1.Action=?

改为

CommonDialog1.Action=2

　　参考文件：

c:

\wexam\26990001\hlpsys\参考答案\sjt5.vbp、sjt5.frm、sjt5.vbw、out5.dat

　　请把这些文件复制到c:

\wexam\26990001中，然后打开sjt5.vbp文件并运行。

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※

第48套：

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

注意：

下面