操作题(答案).doc

第一题：在VB集成环境下,按照以下要求编写程序,存盘并运行。(1)在工程中添加一个窗体Form1并设置为启动窗体,在名称为Form1的窗体(菜单：工程添加窗体)上画一个命令按钮，其名称为Cmd1,caption为“移动”;(2)编写适当的事件过程。程序运行后，如果单击命令按钮Cmd1，则可使该 按钮移到窗体的左上角；要求：不得使用任何变量。（只允许通过属性的方式实现）Private Sub cmd1_Click()cmd1.Top = 0cmd1.Left = 0End Sub* 注意：存盘时必须存放在考生文件夹下，工程文件名为oper1.vbp， 窗体文件名为oper1.frm。提醒考生：务必要按要求保存！Cmd1.visible=false第二题：在VB集成环境下,按照以下要求编写程序,并运行。(1)在工程中添加一个名称为Form1的窗体,并将其设置为启动窗体,在Form1上 画一个命令按钮，其名称为Cmd1,caption为Cmd1;(2)编写适当的事件过程。程序运行后，如果单击命令按钮Cmd1，则可使该按 钮不可见；要求：不得使用任何变量。（只允许通过属性的方式实现）Private Sub Cmd1_Click()Comd1.Visible = FalseEnd 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 = 104）编写适当的事件过程，当程序运行后，如果移动垂直滚动条的滚动块，则在标签中显示滚动块的位置。Private Sub VScroll1_Change()Label1.Caption = VScroll1.ValueEnd Sub要求：不得使用任何变量。第八题：在VB集成环境下,按照以下顺序和要求编写程序,存盘并运行。1）新建一个工程并在工程中添加一个名称为Form1的窗体，设为启动窗体；2）在窗体上添加一个文本框，其名称为Text1；3）编写适当的事件过程。程序运行后，如果单击窗体，则可使文本框 移到窗体的左上角；双击窗体，文本框的尺寸增加一倍。要求：不得使用任何变量。Private Sub Form_click()Text1.Top = 0Text1.Left = 0End SubPrivate Sub Form_dblclick()Text1.Width = Text1.Width * 2Text1.Height = Text1.Height * 2End Sub第九题：在VB集成环境下,按照以下要求编写程序,存盘并运行。（1）新建一个工程，在工程序添加一个窗体Form1。（2）在窗体中添加一个文本框Text1和一个垂直滚动条VScroll1。（3）设置滚动条的属性，使得当鼠标单击滚动箭头时，滚动块的移动量为2（Smallchang）； 鼠标单击滚动块和滚动按钮之间的区域时，滚动块的移动量为5 (Largechange)。（4）在文本框中显示滚动块的当前位置。要求：不得使用任何变量。Private Sub VScroll1_Change()Text1.Text = VScroll1.ValueEnd 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.TextEnd 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.TextEnd Sub第十五题：在VB集成环境下,按照以下要求编写程序,存盘并运行。（1）新建一工