请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
考生文件夹下的工程文件sjt2.vbp中有一个由直线Line1、Line2和Line3组成的三角形，直线Line1、Line2和Line3的坐标值如表1所示。
表1
|
[*]
请编写适当的事件过程使得在运行时，单击“显示高”按钮，则显示三角形的高；单击“隐藏高”按钮，则隐藏三角形的高。
注意：要求程序中不得使用变量，每个事件过程只能写一条语句。不得修改已经存在的控件，最后将修改后的文件按原文件名存盘。
参考答案：[操作步骤]
第1步：打开工程，进入窗体编辑状态。
第2步：在窗体上绘制一条直线，坐标点分别为：X1=1600，Y1=300，X2=1600，Y2=1200。
第3步：在窗体上画一个命令按钮，设置“名称”属性为Cmd1，Caption属性为“显示高”；再在窗体上画另一个命令按钮，设置“名称”属性为Cmd2，Caption属性为“隐藏高”。
第4步：分别为“显示高”和“隐藏高”按钮编写代码。
Private Sub Cmd1_Click( )
Line4.Visible=True
End Sub
Private Sub Cmd2_Click()
Line4.Visible=False
End Sub
第5步：调试、运行并保存程序。
解析： 本题主要考查直线控件的使用。直线控件由其两个端点控制其位置，端点坐标分别为(X1，Y1)和(X2，Y2)，坐标原点是窗体的左上角，X1、X2是距窗体左边界的距离，Y1、Y2是距窗体上边界的距离。题目中的三角形由3个直线对象Line1、Line2和Line3组成，绘制三角形的高也就是设置新的直线对象Line4的端点坐标的问题。Line4上端在三角形的顶点上，下端在直线Line3上。Line2的上端坐标即是顶点坐标(1600，300)，底端坐标的距窗体左边界的距离与顶点坐标一样，距窗体上边界的距离与Line3一样，因此另一端的坐标为(1600，1200)。直线Line4(三角形的高)的显示与隐藏由其Visible属性控制。