VB编程题.docx

VB编程题.docx

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

VB编程题

3-1

一、VB环境的基本使用（本题两道小题共10分）

所有文件存储在考生文件夹C:

\Sower\CbtesExam\VB\下。

（1）新建立一个工程文件，并按照下列要求进行操作：

在名称为Form1的窗体上画一个文本框，名称为Text1，内容为“VB程序设计”；再画两个命令按钮，其名称分别为Command1和Command2，标题分别为“扩大”和“缩小”，如图所示，编写适当的事件过程。

程序运行后，每单击Command1命令按钮一次，文本框中文本的字体扩大1.2倍；每单击Command2命令按钮一次，文本框中文字的字体缩小1.2倍。

注意：

存盘时工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。

PrivateSubCommand1_Click（）

Text1.FontSize=Text1.FontSize*1.2

EndSub

PrivateSubCommand2_Click（）

Text1.FontSize=Text1.FontSize/1.2

EndSub

（2）新建立一个工程文件，并按照下列要求进行操作：

在名称为Form1的窗体上画一个列表框，其名称为List1，通过属性窗口向列表框中输入9个项目，分别为：

10、20、30、40、50、60、70、80、90；画一个文本框，其名称为Text1，初始内容为空白；再画一个水平滚动条，其名称为Hscroll1，Min属性和Max属性分别为0和100，如图所示，编写适当的事件过程。

程序运行后，如果单击列表框中的某个项目，则在文本框中显示该项目内容，并把滚动条的滚动框移动到相应的位置，如图所示。

要求：

不得使用任何变量

注意：

存盘时工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。

程序代码如下所示：

PrivateSubList1_Click（）

Text1.Text=List1.Text

HScroll1.Value=List1.Text

EndSub

二、VB简单程序设计（本题两道小题共14分）

所有文件存储在考生文件夹C:

\sower\CbtesExam\VB\下

（1）在考生文件夹下有一个工程文件sjt3.vbp，相应的窗体文件为sjt3.frm。

在窗体上有一个命令按钮（名称为Command1，标题为“计算并输出”）和两个文本框（名称分别为Text1和Text2），如图所示。

程序运行后，单击命令按钮，即可计算出数组Arr中正数之和pos和负数之和neg，并分别在两个文本框中显示出来。

该程序不完整，请把它补充完整。

要求：

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

改为正确的内容，使其能正确运行，但不能修改程序中其他部分，也不能修改控件的属性。

最后用原来的文件名保存工程文件和窗体文件。

OptionBase1

PrivateSubCommand1_Click（）

DimArr

Arr=Array（43,68,-25,65,-78,12,-79,43,-94,72）

pos=0

neg=0

Fork=1To10

IfArr（k）>0Then

pos=pos+Arr（k）

Else

neg=neg+Arr（k）

EndIf

Nextk

Text1.Text="正数之和为：

"&Str（pos）

Text2.Text="负数之和为：

"&Str（neg）

EndSub

（2）在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm。

在窗体上有两个命令按钮，其名称分别为Command1、Command2；一个标签，其名称为Label1；一个计时器，其名称为Timer1，如图所示。

程序运行后，如果单击“开始”命令按钮，则该按钮变为禁用，而标题变为“继续”，同时标签中的字体每隔100毫秒增大0.1倍（即为原来的1.1倍），如图所示，字体大小超过100后，自动缩小为8；如果单击“停止”命令按钮，则该按钮变为禁用，“继续”命令按钮变为有效，同时标签中的字体停止变化；再次单击“继续”命令按钮后，标签中的字体继续变化。

这个程序不完整，请仔细阅读已有内容，并把它补充完整，使之能正确运行。

要求：

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

改正为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，最后把修改后的文件按原文件名存盘。

PrivateSubForm_Load（）

Command1.Caption="开始"

Command2.Caption="停止"

Timer1.Interval=100

Timer1.Enabled=False

Label1.Caption="国"

Label1.AutoSize=True

Label1.FontBold=True

EndSub

PrivateSubCommand1_Click（）

Command1.Caption="继续"

Timer1.Enabled=True

Command1.Enabled=False

Command2.Enabled=True

EndSub

PrivateSubCommand2_Click（）

Timer1.Enabled=False

Command2.Enabled=False

Command1.Enabled=True

EndSub

PrivateSubTimer1_Timer（）

IfLabel1.FontSize<=100Then

Label1.FontSize=Label1.FontSize*1.1

Else

Label1.FontSize=8

EndIf

EndSub

5-1

一、VB环境的基本使用（本题两道小题共10分）

所有文件存储在考生文件夹C:

\Sower\CbtesExam\VB\下。

（1）新建立一个工程文件，并按照下列要求进行操作：

在名称为Form1的窗体上画两个标签，（名称分别为Label1和label2，标题分别为“书名”和“作者”）、两个文本框（名称分别为Text1和Text2，Text属性均为空白）和一个命令按钮（名称为Command1，标题为“显示”）。

然后编写命令按钮的Click事件过程。

程序运行后，在两个文本框中分别输入书名和作者，然后单击命令按钮，则在窗体的标题栏上显示两个文本框的内容，如图2所示。

要求程序中不得使用任何变量。

注意：

存盘时工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。

图1图2

代码如下所示：

PrivateSubCommand1_Click（）

Form1.Caption=Text1.Text&"，"&Label2.Caption&""&Text2.Text

EndSub

（2）新建立一个工程文件，并按照下列要求进行操作：

在名称为Form1的窗体上画一个垂直滚动条（名称为Vscroll1）和一个水平滚动条（名称为Hscroll1），如图1所示。

在属性窗口中对两个滚动条设置如下属性：

Min1500

Max6000

LargeChange200

SmallChange50

编写适当的事件过程。

程序运行后，如果移动滚动条上的滚动框，则可扩大或缩小窗体。

运行后的窗体如图2所示。

要求程序中不得使用任何变量。

注意：

存盘时工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。

代码如下所示：

PrivateSubHScroll1_Change（）

Form1.Width=HScroll1.Value

EndSub

PrivateSubVScroll1_Change（）

Form1.Height=VScroll1.Value

EndSub

二、VB简单程序设计（本题两道小题共14分）

所有文件存储在考生文件夹C:

\sower\CbtesExam\VB\下

（1）打开考生文件夹下工程文件sjt3.vbp，在窗体（名称为Form1，KeyPreview属性为True）上画一个列表框（名称为List1）和一个文本框（名称为Text1），如图1所示。

编写窗体的KeyDown事件过程。

程序运行后，如果用“A”键，则从键盘上输入要添加到列表框框中的项目（内容任意，不少于三个）；如果按“D”键，则从键盘上输入要删除的项目，将其从列表框中删除。

程序的运行情况如图2所示。

在考生文件夹下有一个工程文件sjt2.vbp（相应的窗体文件名为sjt2.frm），可以实现上述功能。

但这个程序不完整，请把它补充完整。

要求：

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

改为适当的内容，使其正确运行，但不能修改程序中的其他部分。

最后把修改后的文件按原文件名存盘。

图1图2

程序代码如下所示：

PrivateSubForm_KeyDown（KeyCodeAsInteger,ShiftAsInteger）

IfChr（KeyCode）="A"Then

Text1.Text=InputBox（"请输入要添加的项目"）

List1.AddItemText1.Text

EndIf

IfChr（KeyCode）="D"Then

Text1.Text=InputBox（"请输入要删除的项目"）

Fori=0ToList1.ListIndex-1

IfList1.List（i）=Text1.TextThen

List1.RemoveItemi

EndIf

Nexti

EndIf

EndSub

（2）在考生文件夹下有一个工程文件sjt4.vbp（相应的窗体文件名为sjt4.frm），其功能是通过通用过程Average求数组的平均值。

请装入该文件。

程序运行后，在四个文本框中各输入一个整数，然后单击命令按钮，即可求出数组的平均值，并在窗体上显示出来（如图所示）。

这个程序不完整，请把它补充完整，并能正确运行。

注意：

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

改为适当的内容，使其实现上述功能，但不能修改程序中的其他部分。

最后把修改后的文件按原文件名存盘。

程序代码如下所示：

OptionBase1

PrivateFunctionAverage（a（）AsInteger）AsSingle

DimStartAsInteger,FinishAsInteger

DimiAsInteger

DimSumAsInteger

Start=LBound（a）

Finish=UBound（a）

Sum=0

Fori=StartToFinish

Sum=Sum+a（i）

Nexti

Average=Sum/Finish

EndFunction

PrivateSubCommand1_Click（）

Dimarr1

Dimarr2（4）AsInteger

arr1=Array（Val（Text1.Text）,Val（Text2.Text）,Val（Text3.Text）,Val（Text4.Text））

Fori=1To4

arr2（i）=CInt（arr1（i））

Nexti

Aver=Average（arr2（））

Print"平均值是:

";Aver

EndSub

三、VB综合程序设计（本题16分）

所有文件存储在考生文件夹C:

\Sower\CbtesExam\VB\下

打开考生目录下工程文件sjt5.vbp，在窗体上建立三个菜单（名称分别为Read、Calc、Save，标题分别为“读入数据”、“计算并输出”和“存盘”），然后画一个文本框（名称为Text1，MultiLine属性设置为True，ScrollBars属性设置为2）（如图所示）。

程序运行后，如果执行“读入数据”命令，则读入datain1.txt文件中的100个整数，放入一个数组中，数组的下界为1；如果单击“计算并输出”菜单，则把该数组中可以被3整除的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果单击“存盘”菜单，则把所求得的和存入考生文件夹下的dataout.txt文件中。

在考生文件夹下有一个工程文件sjt5.vbp，考生可以装入该文件。

窗体文件中的ReadData过程可以把datain1.txt文件中的100个整数读入Arr数组中；而WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中（整数值通过计算求得，文件名为dataout.txt）。

注意：

考生不得修改窗体文件中已经存在的程序。

存盘时，工程文件名仍为sjt5.vbp，窗体文件名仍为sjt5.frm。

程序代码如下所示：

OptionBase1

DimArr（100）AsInteger

DimsumAsInteger

SubReadData（）

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

Fori=1To100

Input#1,Arr（i）

Nexti

Close#1

EndSub

SubWriteData（FilenameAsString,NumAsInteger）

OpenApp.Path&"\"&FilenameForOutputAs#1

Print#1,Num

Close#1

EndSub

PrivateSubcalc_Click（）

DimiAsInteger

sum=0

Text1.Text=""

Fori=1To100

IfArr（i）Mod3=0Then

sum=sum+Arr（i）

Text1.Text=Arr（i）&vbCrLf&Text1.Text

EndIf

Nexti

Printsum

EndSub

PrivateSubread_Click（）

CallReadData

EndSub

PrivateSubsave_Click（）

CallWriteData（"outdata.txt",sum）

EndSub

7-1

一、VB环境的基本使用（本题两道小题共10分）

所有文件存储在考生文件夹C:

\Sower\CbtesExam\VB\下。

（1）新建立一个工程文件，并按照下列要求进行操作：

在名称为Form1的窗体上画两个文本框，其名称分别为Text1和Text2，它们的高、宽分别为300、2400和1200、2400。

窗体的标题为“窗口”。

请通过属性窗口设置适当的属性满足以下要求：

1）Text2可以显示多行文本，且有垂直和水平两个滚动条；

2）运行时在Text1中输入的字符都显示为“*”。

运行后的窗体如图所示。

注意：

存盘时工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。

操作步骤：

1．画第一个文本框，其height和width属性值分别为300和2400，其PassWordChar属性值为“*”；

2．画第二个文本框，其height和width属性值分别为1200和2400，其MultiLine属性为True、ScrollBars属性值为3-Both即可。

（2）新建立一个工程文件，并按照下列要求进行操作：

在名称为Form1的窗体上画一个图像框，名称为Image1，其高、宽分别为1900、1700，通过属性窗口把考生文件夹下的图像文件pic1.bmp装入图像框；再画两个命令按钮，名称分别为C1、C2，标题分别为“放大”、“缩小”，如图所示。

要求：

1）请编写适当的事件过程，程序运行后，如果单击“放大”按钮，则把图像框的高度、宽度均增加100；单击“缩小”按钮，则把图像框的高度、宽度均减少100。

要求程序中不得使用任何变量。

2）通过属性窗口设置图像框的适当属性，使得在放大、缩小图像框时，其中的图像也自动放大、缩小。

注意：

存盘时工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。

程序的代码如下所示：

PrivateSubCommand1_Click（）

Image1.Height=Image1.Height+100

Image1.Width=Image1.Width+100

EndSub

PrivateSubCommand2_Click（）

Image1.Height=Image1.Height-100

Image1.Width=Image1.Width-100

EndSub

设置图像框的stretch属性为true时，图像将随框的变化而变化。

图1初始状态图图2运行结果图

二、VB简单程序设计（本题两道小题共14分）

所有文件存储在考生文件夹C:

\Sower\CbtesExam\VB\下。

（1）在考生文件夹下有一个工程文件sjt3.vbp，它包含两个名称分别为Form1和Form2的窗体，Form1和Form2窗体上建立了标题分别为“C1”和“C2”的按钮。

请先把Form1上按钮的标题改为“结束”，把Form2按钮的标题改为“显示”，并将Form2设为启动窗体，将Form1设为不显示。

该程序实现的功能是：

在程序运行时显示Form2窗体，单击Form2上的“显示”按钮，则显示Form1窗体，若单击Form1上的“结束”按钮，则关闭Form1和Form2，并结束程序运行。

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

改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，最后把修改后的文件按原文件名存盘。

正确程序运行后的界面如图所示。

程序代码：

Form2窗体中的命令按钮的单击事件过程：

PrivateSubC2_Click（）

LoadForm1

Form1.Visible=True

EndSub

Form1窗体中的命令按钮的单击事件过程：

PrivateSubC1_Click（）

End

EndSub

（2）在考生文件夹下有一个工程文件sjt4.vbp，窗体上有一个名为P1的图片框；一个单选按钮数组，含三个单选按钮，标题分别为“正方形”、“椭圆形”、“圆形”；还有一个标题为“显示”的命令按钮。

程序的功能是在运行时，如果选中一个单选按钮后，单击“显示”按钮，则根据单选按钮的选中情况，在图片框中显示“选择了正方形”、“选择了椭圆形”或“选择了圆形”，如图所示。

要求：

1）原题中的单选按钮和命令按钮没有标题，请利用属性窗口依次添加单选按钮标题分别为“正方形”、“椭圆形”、“圆形”，添加命令按钮标题为“显示”。

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

改为正确的内容，使其实现上述功能。

注意：

不能修改程序中的其他部分，也不能修改控件的其他属性。

最后把修改后的程序以原文件名存盘。

8-1

一、VB环境的基本使用（本题两道小题共10分）

所有文件存储在考生文件夹C:

\Sower\CbtesExam\VB\下。

（1）新建立一个工程文件，并按照下列要求进行操作：

在名称为Form1的窗体上画

。

注意：

存盘时工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。

（2）新建立一个工程文件，并按照下列要求进行操作：

在名称为Form1的窗体上画一个

编写适当的事件过程。

程序运行后，如果移动滚动条上的滚动框，则可扩大或缩小窗体。

运行后的窗体如图2所示。

要求程序中不得使用任何变量。

注意：

存盘时工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。

二、VB简单程序设计（本题两道小题共14分）

所有文件存储在考生文件夹C:

\sower\CbtesExam\VB\下

（1）在考生文件夹下有一个工程文件sjt3.vbp，相应的窗体文件为sjt3.frm。

在窗体上有一个命令按钮（名称为Command1，标题为“计算并输出”）和两个文本框（名称分别为Text1和Text2），如图所示。

程序运行后，单击命令按钮，即可计算出数组Arr中正数之和pos和负数之和neg，并分别在两个文本框中显示出来。

该程序不完整，请把它补充完整。

要求：

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

改为正确的内容，使其能正确运行，但不能修改程序中其他部分，也不能修改控件的属性。

最后用原来的文件名保存工程文件和窗体文件

2）在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm。

在窗体上有两个命令按钮，其名称分别为Command1、Command2；一个标签，其名称为Label1；一个计时器，其名称为Timer1，如图所示。

程序运行后，如果单击“开始”命令按钮，则该按钮变为禁用，而标题变为“继续”，同时标签中的字体每隔100毫秒增大0.1倍（即为原来的1.1倍），如图所示，字体大小超过100后，自动缩小为8；如果单击“停止”命令按钮，则该按钮变为禁用，“继续”命令按钮变为有效，同时标签中的字体停止变化；再次单击“继续”命令按钮后，标签中的字体继续变化。

这个程序不完整，请仔细阅读已有内容，并把它补充完整，使之能正确运行。

要求：

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

改正为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，最后把修改后的文件按原文件名存盘。

三、VB综合程序设计（本题16分）

所有文件存储在考生文件夹C:

\Sower\CbtesExam\VB\下

打开考生目录下工程文件sjt5.vbp，在窗体上建立三个菜单（名称分别为Read、Calc、Save，标题分别为“读入数据”、“计算并输出”和“存盘”），然后画一个文本框（名称为Text1，MultiLine属性设置为True，ScrollBars属性设置为2）（如图所示）。

程序运行后，如果执行“读入数据”命令，则读入datain1.txt文件中的100个整数，放入一个数组中，数组的下界为1；如果单击“计算并输出”菜单，则把该数组中可以被3整除的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果单击“存盘”菜单，则把所求得的和存入考生文件夹下的dataout.txt文件中。

在考生文件夹下有一个工程文件sjt5.vbp，考生可以装入该文件。

窗体文件中的ReadData过程可以把datain1.txt文件中的100个整数读入Arr数组中；而WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中（整数值通过计算求得，文件名为dataout.txt）。

注意：

考生不得修改窗体文件中已经存在的程序。

存盘时，工程文件名仍为sjt5.vbp，窗体文件名仍为sjt5.frm。

16-1

一、VB环境的基本使用（本题两道小题共10分）

所有文件存储在考生文件夹C:

\Sower\CbtesExam\VB\下

（1）新建立一个工程文件，并按照下列要求进行操作：

在名称为Form1，标题为“选课”的窗体上画一个复选框数组，名称为CH1，共有四个复选框