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

基础题（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 + 1End SubPrivate Sub Text1_Click() Text1 = List1.Text1End 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 = 0End SubPrivate Sub m2_Click() Text1.Alignment = 2End SubPrivate Sub m3_Click() Text1.Alignment = 1End SubPrivate Sub menu2_Click() Form2.ShowEnd SubPrivate Sub menu3_Click() EndEnd 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 = FalseEnd Sub程序结束步骤3：调试并运行程序，关闭程序后按题目要求存盘。简单题（2）【考点分析】本题考点有：文件操作，变量的定义，组合框的ListIndex属性，Int( )函数，If判断语句和For循环语句。【解题思路】单击计算按钮，If语句通过ListIndex属性值判断组合框中的选项，得到不同的n值，即计算前n个数的平均值；然后用For循环实现累积加总并将其值放在Sum中，在求平均后通过Int( )函数实现对平均值的四舍五入取整或截尾取整。【操作步骤】步骤1：打开本题工程文件步骤2：分析并编写程序代码。程序提供代码Dim a(100) As IntegerPrivate 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 Close #1End SubPrivate Sub Command2_Click()需要考生编写的内容End SubPrivate Sub Form_Unload(Cancel As Integer) Open out4.dat For Output As #1 Print #1, Combo1.Text, Text1.Text Close #1End Sub程序结束参考答案 If Combo1.ListIndex = 0 Then n = 50 If Combo1.ListIndex = 1 Then n = 80 If Combo1.ListIndex = 2 Then n = 100 Sum = 0 For i = 1 To n Sum = Sum + a(i) Next i Text1.Text = Int(Sum / n)步骤3：调试并运行程序，关闭程序后按题目要求存盘。综合题【考点分析】本题考点有：图片框控件数组，图片框的Visible、Picture、BorderStyle、Visible属性，Select Case语句，图片框的DragDrop事件，If判断语句和For循环语句。 【解题思路】在VB窗体上拖动图像程序设计，直接使用DragDrop事件实现对图像框的随意拖动、精确拖动，这种方法也适用于其它可以拖动的控件。先用Select Case语句来确定选择的物品，然后通过For循环语句将图片框数组的Visible属性设为True或False来实现物品被放入图片框的效果，同时实现物品价格的累加。【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码Dim str As String, a As IntegerPrivate Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single) Dim k As Integer str = Select Case Source.Name Case Picture2 str = t2.ico a = 25 Case Picture3 str = t3.ico a = 3 Case Picture4 str = t4.ico a = 1 End Select For k = 0 To 5 If Pic(k).Visible = False Then Pic(k).