《在form1画出如图所示的三角形。下表给出了直线line1、line2的坐标值,请》由会员分享，可在线阅读，更多相关《在form1画出如图所示的三角形。下表给出了直线line1、line2的坐标值,请（5页珍藏版）》请在金锄头文库上搜索。
1、基础题（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属性。【解题思路】根据题意添加控件并通过属
2、性窗口设置相应的属性。需要注意的是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）【考点分析】本题考点
3、有：窗体的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属性
4、设为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()
5、EndEnd Sub窗体2的代码Private Sub Command1_Click()If List1.Text ThenForm1.Text1.FontSize = List1.TextEnd IfIf List2.ListIndex = 0 ThenForm1.Text1.FontName = List2.List(List2.ListIndex)End IfForm2.Visible = FalseEnd Sub程序结束步骤3：调试并运行程序，关闭程序后按题目要求存盘。简单题（2）【考点分析】本题考点有：文件操作，变量的定义，组合框的ListIndex属性，Int( )函数，If判断语
6、句和For 循环语句。【解题思路】单击计算按钮，If语句通过ListIndex属性值判断组合框中的选项，得到不同的n值，即计算前n个数的平均值；然后用For循环实现累积加总并将其值放在Sum中，在求平均后通过Int( )函数实现对平均值的四舍五入取整或截尾取整。【操作步骤】步骤1：打开本题工程文件步骤2：分析并编写程序代码。程序提供代码Dim a(100) As IntegerPrivate Sub Command1_Click()Dim k As IntegerOpen in4.dat For Input As #1For k = 1 To 100Input #1, a(k)Next kCl
7、ose #1End SubPrivate Sub Command2_Click()需要考生编写的内容End SubPrivate Sub Form_Unload(Cancel As Integer)Open out4.dat For Output As #1Print #1, Combo1.Text, Text1.TextClose #1End Sub程序结束参考答案If Combo1.ListIndex = 0 Then n = 50If Combo1.ListIndex = 1 Then n = 80If Combo1.ListIndex = 2 Then n = 100Sum = 0Fo
8、r i = 1 To nSum = Sum + a(i)Next iText1.Text = Int(Sum / n)步骤3：调试并运行程序，关闭程序后按题目要求存盘。综合题【考点分析】本题考点有：图片框控件数组，图片框的Visible、Picture 、BorderStyle 、Visible属性，Select Case语句，图片框的DragDrop事件，If判断语句和For 循环语句。 【解题思路】在VB窗体上拖动图像程序设计，直接使用DragDrop事件实现对图像框的随意拖动、精确拖动，这种方法也适用于其它可以拖动的控件。先用Select Case语句来确定选择的物品，然后通过For循环
9、语句将图片框数组的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 Integerstr = Select Case Source.NameCase Picture2str = t2.icoa = 25Case Picture3str = t3.icoa = 3 Case Picture4str = t4.icoa = 1End SelectFor k = 0 To 5If Pic(k).Visible = False ThenPic(k).Picture = LoadPicture(str)Pic(k).BorderStyle = 0Pic(k).Visible = TrueText1 = Text1 + aExit ForEnd IfNext kEnd Sub程序结束步骤3：调试并运行程序，关闭程序后按题目要求存盘。
