大一VB操作实验题目加详细解答.docVIP

VB操作题(加解答) 1、如图所示，在窗体Form1中建立一个名称为Command1、标题为“显示”的命令按钮。要求程序运行后，如果单击显示按钮，则在窗体上打印“显示”；如果单击窗体，则将屏幕信息清除；如果双击窗体，则退出程序。 *注意：新建一个文件夹“练习一”，将程序保存在该文件夹中，期中窗体文件保存为MyPro1.frm，工程文件保存为MyPro1.vbp。 Private Sub Command1_Click() Print 显示 End Sub Private Sub Form_Click() Form1.Cls End Sub Private Sub Form_DblClick() End End Sub 2、程序界面设计要参照Design1.exe，其主要功能如下： 只有单击“显示Form2”后，“左移”、“右移”、“放大”、“缩小”按钮才会有效（这四个按钮其初始状态时无效的），同时显示Form2。 单击“隐藏from2”则将Form2隐藏，同时，将上述四个按钮设置为无效状态 单击“左移”，可以让Form2向左移动，移动多少可以自行设定，同时在Form2中打印“左移”。“右移”按钮功能同理。 单击“放大”，可以让Form2的高度和宽度都变成原来的2倍，同时在Form2中打印“放大”。“变小”按钮功能同理，只是变成缩小到原来的一半。 双击窗体Form1，可以关闭程序。 Private Sub Command1_Click() Form2.Left = Form2.Left - 100 Form2.Cls Form2.Print 左移 End Sub Private Sub Command2_Click() Form2.Left = Form2.Left + 100 Form2.Cls Form2.Print 右移 End Sub Private Sub Command3_Click() Form2.Show Command1.Enabled = True Command2.Enabled = True Command4.Enabled = True Command5.Enabled = True End Sub Private Sub Command4_Click() Form2.Width = Form2.Width * 2 Form2.Height = Form2.Height * 2 Form2.Cls Form2.Print 放大 End Sub Private Sub Command5_Click() Form2.Width = Form2.Width / 2 Form2.Height = Form2.Height / 2 Form2.Cls Form2.Print 缩小 End Sub Private Sub Command6_Click() Form2.Hide End Sub Private Sub Command7_Click() Print OK End Sub Private Sub Command8_Click() Form1.Cls End Sub Private Sub Command9_Click() End End Sub 3、在窗体Form1中建立一个名称为Label1的标签，其初始内容为“我是**”（其中**为自己的姓名，例如：我是张三），文字对齐方式（Alignment属性）为居中；再建立两个命令按钮，名称分别为Command1、Command2，标题分别为“黑体”、“隶书”。要求程序运行后，在单击黑体按钮时，则Label1中的文字字体为“黑体”；在单击“隶书”按钮时，则Label1中的文字字体为“隶书”。 *注意：保存在名为“练习一”的文件夹中，保存时窗体文件名为MyPro1.frm，工程文件名为MyPro1.vbp。 Private Sub Command1_Click() Label1.FontName = 黑体 End Sub Private Sub Command2_Click() Label1.FontName = 隶书 End Sub 4、程序界面设计要参照Design2.exe，其主要功能如下： 当鼠标在按钮“不好”或者“很好”上按下鼠标时（此时触发的是什么事件？），两个按钮上的文字会互换，即“不好”会变成“很好”，“很好”会变成“不好” 单击任何一个按钮后，显示form2，同时隐藏form1 在Form2中，有一个鼠标跟随效果，该效果用一个标签来显示文字，当鼠标在Form2上移动时，该标签随着鼠标的移动而移动。提示：用Form_Mousemove事件： Private Sub Form_MouseMove(Butt