假定在窗体（名称为Form1)的代码窗口中定义如下记录类型：Private Type animalanimalName As Strin

假定窗体的名称为Form1，对该窗体编写如下代码： Private Sub Form_Load() Form1．Caption="计算机" Me．Caption="等级" Caption="考试" End Sub 程序运行后，窗体的标题是

A．计算机

B．等级

C．考试

D．Form1

请根据以下各题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上画一个名称为Picture1的图片框(PictureBox)，高、宽均为1000。在图片框内再画一个有边框的名称为Image1的图像框(Image)。并通过属性窗口把考生目录下的图标文件POINTl1(香蕉图标)装入图像框Image1中，如图3所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。(2)在名称为Form1的窗体上画一个名称为Command1、标题为“保存文件”的命令按钮，再画一个名称为CommonDialog1的通用对话框。 要求：①通过属性窗口设置适当的属性，使得运行时对话框的标题为“保存文件”，且默认文件名为out2 1 ②运行时单击“保存文件”按钮，则以“保存对话框”方式打开该通用对话框。如图4所示。注意：要求程序中不能使用变量，每个事件过程中只能写一条语句。保存时必须存放在考生文件夹下，工程文件名为sit2．vbp，窗体文件名为sjt2．frm。

假定在窗体（名称为Form1） 的代码窗口中定义如下记录类型：

Private Type animal

animalName As String *20

aColor As String *10

End Type

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click（）

Dim rec As animal

Open "c:\vbTest.dat"For Random As #1 Len=Len（reC．

rec.animalName= "Cat"

rec.aColor= "White"

Put #1,,rec

Close #1

End Sub

则以下叙述中正确的是（）。

A．记录类型animal不能在Form1中定义，必须在标准模块中定义

B．如果文件c:\vbTest.dat不存在，则Open命令执行失败

C．由于Put命令中没有指明记录号，因此每次都把记录写在文件的末尾

D．语句"Put #1,,rec"将animal类型的两个数据元素写到文件中

假定在窗体(名称为Form1)的代码窗口中定义如下记录类型： Private Type animal animalName As String*20 a Color As String*10 End Type 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Crick() Dim rec As animal Open"c:\vbTest.dat"For Random As #1 Len=Len(rec) rec.animalName="Cat" rec.aColor="White" Put #1,,rec Close #1 End Sub 则以下叙述中正确的是()。

A．记录类型animal不能在Form1中定义，必须在标准模块中定义

B．如果文件c:\vbTest.dat不存在，则Open命令执行失败

C．由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾

D．语句“Put#l,,rec”将animal类型的两个数据元素写到文件中

假定在窗体(名称为Form1)的代码窗口中定义如下记录类型：

Private Type animal

animal Name As String * 20

aColor As String * 10

End Type

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1 Click()

Dim rec As animal

Open "c：\vb Test.dat"For Random As # 1 Len=Len(reC) rec.animalName="cat"

rec.aColor="White"

Put # 1，，rec

Close # 1

End Sub

则以下叙述中正确的是 ______。

A．记录类型animal不能在Form1中定义，必须在标准模块中定义

B．如果文件c:\vbTest.dat不存在，则Open命令执行失败

C．由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾

D．语句"Put # 1，，rec"将animal类型的两个数据元素写到文件中

请根据以下各小题的要求设计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。

注意：下面出现的“考生文件夹”均为c：\wexam\25160001。

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

(1) 在名称为Form1的窗体上添加一个计时器控件，名称为Timer1。请利用“属性”窗口设置适当属性，使得在运行时可以每隔1秒，调用计时器的Timer事件过程一次。另外，请把窗体的标题设置为“题目2”。设计阶段的窗体如图18-1所示。

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

(2) 在名称为Form1的窗体上画一个文本框，名称为Text1，无初始内容；再画一个图片框，名称为 P1。请编写Text1的Chang事件过程，不能使用任何变量，使得运行时，在文本框中每输入一个字符，就在图片框中输出一行文本框中的完整内容。程序运行界面如图18-2所示。

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

String*20 aColor As String*10 End Type 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程: Private Sub Command1_Click() Dim rec As animal Open "c:\vbTest.dat" For Random As #1 Len = Len(reCreC.animalName = "Cat" reC．aColor = "White" Put #1, , rec Close #1 End Sub 则以下叙述中正确的是

A． 记录类型animal不能在Form1中定义，必须在标准模块中定义

B．如果文件c:\vbTest.dat不存在，则Open命令执行失败

C．由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾

D．语句“Put #1, , rec”将animal类型的两个数据元素写到文件中

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

（1）在名称为Form1的窗体上画3个标签，名称分别为Label1、Label2和Label3，标题分别为"人数"、"年龄"和"收入"，3个文本框，名称分别为Text1、Text2和Text3，Text属性均为空，一个命令按钮，名称为Command1，标题为"输入"。然后编写命令按钮的Click事件过程， 要求程序运行后，如果单击命令按钮，则先后显示3个输入对话框，在3个输入对话框中分别输入人数、年龄和收入，并分别在3个文本框中显示出来。程序运行界面如图4-1所示。要求程序中不得使用任何变量。

图4-1

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

（2）在名称为Form1的窗体上画一个图片框，名称为Pic1，一个水平滚动条，名称为HScroll1，通过"属性"窗口在图片框中装入一个图形（文件名为pic1.jpg，位于考生文件夹下），图片框的高度与图形的高度相同，图片框的宽度任意，运行时的窗体如图4-2所示。编写适当的事件过程，要求程序运行后，图片的宽度随滚动条变化。即设置水平滚动条的如下属性：Min为200，Max为2000，LargeChange为200，然后就可以通过移动滚动条上的滚动块来放大或缩小图片框的宽度。拖动滚动条后的窗体如图4-3所示。要求程序中不得使用任何变量。

图4-2 图4-3

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