(1)在名称为Form1的窗体上画出如图3-46所示的三角形。下表给出了直线Line1、Line2的坐标值,请按此表画Linel、Line2,并画出直线Line3,从而组成如图3-46所示的三角形。 注意:存盘时必须存放在考生文件夹下,工程文件名

admin2017-09-22  37

问题 (1)在名称为Form1的窗体上画出如图3-46所示的三角形。下表给出了直线Line1、Line2的坐标值,请按此表画Linel、Line2,并画出直线Line3,从而组成如图3-46所示的三角形。

    注意:存盘时必须存放在考生文件夹下,工程文件名为sjtl.vbp,窗体文件名为sjtl.frm。
    (2)在名称为Form1的窗体上画一个名称为List1的列表框,并任意输入若干列表项;再画一个名称为Text1的文本框,无初始内容。请编写List1和Text1的Click事件过程。程序运行后,如果单击列表框中的某一项,则在文本框中显示该项相应的顺序号,若单击第一项,则在文本框中显示1;若单击第二项,则在文本框中显示2,以此类推(如图3—47所示):如果单击文本框,则把该列表项的内容显示在文本框中。
    注意:要求程序中不得使用变量,事件过程中只能写一条语句。存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。

选项

答案(1)步骤1:新建一个“标准EXE”工程,按表4-29在窗体中画出控件并设置其相关属性。 [*] 步骤2:按要求将文件保存至考生文件夹中。 (2)步骤1:新建一个“标准EXE”工程,按表4—30在窗体中画出控件并设置其相关属性。 [*] 步骤2:打开代码编辑窗口,编写列表框和文本框的单击事件过程。参考代码: Private Sub List1_Click() Text1.Text=List1.LiStIndex+1 End Sub Private Sub Text1 Click() Text1.Text = List1.List(List1.LiStIndex) End Sub 步骤3:按要求将文件保存至考生文件夹中。

解析 (1)本题只需按要求画出控件并设置相关属性。
    (2)列表框的List1ndex可用于设置或返回在列表框中当前选择项目的索引号,该索引号是从0开始的。要实现本题所要求的功能,应在列表框的单击事件中,令文本框中的内容等于列表框的List1ndex属性加1;在文本框的单击事件中,令文本框的内容等于列表框的对应选中项的内容,即List1.List(List1.List1ndex)。
转载请注明原文地址:https://jikaoti.com/ti/cWy0FFFM
0

最新回复(0)