VB编程题.docVIP

3-1 一、VB环境的基本使用（本题两道小题 共10分） 所有文件存储在考生文件夹 C:\Sower\CbtesExam\VB\下。 （1）新建立一个工程文件，并按照下列要求进行操作： 在名称为Form1的窗体上画一个文本框，名称为Text1，内容为“VB程序设计”；再画两个命令按钮，其名称分别为Command1和Command2，标题分别为“扩大”和“缩小”，如图所示，编写适当的事件过程。程序运行后，每单击Command1命令按钮一次，文本框中文本的字体扩大1.2倍；每单击Command2命令按钮一次，文本框中文字的字体缩小1.2倍。 注意： 存盘时工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 Private Sub Command1_Click() Text1.FontSize = Text1.FontSize * 1.2 End Sub Private Sub Command2_Click() Text1.FontSize = Text1.FontSize / 1.2 End Sub （2）新建立一个工程文件，并按照下列要求进行操作： 在名称为Form1的窗体上画一个列表框，其名称为List1，通过属性窗口向列表框中输入9个项目，分别为：10、20、30、40、50、60、70、80、90；画一个文本框，其名称为Text1，初始内容为空白；再画一个水平滚动条，其名称为Hscroll1，Min属性和Max属性分别为0和100，如图所示，编写适当的事件过程。程序运行后，如果单击列表框中的某个项目，则在文本框中显示该项目内容，并把滚动条的滚动框移动到相应的位置，如图所示。 要求： 不得使用任何变量 注意： 存盘时工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。 程序代码如下所示： Private Sub List1_Click() Text1.Text = List1.Text HScroll1.Value = List1.Text End Sub 二、VB简单程序设计（本题两道小题 共14分） 所有文件存储在考生文件夹 C:\sower\CbtesExam\VB\下 （1）在考生文件夹下有一个工程文件sjt3.vbp，相应的窗体文件为sjt3.frm。在窗体上有一个命令按钮（名称为Command1，标题为“计算并输出”）和两个文本框（名称分别为Text1和Text2），如图所示。程序运行后，单击命令按钮，即可计算出数组Arr中正数之和pos和负数之和neg，并分别在两个文本框中显示出来。 该程序不完整，请把它补充完整。 要求： 去掉程序中的注释符，把程序中的？改为正确的内容，使其能正确运行，但不能修改程序中其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。 Option Base 1 Private Sub Command1_Click() Dim Arr Arr = Array(43, 68, -25, 65, -78, 12, -79, 43, -94, 72) pos = 0 neg = 0 For k = 1 To 10 If Arr(k) 0 Then pos = pos + Arr(k) Else neg = neg + Arr(k) End If Next k Text1.Text = 正数之和为： Str(pos) Text2.Text = 负数之和为： Str(neg) End Sub （2）在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm。在窗体上有两个命令按钮，其名称分别为Command1、Command2；一个标签，其名称为Label1；一个计时器，其名称为Timer1，如图所示。程序运行后，如果单击“开始”命令按钮，则该按钮变为禁用，而标题变为“继续”，同时标签中的字体每隔100毫秒增大0.1倍（即为原来的1.1倍），如图所示，字体大小超过100后，自动缩小为8；如果单击“停止”命令按钮，则该按钮变为禁用，“继续”命令按钮变为有效，同时标签中的字体停止变化；再次单击“继续”命令按钮后，标签中的字体继续变化。 这个程序不完整，请仔细阅读已有内容，并把它补充完整，使之能正确运行。 要求： 去掉程序中的注释符，把程序中的？改正为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，最后把修改后的文件按原文件名存盘。 Private Sub Form_Load() Command1.Caption