VB编程题分析分析和总结.docx

PAGE

PAGE10

3-1

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

所有文件存储在考生文件夹C:\Sower\CbtesExam\VB\下。

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

在名称为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

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

在名称为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.TextHScroll1.Value=List1.Text

EndSub

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

所有文件存储在考生文件夹C:\sower\CbtesExam\VB\下

在考生文件夹下有一个工程文件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)

EndIfNextk

Text1.Text=正数之和为：Str(pos)Text2.Text=负数之和为：Str(neg)

EndSub

在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm。在窗体上有两个命令按钮，其名称分别为Command1、Command2；一个标签，其名称为Label1；一个计时器，其名称为Timer1，如图所示。程序运行后，如果单击“开始”命令按钮，则该按钮变为禁用，而标题变为“继续”，同时标签中的字体每隔100毫秒增大0.1倍（即为原

来的1.1倍），如图所示，字体大小超过100后，自动缩小为8；如果单击“停止”命令按钮，则该按钮变为禁用，“继续”命令按钮变为有效，同时标签中的字体停止变化；再次单击“继续”命令按钮后，标签中的字体继续变化。

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

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

PrivateSubForm_Load()Command1.Caption=开始Command2.Caption=停止Timer1.Interval=100Timer1.Enabled=