如图所示，系统中有三个进程get、pro和put，共用两个缓冲区buf1和buf2。假设buf1中最多可放11个信息，

如下图所示，get、copy和put三进程共用两个缓冲区s、t(其大小为每次存放一个记录)。get进程负责不断地把输入数据送人缓冲区s中，copy进程负责从缓冲区s中取出记录然后复制到缓冲区t中，put进程负责从缓冲区t中取出然后打印。试用p、v操作实现这三个进程的同步，写出程序描述。

3个进程P1、P2、P3互斥使用一个包含N个(N＞O)单元的缓冲区，P1每次用produCe()生成一个正整数并用put()迭入缓冲区某一空单元中；P2每次用getodd()从该缓冲区中取出一个奇数并用Countodd()统计奇数个数；P3每次用geteven()从该缓冲区中取出一个偶数并用Counteven()统计偶数个数。请用信号量机制实现这3个进程的同步与互斥活动，并说明所定义的信号量的含义。要求用伪代码描述。

三个进程P1、P2、P3互斥使用一个包含N(N>0)个单元的缓冲区。P1每次用produCe（ ）生成一个正整数并用put（ ）送入缓冲区某一空单元中；P2每次用getodd（ ）从该缓冲区中取出一个奇数并用Coun~dd（ ）统计奇数个数；P3每次用ge~ven（ ）从该缓冲区中取出一个偶数并用Coun~ven（ ）统计偶数个数。请用信号量机制实现这三个进程的同步与互斥活动，并说明所定义的信号量的含义(要求用伪代码描述)。

（1）在窗体上绘制一个名称为Text1的文本框和一个名称为Cmd1、标题为“计算”的命令按钮，如图64-3所示。程序运行后，单击“计算”命令按钮，通过在对话框输人整数12，放入整型变量a中，然后计算a!（提示：运算结果应放入Long型变量中），在文本框中显示结果，如图64-4所示，并把结果存入文件out．txt中。考生文件夹中有一个标准模块mode．bas，该模块中提供了保存文件的过程PutData，考生可以直接调用。

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

（2）在考生文件夹中有一个工程文件sj4．vbp及窗体文件sj4．frm。在名为Form1的窗体上有两个容器，其中一个容器中有两个单选按钮，另一个容器中有两个复选框，窗体上还有一个标题为“确定”的命令按钮和一个初始内容为空的文本框。所有控件已经全部画出。程序的功能是：在运行时，如果选中一个单选按钮和一个或两个复选框，则对文本框中的文字进行相应的设置，如图64-5所示。

窗体上的控件已经绘制出，但没有给出主要程序内容，请编写适当的事件过程，完成上述功能。

注意：不能修改已经给出的程序部分和已有的控件；在结束程序运行之前，必须选中一个单选按钮和至少一个复选框，并单击“确定”按钮；必须通过单击窗体右上角的“关闭”按钮结束程序，否则无成绩。最后，按原文件名并在原文件夹中保存修改后的文件。

窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮。运行后的窗体外观如图所示。

设有如下的类型声明 TyPe Person name AS String*8 major AS String*20 End TyPe 当单击“保存”按钮时，将两个文本框中的内容写入一个随机文件Test29 .dat中。设文本框中的数据已正确地赋值给Person类型的变量P.则能够正确地把数据写入文件的程序段是

A．Open"c：\Test29.dat"For Random As#1 Put#1，1，p C10se #1

B．OpeH"c：\Test29.dat"For Random As #1 Get#1，1，p C108C#1

C．Open"c：\Test29.dat"For Random As#1 Len=Len(p) Put#1，1，p C108C#1

D．OPell"c：\Test29.dat"For，Random As#1 Len=Len(p) Get#1，1，p C106e#1

模仿教材中的图，画出COPY和PUT之间的直接依赖关系。然后把两个图汇集在一起，体会它们三者之间正确的同步关系。再模仿教材中的图，能用信号量及P、V操作来正确处理GET、COPY和PUT三者之间的协同工作关系吗?

在窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮，运行后的窗体外观如图所示：设有如下的类型和变量声明： Private Type Person name As STRING*8 major As String*20 End Type Dim P As Person 设文本框中的数据已正确地赋值给Person类型的变量P，当点击“保存”按钮时，能够正确地把变量中的数据写入随机文件Test2．dat中的程序段是（ ）。

A.Open"C：＼Test2．dat"For Output As#1 Put#1，1，p Close#1

B.0pen"c：＼Test2．dat"For Random As#1 Get#1，1，P Close#1

C.Open”C：＼Test2．dat”For Random As#1 Len—Len(p) Put#1，1，P Close#1

D.Open"C：＼Test2．dat"For Random As#1 Len=Len(p) Get#1，1，P Close#1

在窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮。运行后的窗体外观如图所示。

设有如下的类型和变量声明：

Private Type Person

name As String*8

mjot As String+20

End Type

Dim P As Person

设文本框中的数据已正确地赋值给Person类型的变量P，当单击“保存”按钮时，能够正确地把变量中的数据写入随机文件Test2．dat中的程序段是

A．Open“c：＼Test2．dat”ForOutputAs#1 Put#1，1，P Close#1

B．Open”c：＼Test2．dat”For Random As#l Get#1，1，P Close#1

C．Open“c：＼Test2．dat”For Random As#1 Len=Len(P) Put#1，1，P C10se#1

D．Open“c：＼Test2．dat”ForRandomAs#l Len=Len(p) Get#1，1，P C10Se#1