操作题
2. 在名称为Form1的窗体上添加一个名称为Label1的标签，在属性窗口中把BorderStyle属性设置为1(如图1所示)，编写适当的事件过程。使得程序在运行后，如果单击窗体，则可使标签移到窗体的右上角(只允许在程序中修改适当属性来实现)。
要求：不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。
要求：不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。
【正确答案】【操作步骤】
步骤1：新建一个窗体，按照题目要求建立标签控件并设置标签的相应属性，见表。
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
Private Sub Form_Click()
Label1.Top=0 '设置Label1的初始位置
Label1.Left=Form1.Width-Label1.Width
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
步骤1：新建一个窗体，按照题目要求建立标签控件并设置标签的相应属性，见表。
| 控件 | 标签 | |||||||||||||||||||||
| 属性 | Name | BorderStyle | ||||||||||||||||||||
| 设置值 | Label1 | 1 | ||||||||||||||||||||
参考答案
Private Sub Form_Click()
Label1.Top=0 '设置Label1的初始位置
Label1.Left=Form1.Width-Label1.Width
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【答案解析】[考点] 本题考点有：标签的Name、BorderStyle、Top、Left和Width属性。
标签的BorderStyle属性用于设置标签的边框样式，值为0表示无边框，值为1表示有固定边框。要使标签位于窗体的右上角，其Top属性值应为0，Left属性值应为窗体的内部有效宽度减去标签宽度后的值。
标签的BorderStyle属性用于设置标签的边框样式，值为0表示无边框，值为1表示有固定边框。要使标签位于窗体的右上角，其Top属性值应为0，Left属性值应为窗体的内部有效宽度减去标签宽度后的值。