第6章课堂练习1

1、新建一个名称为Form1，标题为使用输入对话框的窗体，该窗体上无任何控件。请编写适当的事件过程，使得运行程序并单击窗体时，出现输入对话框，其标题为等级考试，提示信息为请输入，默认值为Basic。如图所示。要求程序中不得使用变量，每个事件过程中只能写一条语句。PrivateSubForm_Click()InputBox请输入,等级考试,BasicEndSub2、在名称为Form1的窗体上添加一个名称为Label1的标签，在属性窗口中把BorderStyle属性设置为1(如图1所示)，编写适当的事件过程。使得程序在运行后，如果单击窗体，则可使标签移到窗体的右上角(只允许在程序中修改适当属性来实现)。要求：不得使用任何变量。PrivateSubForm_Click()Label1.Top=0Label1.Left=Form1.Width-Label1.WidthEndSub3、在名称为Form1的窗体上添加一个名称为Label1的标签，标签的长和高分别为2000、300，有边框，并利用属性窗口设置适当的属性，使其标题居中显示等级考试，并使标签的外观如图所示。程序运行后的窗体见下图。标签居中显示PrivateSubForm_Click()Label1.Top=Form1.Height/2-Label1.HeightLabel1.Left=(Form1.Width-Label1.Width)/2EndSub4、在名称为Form1的窗体上从上到下添加两个文本框，名称分别为Text1、Text2；再添加1个命令按钮，名称为Command1，标题为选中字符数是。程序运行时，在Text1中输入若干字符，选中部分内容后，单击选中字符数是按钮，则选中的字符个数显示在Text2中(如图所示)。请编写按钮的Click事件过程。要求：程序中不得使用变量，事件过程中只能写一条语句。PrivateSubCommand1_Click()Text2=Text1.SelLengthEndSub5、在名称为Form1，标题为图片的窗体上添加1个名称为Image1的图像框，其高为2500，宽为2000。请通过属性窗口设置适当属性，将入考生文件夹下的图片文件pic1.jpg，并使图片自动适应图像框的大小(如图所示)。Image1的Picture属性加载图片，stretch属性设置为True6、在名称为Form1的窗体上添加一个名称为Image1的图像框，有边框，并可以自动调整装入图片的大小以适应图像框的尺寸；再添加三个命令按钮，名称分别为Command1、Command2、Command3，标题分别为红桃、黑桃、清除。在考生文件夹下有两个图标文件，其名称分别为Misc34.ico和Misc37.ico。程序运行时，单击黑桃按钮，则在图像框中显示黑桃图案(即Misc37.ico文件)；单击红桃按钮，则在图像框中显示红桃图案(即Misc34.ico文件，如图所示)；单击清除按钮则清除图像框中的图案。请编写相应控件的Click事件过程，实现上述功能。注意：要求程序中不得使用变量，事件过程中只能写一条语句。Image1的stretch属性设置为True7、在名称为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事件过程，使得单击日期按钮时，标签内显示系统当前日期；单击时间按钮时，标签内显示系统当前时间。如图所示。要求：程序中不得使用变量，每个事件过程中只能写一条语句。