请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Forml的窗体上画出如图2-48所示的三角形。下表给出了直线Linel、Line2的坐标值,请按此表画Line1、Line2,并画出直线Line3,从而组成如图

admin2016-12-29  20

问题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Forml的窗体上画出如图2-48所示的三角形。下表给出了直线Linel、Line2的坐标值,请按此表画Line1、Line2,并画出直线Line3,从而组成如图2.48所示的三角形。

注意:存盘时必须存放在考生文件夹下,工程文件名为sitl.vbp,窗体文件名为sitl.frm。

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

选项

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

解析
转载请注明原文地址:https://kaotiyun.com/show/I9Gp777K
0

最新回复(0)