【VB开源代码栏目提醒】：网学会员为广大网友收集整理了，VB编程题 - 编程语言，希望对大家有所帮助！

3-1 一、VB环境的基本使用本题两道小题 共10分 所有文件存储在考生文件夹 C:SowerCbtesExamVB下。

     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初始内容为空白再画一个水平滚动条其名称为Hscroll1Min属性和Max属性分别为0和100如图所示编写适当的事件过程。

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

     要求 不得使用任何变量 注意 存盘时工程文件名为sjt2.vbp窗体文件名为sjt2.frm。

     程序代码如下所示 Private Sub List1_Click Text1.Text List1.Text HScroll1.Value List1.Text End Sub 二、VB简单程序设计本题两道小题 共14分 所有文件存储在考生文件夹 C:sowerCbtesExamVB下 1在考生文件夹下有一个工程文件sjt3.vbp相应的窗体文件为sjt3.frm。

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

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

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

     要求 去掉程序中的注释符把程序中的改为正确的内容使其能正确运行但不能修改程序中其他部分也不能修改控件的属性。

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

     Option Base 1 Private Sub Command1_Click Dim Arr Arr Array43 68 -25 65 -78 12 -79 43 -94 72 pos 0 neg 0 For k 1 To 10 If Arrk 0 Then pos pos Arrk Else neg neg Arrk End If Next k Text1.Text 正数之和为 Strpos Text2.Text 负数之和为 Strneg End Sub 2在考生文件夹下有一个工程文件sjt4.vbp相应的窗体文件为sjt4.frm。

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

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

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

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

     Private Sub Form_Load Command1.Caption 开始 Command2.Caption 停止 Timer1.Interval 100 Timer1.Enabled False Label1.Caption 国 Label1.AutoSize True Label1.FontBold True End Sub Private Sub Command1_Click Command1.Caption 继续 Timer1.Enabled True Command1.Enabled False Command2.Enabled True End Sub Private Sub Command2_Click Timer1.Enabled False Command2.Enabled False Command1.Enabled True End Sub Private Sub Timer1_Timer If Label1.FontSize