第6章课堂练习1(1).doc

1、新建一个名称为Form1，标题为"使用输入对话框"的窗体，该窗体上无任何控件。请编写适当的事件过程，使得运行程序并单击窗体时，出现输入对话框，其标题为"等级考试"，提示信息为"请输入"，默认值为"Basic"。如图所示。
要求程序中不得使用变量，每个事件过程中只能写一条语句。

Private Sub Form_Click()
InputBox "请输入", "等级考试", "Basic"
End Sub

2、在名称为Form1的窗体上添加一个名称为Label1的标签，在属性窗口中把BorderStyle属性设置为1(如图1所示)，编写适当的事件过程。使得程序在运行后，如果单击窗体，则可使标签移到窗体的右上角(只允许在程序中修改适当属性来实现)。
要求：不得使用任何变量。

Private Sub Form_Click()
Label1.Top = 0
Label1.Left = Form1.Width - Label1.Width
End Sub

3、在名称为Form1的窗体上添加一个名称为Label1的标签，标签的长和高分别为2000、300，有边框，并利用属性窗口设置适当的属性，使其标题居中显示"等级考试"，并使标签的外观如图所示。程序运行后的窗体见下图。 标签居中显示

Private Sub Form_Click()
Label1.Top = Form1.Height / 2 - Label1.Height
Label1.Left = (Form1.Width - Label1.Width) / 2
End Sub
4、在名称为Form1的窗体上从上到下添加两个文本框，名称分别为Text1、Text2；再添加1个命令按钮，名称为Command1，标题为"选中字符数是"。程序运行时，在Text1中输入若干字符，选中部分内容后，单击"选中字符数是"按钮，则选中的字符个数显示在Text2中(如图所示)。请编写按钮的Click事件过程。
要求：程序中不得使用变量，事件过程中只能写一条语句。

Private Sub Command1_Click()
Text2 = Text1.SelLength
End Sub
5、在名称为Form1，标题为"图片"的窗体上添加1个名称为Image1的图像框，其高为2500，宽为2000。请通过属性窗口设置适当属性，将入考生文件夹下的图片文件pic1.jpg，并使图片自动适应图像框的大小(如图所示)。 Image1的Picture属性加载图片，stretch属性设置为True

6、在名称为Form1的窗体上添加一个名称为Image1的图像框，有边框，并可以自动调整装入图片的大小以适应图像框的尺寸；再添加三个命令按钮，名称分别为Command1、Command2、Command3，标题分别为"红桃"、"黑桃"、"清除"。在考生文件夹下有两个图标文件，其名称分别为"Misc34.ico"和"Misc37.ico"。程序运行时，单击"黑桃"按钮，则在图像框中显示黑桃图案(即Misc37.ico文件)；单击"红桃"按钮，则在图像框中显示红桃图案(即Misc34.ico文件，如图所示)；单击"清除"按钮则清除图像框中的图案。请编写相应控件的Click事件过程，实现上述功能。
注意：要求程序中不得使用变量，事件过程中只能写一条语句。Image1的stretch属性设置为True

7、在名称为Form1的窗体上添加一个图片框，名称为Pic，通过属性窗口将考生文件夹下的文件Tu1-1.jpg添加到图片框，然后编写适当的事件过程。运行程序时，单击窗体，在图片框中显示"VB等级考试"，如图所示。

注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。

8、工程文件三角形.vbp中有一个由直线Line1、Line2和Line3组成的三角形，直线Line1、Line2和Line3的坐标值如下所示：

要求添加一条直线Line4以构成三角形的高，且该直线的初始状态为不可见。再添加两个命令按钮，名称分别为Cmd1、Cmd2，标题分别为"显示高"、"隐藏高"，如图所示。
请编写适当的事件过程使得在程序运行时，单击"显示高"按钮，则显示三角形的高；单击"隐藏高"按钮，则隐藏三角形的高。
注意：要求程序中不得使用变量，每个事件过程只能写一条语句。不得修改已经存在的控件，最后将修改后的文件按原文件名存盘。

9、在名称为Form1的窗体上添加1个名称为Shape1的圆角矩形，高、宽分别为1000、2000。请利用属性窗口设置适当的属性以满足下列要求：
①圆角矩形中填满绿色(颜色值为：&H0000FF00&或&HFF00&)；
②窗体的标题为"圆角矩形",字体为"仿宋_GB2312"。
程序运行后的窗体如图所示。

10、在名称为Form1的窗体上用名称为shape1的形状控件画一个长、宽均为1200的正方形。请设置适当的属性以满足下列要求：
①窗体的标题为"正方形"，窗体的最小化按钮不可用；
②正方形的边框为虚线(线型不限)。程序运行后的窗体如图所示。

11、在名称为Form1的窗体上添加一个名称为Command1的命令按钮，其标题为"移动本按钮"，如图所示。
要求编写适当的事件过程，使得程序运行时，每单击按钮一次，按钮向左移动100。
要求：程序中不得使用变量，事件过程中只能写一条语句。

12、在名称为Form1的窗体上添加1个名称为Label1的标签，使其初始内容为空，且能根据其标题内容自动调整标签的大小；再添加2个命令按钮，标题分别为"日期"和"时间"，名称分别为Command1、Command2。请编写2个命令按钮的Click事件过程，使得单击"日期"按钮时，标签内显示系统当前日期；单击"时间"按钮时，标签内显示系统当前时间。如图所示。
要求：程序中不得使用变量，每个事件过程中只能写一条语句。