VB操作题.docx

（1）在窗体上建立一个二级菜单，该菜单含有文件和帮助（名称分别为vbFile和vbHelp）两个主菜单项，其中文件菜单包括打开、关闭和退出三个子菜单项（名称分别为vbOpen、vbClose和vbExit），如图1-1所示。只建立菜单，不必定义其事件过程。 打开菜单编辑器窗口，建立菜单项。用到的菜单项及其属性见表 （2）在名为Form1的窗体上画一个框架，名称为Frm1，标题为框架，高度为2500，宽度为4000，框架内建立一文本框，距左边框600，距框架的上边框1200，文本框中的初始内容设置为文本框。 解题步骤： 第一步：设置框架的Height、Width属性分别为2500,4000；文本框的Left、Top属性值分别为600，1200。(以上均可在属性栏里设置) 第二步：调试并运行程序。 ------------------------------------------------------------------------------------------------------------------------ （1）在名称为Form1的窗体中建立一个名称为Cmd1，标题为显示的命令按钮，如图2-1所示。要求程序运行后，如果单击显示按钮，则执行语句Form1.Print 显示；如果单击窗体，则执行语句Form1.Cls。 第一步：建立界面并设置控件属性。本题只用到了1个命令按钮，将其Caption属性设置为显示，Name属性设置为Cmd1。第二步：编写代码。参考代码：Private Sub Cmd1_Click()Form1.Print 显示End SubPrivate Sub Form_Click()Form1.ClsEnd Sub第三步：调试并运行程序。第四步：按题目要求存盘。 （2）在名称为Form1的窗体上建立一个水平滚动条，名称为HS1，其最大值为100，最小值为0。要求程序运行后，每次移动滚动框时，都执行语句Form1.Print HS1.Value，如图2-2所示（程序中不能使用任何变量）。 第一步：建立界面并设置控件属性。本程序中用到1个滚动框，将其名称即Name属性设置为HS1，Min和Max属性属性分别设置为0和100。第二步：编写程序代码。参考代码：Private Sub HS1_Change()ClsForm1.Print HS1End Sub第三步：调试并运行程序。第四步：按题目要求存盘。 ------------------------------------------------------------------------------------------------------------------------ （1）在名称为Form1的窗体上建立一个名称为P1的图片框和两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为输出和清除，如图3-1所示。要求程序运行后，每单击一次输出按钮，不使用任何变量而直接在图片框中显示小写字母load me；如果单击清除按钮，则清除图片框中的内容。 第一步：建立界面并设置控件属性。程序用到的控件及其属性见表3-1。表 3-1控 件 属 性 设 置 值 命令按钮 Name Caption Cmd1 输出 命令按妞 Name Caption Cmd2 清除 图片框 Name P1 第二步：编写代码。参考代码：Private Sub Cmd1_Click()P1.Print load meEnd SubPrivate Sub Cmd2_Click()P1.ClsEnd Sub第三步：调试并并运行程序。第四步：按题目要求存盘。 （2）在名称为Form1的窗体上建立一个名称为List1的列表框。要求：在程序运行后，通过Form_Load()事件过程加载窗体时，执行语句List1.AddItem AAA，每当单击某个列表项时，都执行语句List1.AddItem List1.Text一次，如图3-2所示。 第一步：建立界面并设置控件属性。程序中只用到1个列表框控件。在窗体上画出列表框，其Name属性默认为List1。在窗体的Load事件中添加List1.AddItem AAA语句使程序开始运行的时在列表框中添加AAA。第二步：编写程序代码。参考代码：Private Sub Form_Load()List1.AddItem AAAEnd SubPrivate Sub List1_Click()List1.AddItem List1.TextEnd Sub第三步：调试并并运行程序。第四步：按题目要求存盘。 ---------------------