建筑安装工程直接费由直接工程费和（)组成。A．间接费B．措施费C．规费D．企业管理费

在名为Form1的窗体上建立一个文本框(名称为Text1，MultiLine属性为True, SerollBars属性为2)和两个命令按钮(名称分别为Cmd1和Cmd2，标题分别为Read和Save)，如下图所示。

要求程序运行后，如果单击Read按钮则读入in4.txt文件中的100个整数，放入一个数组中(数组下界为1)；如果单击Save按钮，则挑出100个整数中的所有偶数，在文本框 Text1中显示出来，并把所有偶数之和存入考生文件夹中的文件out4.txt中。

在考生文件夹下有标准模块model.bas，其中putdata过程可以把一个整型数存入 out4.txt文件，考生可以把该模块文件添加到自己的工程中。

注意：

程序中对文件的操作统一使用相对路径：文件必须存放在考生文件夹中，窗体文件名为exeeise4.frm，工程文件名为execise4.vbp，结果存入out4.txt文件，否则没有成绩；

在名为Form1的窗体上绘制一个文本框(名称为Text1，Text属性为“京”，Font属性为“宋体”)和一个水平滚动条(名称为HS1)。在属性窗口中对滚动条设置如下属性：

Min 10

Max 100

LargeChange 5

SmallChange 2

编写适当的事件过程，使程序运行后，若移动滚动条上的滚动框，则可扩大或缩小文本框中的“京”字。运行后的窗体如下图所示。

注意：

程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise90.vbp，窗体文件名为execise90.frm。

在名为Form1的窗体上绘制一个文本框(名称为Text1)和一个水平滚动条(名称为 HSl)。在属性窗口中对滚动条设置如下属性：

Min 500

Max 2000

LargeChange 50

SmallChange 20

编写适当的事件过程，使程序运行后，若移动滚动条上的滚动框，则可扩大或缩小文本框的高度，并使得文本框的宽度始终是其高度的1.2倍。运行后的窗体如下图所示。

注意：

要求程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为execise58.vbp，窗体文件名为execise58.frm。

在名为Foma1的窗体上绘制一个标签(名称为Lab1，标题为Input)、一个文本框(名称为Text1，Text属性为空白)和一个命令按钮(名称为Cmd1，标题为Display)。请编写命令按钮的Click事件过程，使程序运行后，在文本框中输入Visual Basic，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框中的内容。运行后的窗体如下图所示。

注意：

要求程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise69.vbp，窗体文件名为exeCise69.frm。

在名为Form1的窗体上建立一个名为Text1的文本框；一个名为Crud1，标题为“输出”的命令按钮(如下图所示)。

要求程序运行后，在文本框中任意输入一个字符串，然后单击“输出”按钮，则将文本框中的文字显示在窗体上。

注意：

在程序中不能使用任何变量：文件必须存放在考生文件夹中，窗体文件名为 execise61.frm，工程文件名为execise61.vbp。

注意：保存时必须存放在考生文件夹下，窗体文件名为sjt3.frm，工程文件名为sit3.vbp。

2．在考生文件夹中有工程文件sit4.vbp，它包含一个窗体文件form1。在窗体上有一个列表框，名称为List1，一个文本框，名称为Text1，和一个命令按钮，名称为Command1，标题为“复制”。要求程序运行后，在列表框中自动建立四个列表项，分别为“项目1”、“项目2”、“项目3”、“项目4”。如果选择列表框中的一项，则单击“复制”按钮时，可以把该项复制到文本框中(程序运行结果如图2—2)。

要求：编写程序，以实现试题要求的功能。

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

在名称为Form1的窗体上添加一个名称为Text1的文本框；再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单下含有两个菜单项，名称分别为Show和Hide，标题分别为“显示”、“隐藏”，请编写适当的事件过程，使程序运行时，单击“隐藏”菜单项，文本框消失；单击“显示”菜单项，文本框重新出现，程序运行后的窗体如图所示。要求程序中不得使用变量，每个事件过程中只能写一条语句。

注意：存盘时必须存放在考生文件夹下，工程文件名保存为sit2．vbp，窗体文件名保存为sjr2．frm。

Private SUb Form_CnCk()

Open"d:\tes\smtext1.txt"For Input AS 1

Do While Not EOF(1)

Line Iput 1,aspect$

whole$=whole$+aspect$+Chf$(13)+Chr$(10)

Loop

请根据以下各小题的要求设计Visaul Basic应用程序(包括界面和代码)。

1．在窗体(名称为Form1)上画1个列表框(名称为L1)和1个水平滚动条(名称为HS1，Min属性为0，Max属性为100，SmallChange属性为2，LargeChange属性为10)，编写适当的事件过程。程序运行后，如果把滚动框移到某个位置，然后单击窗体，则在列表框中显示“滚动条的当前值是：xx”，如图1—1所示，其中xx是滚动框所在的位置。

存盘时，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。

2．在名称为Form1的窗体上画一个文体框，其名称为Text1，然后通过属性窗口设置窗体和文本框的属性，实现如下功能：

1)在文本框中可以显示多行文本

2)在文本框中显示垂直滚动条

3)文本框中显示的初始信息为“程序设计”

4)在文本框中显示的字体为三号规则黑体

5)窗体的标题为“设置文本框属性”。完成设置后的窗体如图1—2所示。

要求：不编写任何代码。

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