发布时间 : 星期一 文章操作题（答案）更新完毕开始阅读
第一题：
在VB集成环境下,按照以下要求编写程序,存盘并运行。
(1)在工程中添加一个窗体Form1并设置为启动窗体,在名称为Form1的窗体(菜单：工程—添加窗体)上画一个命令按钮，其名称为Cmd1,caption为“移动”;
(2)编写适当的事件过程。程序运行后，如果单击命令按钮Cmd1，则可使该 按钮移到窗体的左上角； 要求：不得使用任何变量。（只允许通过属性的方式实现） Private Sub cmd1_Click()
cmd1.Top = 0 cmd1.Left = 0 End Sub
* 注意：存盘时必须存放在考生文件夹下，工程文件名为oper1.vbp， 窗体文件名为oper1.frm。 提醒考生：务必要按要求保存！ Cmd1.visible=false 第二题：
在VB集成环境下,按照以下要求编写程序,并运行。
(1)在工程中添加一个名称为Form1的窗体,并将其设置为启动窗体,在Form1上 画一个命令按钮，其名称为Cmd1,caption为Cmd1;
(2)编写适当的事件过程。程序运行后，如果单击命令按钮Cmd1，则可使该按 钮不可见；
要求：不得使用任何变量。（只允许通过属性的方式实现） Private Sub Cmd1_Click() Comd1.Visible = False End Sub
第三题：
在VB集成环境下,按照以下要求和顺序编写程序,存盘并运行。
在工程中添加一个名称为Form1的窗体并设为启动窗体，在窗体上画一个水平 滚动条，其名称为HScroll1，然后通过属性窗口设置窗体和滚动条的属性， 实现如下功能：
1）窗体标题为\设置滚动条属性\
2）滚动条所能代表的最小值和最大值分别为0和200（max=200,min=0）
3）程序运行后，单击滚动条两端的箭头时，滚动框移动的增量为2(Smallchange)
4）程序运行后，单击滚动框前面或后面的部位时，滚动框移动的增量值为10(Largechange) 5）滚动框的初始位置为100(Value) .
第四题：
在VB集成环境下,按照以下的顺序和要求设计Visual Basic应用程序,存盘并运行。 在工程中添加一个名称为Form1的窗体上,并设置为启动窗体,在窗体上画三个 单选按钮，其名称分别为Option1、Option2和Option3，然后通过属性窗口设 置窗体和单选按钮的属性，实现如下功能： 1）窗体标题为\设置单选按钮属性\
2）三个单选按钮的标题分别为\按钮1\、\按钮2\和\按钮3\
1
3）初始状态为，第一个选项按钮为选中(Value--True) 4）程序运行后，第二个选项按钮不可用(Enable--False) 5）程序运行后，第三个选项按钮不可见(Visible--False)
第五题：
在VB集成环境下,按照以下顺序和要求编写程序,存盘并运行。 1）在工程中添加一个名称为Form1的窗体并设为启动窗体；
2）在窗体上画一个文本框，其名称为Text1，字体为\黑体\，字号为12,(Font ) 文本框中的初始内容为\程序设计\；
3）在窗体上添加一个命令按钮，名称为C1，标题为\改变字体\。 请编写适当事件过程，使得在运行时，单击命令按钮，则把文本框中的文字 的字体改为\隶书\。程序中不得使用任何变量。 Text1.Font.Name = \隶书\
第六题：
在VB集成环境下,按照以下顺序和要求编写程序,存盘并运行。 1）在工程中添加一个名称为Fom1的窗体上并设为启动窗体；
2）建立一个二级菜单，第一组含2个菜单项，标题分别为\编辑\、\帮助\， 名称分别为edit、help。其中\编辑\菜单含有子菜单，子菜单有3个菜单 项，其标题依次为\剪切\、\复制\、\粘贴\，名称分别为\、\、 \。
(p193，Ctrl+E，先在完成一级菜单，然后选中编辑，单击右箭头，产生一级子菜单 ) * 注意：存盘时必须存放在考生文件夹下，工程文件名为oper1.vbp， 窗体文件名为oper1.frm。 提醒考生：务必要按要求保存！
第七题：
在VB集成环境下,按照以下顺序和要求编写程序,存盘并运行。 1）在工程中添加一个名称为Form1的窗体，并设为启动窗体；
2）在窗体上添加一个垂直滚动条，名称为VScroll1；添加一个标签，名称为Label1。 3）则按如下要的要求，设置垂直滚动条的属性： Max = 3000 Min = 0
LargeChange = 50 SmallChange = 10
4）编写适当的事件过程，当程序运行后，如果移动垂直滚动条的滚动块，则在标签中显示滚动块的位置。
Private Sub VScroll1_Change()
Label1.Caption = VScroll1.Value End Sub
要求：不得使用任何变量。
2
第八题：
在VB集成环境下,按照以下顺序和要求编写程序,存盘并运行。
1）新建一个工程并在工程中添加一个名称为Form1的窗体，设为启动窗体； 2）在窗体上添加一个文本框，其名称为Text1；
3）编写适当的事件过程。程序运行后，如果单击窗体，则可使文本框 移到窗体的左上角；双击窗体，文本框的尺寸增加一倍。 要求：不得使用任何变量。 Private Sub Form_click()
Text1.Top = 0 Text1.Left = 0 End Sub
Private Sub Form_dblclick()
Text1.Width = Text1.Width * 2 Text1.Height = Text1.Height * 2 End Sub
第九题：
在VB集成环境下,按照以下要求编写程序,存盘并运行。 （1）新建一个工程，在工程序添加一个窗体Form1。
（2）在窗体中添加一个文本框Text1和一个垂直滚动条VScroll1。
（3）设置滚动条的属性，使得当鼠标单击滚动箭头时，滚动块的移动量为2（Smallchang）； 鼠标单击滚动块和滚动按钮之间的区域时，滚动块的移动量为5 (Largechange)。 （4）在文本框中显示滚动块的当前位置。 要求：不得使用任何变量。 Private Sub VScroll1_Change() Text1.Text = VScroll1.Value End Sub
第十题：
在VB集成环境下,按照以下要求编写程序,存盘并运行。 （1）新建一个工程，在工程序添加一个窗体Form1。
（2）在窗体中添加一个列表框List1；添加一个命令按钮Command1，Caption属性 为“删除”。
（3）设计阶段在列表框中添加以下4个项目： 学号 姓名 英语
VB程序设计
Private Sub Form_Load() List1.AddItem \学号 \List1.AddItem \姓名 \List1.AddItem \英语 \
List1.AddItem \程序设计\End Sub
3
第十一题：
在VB集成环境下,按照以下要求编写程序,存盘并运行。
（1）新建一个窗体，名称为F1,在窗体上添加一个标签Label1，一个文本框Text1,
在属性窗口里设置窗体的背景色为黑色(Backcolor)，标签和文本框的前景色为红色(Forecolor)，标签(Caption)和文本(Text)框初始内容为空。
（2）编写Text1的Change事件过程，使得运行时，标签上显示的文字会随着文本框 里输入的内容发生变化并保持一致。 private Sub Text1_Change()
Label1.Caption = Text1.Text End Sub
第十二题：
在VB集成环境下,按照以下要求和顺序操作,并运行。添加一个名称为Form1 的窗体并设为启动窗体，在窗体上画一个文本框，其名称为Text1，然后通 过属性窗口设置窗体和文本框的属性，实现如下功能： 1）在文本框中可以显示多行文本(Multiline=Ture) 2）在文本框中显示垂直滚动条(ScrollBars=2,p21) 3）文本框中显示的初始信息为\程序设计\ 4）文本框中显示的字号16、字体为黑体(Font) 5）窗体的标题为\设置文本框属性\要求：不编写任何代码。
第十三题：
在VB集成环境下,按照以下顺序和要求编写程序,存盘并运行。 1）在工程中添加一个名称为Form1的窗体并设为启动窗体； 2）在窗体上画两个命令按钮，其名称分别为Cmd1和Cmd2；
3）编写适当的事件过程。程序运行后，如果单击命令按钮Cmd1，则可使该 按钮移到窗体的左上角（只允许通过属性的方式实现）；如果单击命令 按钮Cmd2，则可使该按钮在长度和宽度上各扩大到原来的3倍。 要求：不得使用任何变量。 (同第八题)
第十四题：
在VB集成环境下,按照以下要求编写程序,存盘并运行。
（1）新建一个窗体，名称为Form1，在窗体上画两个文本框，名称分别为 T1和T2，内容为空白（Text）。
（2）编写Text1的Change事件过程代码，当T1中输入了内容时，T2中的也 随之出现相同的内容。 Private Sub T1_Change() T2.Text = T1.Text End Sub
4
第十五题：
在VB集成环境下,按照以下要求编写程序,存盘并运行。
（1）新建一工程，包含两个窗体form1和form2，并将form1设置为启动窗体。 （2）在form1窗体上有一命令按钮command1,标题内容为\显示form2\。（Caption） （3）运行时单击命令按钮，将显示form2。 *要求：不得使用任何变量。 Private Sub Command1_Click() Form1.Visible = False Form2.Visible = True End Sub
5