在Form1画出如图所示三角形。下表给出了直线Line1、Line2坐标值,请.docVIP

基础题（1） 【考点分析】本题考点有：线条的Name、X1、X2、Y1、Y2属性。 【解题思路】通过对于直线Line1、Line2的坐标值的计算，确定线条的X1、X2、Y1、Y2属性的值，画出线段Line3。 步骤1：建立界面，添加Line1、Line2，设计的属性如下表3.253所示。根据Line1、Line2的坐标值计算出Line13的坐标值，如表3.254所示。 步骤2：调试并运行程序，关闭程序后按题目要求存盘。 基础题（2）【考点分析】本题考点有：列表框的的Name、List、ListIndex、Text属性，文本框的Name、Text属性。 【解题思路】根据题意添加控件并通过属性窗口设置相应的属性。需要注意的是ListIndex是从0值开始计算，所以要是文本框中显示列表框中某项对应的顺序号，要将ListIndex属性值再加上1。 【操作步骤】 步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.255。 表3.255 步骤2：编写程序代码。 参考答案 Private Sub List1_Click() Text1 = List1.ListIndex + 1 End Sub Private Sub Text1_Click() Text1 = List1.Text1 End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简单题（1） 【考点分析】本题考点有：窗体的Name、MinButton、MaxButton、Caption、Visible属性和Show方法，菜单项的Click事件，命令按钮的Click事件，文本框的Alignment、FontSize、FontName 属性，列表框的Text、List、ListIndex属性，If判断语句和For循环语句。 【解题思路】根据题意添加控件并通过属性窗口设置相应的属性。程序一般默认的启动窗体时Form1；初始Form2的Visible属性为False；单击格式菜单项，用窗体的Show方法显示窗体2；在窗体2中选择好字号和字体以后，单击确定按钮，再次将窗体2的Visible属性设为False。 【操作步骤】 步骤1：打开本题工程文件，并设置控件的属性。程序中用到的控件及属性见表3.256。 表3.256 步骤2：分析并编写程序代码。 程序提供代码 窗体1的代码 Private Sub m1_Click() Text1.Alignment = 0 End Sub Private Sub m2_Click() Text1.Alignment = 2 End Sub Private Sub m3_Click() Text1.Alignment = 1 End Sub Private Sub menu2_Click() Form2.Show End Sub Private Sub menu3_Click() End End Sub 窗体2的代码 Private Sub Command1_Click() If List1.Text Then Form1.Text1.FontSize = List1.Text End If If List2.ListIndex = 0 Then Form1.Text1.FontName = List2.List(List2.ListIndex) End If Form2.Visible = False End Sub 程序结束 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简单题（2） 【考点分析】本题考点有：文件操作，变量的定义，组合框的ListIndex属性，Int( )函数，If判断语句和For循环语句。 【解题思路】单击计算按钮，If语句通过ListIndex属性值判断组合框中的选项，得到不同的n值，即计算前n个数的平均值；然后用For循环实现累积加总并将其值放在Sum中，在求平均后通过Int( )函数实现对平均值的四舍五入取整或截尾取整。 【操作步骤】 步骤1：打开本题工程文件 步骤2：分析并编写程序代码。 程序提供代码 Dim a(100) As Integer Private Sub Command1_Click() Dim k As Integer Open in4.dat For Input As #1 For k = 1 To 100 Input #1, a(k) Next k Cl