操作题(答案)（版）_操作题答案
操作题(答案)（版）由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“操作题答案”。
第一题：
在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”(Caption)3）初始状态为，第一个选项按钮为选中(Value--True)4）程序运行后，第二个选项按钮不可用(Enable--False)5）程序运行后，第三个选项按钮不可见(Visible--False)
第五题：
在VB集成环境下,按照以下顺序和要求编写程序,存盘并运行。1）在工程中添加一个名称为Form1的窗体并设为启动窗体；
2）在窗体上画一个文本框，其名称为Text1，字体为“黑体”，字号为12,(Font)
文本框中的初始内容为“程序设计”(Text)；
3）在窗体上添加一个命令按钮，名称为C1，标题为“改变字体”(Caption)。请编写适当事件过程，使得在运行时，单击命令按钮，则把文本框中的文字 的字体改为“隶书”。程序中不得使用任何变量。Text1.Font.Name = “隶书”
第六题：
在VB集成环境下,按照以下顺序和要求编写程序,存盘并运行。1）在工程中添加一个名称为Fom1的窗体上并设为启动窗体；
2）建立一个二级菜单，第一组含2个菜单项，标题分别为“编辑”、“帮助”，名称分别为edit、help。其中“编辑”菜单含有子菜单，子菜单有3个菜单
项，其标题依次为“剪切”、“复制”、“粘贴”，名称分别为“cut”、“copy”、“paste”。
(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 要求：不得使用任何变量。第八题：
在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 “VB程序设计” End Sub 第十一题：
在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）文本框中显示的初始信息为“程序设计”(Text)
4）文本框中显示的字号
16、字体为黑体(Font)
5）窗体的标题为“设置文本框属性”(Caption)要求：不编写任何代码。
第十三题：
在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 第十五题：
在VB集成环境下,按照以下要求编写程序,存盘并运行。
（1）新建一工程，包含两个窗体form1和form2，并将form1设置为启动窗体。（2）在form1窗体上有一命令按钮command1,标题内容为“显示form2”。（Caption）（3）运行时单击命令按钮，将显示form2。*要求：不得使用任何变量。Private Sub Command1_Click()Form1.Visible = False Form2.Visible = True End Sub
