在考生文件夹中有工程文件execise71.vbp及窗体文件execise71.tim。在名为Form1的窗体中有两个命令

两个命令按钮，其名称分别为Cmd1和Cmd2，标题分别为“文件写入”和“文件读出”，如下图所示。

其中“文件写入”命令按钮事件过程用来建立一个通讯录，以随机存取方式保存到文件out57.txt中；而“文件读出”命令按钮事件过程用来读出文件out57.txt中的每个记录，并在窗体上显示出来。

通讯录中的每个记录由3个字段组成，结构如下：

姓名(Name) 电话(Tel) 邮政编码(Pos)

Abcd (010)51688765 100065

┆ ┆ ┆

各字段的类型和长度为：

姓名(Name)： 字符串 15

电话(Tel)： 字符串 15

邮政编码(Pos) 长整型(Long)

程序运行后，如果单击“文件写入”命令按钮，则可以随机存取方式打开文件out57.txt，并根据提示向文件中添加记录，每写入一个记录后，都要询问是否再输入新记录，回答“Y” (或“y”)则输入新记录，回答“N” (或“n”)则停止输入；如果单击“文件读出”命令按钮，则可以随机存取方式打开文件out57.txt，读出文件中的全部记录，并在窗体上显示出来。该程序不完整，请把它补充完整。

要求：

(1)去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。

(2)文件out57.txt中已有3个记录，请运行程序，单击“文件写入”命令按钮，向文件out57.txt中添加以下2个记录(全部采用西文方式)，如下图所示。

Abcd (010)51688765 100065

Efgh (010)51684321 100044

(3)运行程序，单击“文件读出”命令按钮，在窗体上显示全部记录。

(4)用原来的文件名保存工程文件和窗体文件。

称分别为Cmd1和Cmd2，标题为“添加”和“清除”；一个文本框，名称为Text1，程序运行前，文本框的编辑区为空白；一个列表框，名称为List1。程序界面如下图所示。

在文本框中输入文本，若单击“添加”按钮，则将文本框中的文本作为列表框的一个列表项添加到列表框的末尾，且使“添加”按钮变为无效，“清除”按钮变为有效：若单击“清除”按钮，则使文本框中的内容为空，且使“添加”按钮变为有效，“清除”按钮变为无效。

要求：

去掉程序中的注释“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。保存时，工程文件名仍为 execise59.vbp，窗体文件名仍为execise59.frm。

下列程序执行时，要求输入一个密码，如果密码不正确，则显示出非法用户的对话框。请填空。

Const PassWord="12345678"

Dim inpass As String

inpass=【 】("请输入你的密码"，"输入密码")

If inpass=PassWord Then Exit Sub

Else

【 】"对不起!你是非法用户。"，vbOKOnly＋vbCritical，"拒绝"

Unload Me

End If

像文件pic1.bmp放到图片框中(如下图所示)。

注意：

文件必须存放在考生文件夹中，工程文件名为execise107.vbp，窗体文件名为 execise107.frm。

本框，名称为Text1：还有两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为“计算”和“保存”，如下图所示。

有一个函数过程isprime可以在程序中直接调用，其功能是判断参数a是否为素数，如果是素数，则返回True，否则返回False。

编写适当的事件过程，使得在运行时，单击“计算”按钮，则找出大于5000的第1个素数，并显示在Text1中：单击“保存”按钮，则把Text1中的计算结果存入考生文件夹下的out2.txt文件中。

注意：

考生不得修改isprime函数过程和控件的属性，必须把计算结果通过“保存”按钮存入 out2.txt文件中，否则无成绩。

为2。同时建立两个名称分别为Cmd1和Cmd2的命令按钮，标题分别为Read和Save(如下图所示)。

要求程序运行后，如果单击Read按钮。则读入inl.txt文件中的100个整数，放入二个数组中(数组下界为1)，同时在文本框中显示出来；如果单击Save按钮，则计算数组中大于或等于1并且小于400的所有数之和，把求和结果在文本框Text1中显示出来，同时把计算结果存入考生文件夹中的文件out1.txt中。(在prog.bas中的putdata过程可以把结果存入out1.txt文件，考生可以把该模块文件添加到自己的工程中，直接调用此过程)

注意：

文件必须存放在考生文件夹中，窗体文件名为execise1.frm，工程文件名为execise1.vbp，计算结果存入out1.txt，否则没有成绩。

名称为Pic1和Pic2，分别用来表示信号灯和汽车(其中在Pic1中轮流装入“黄灯.ico”、“红灯.ico”和“绿灯.ico”文件来实现信号灯的切换)：有一个命令按钮，标题为“开车”；还有两个计时器Timer1和Timer2，Timer1用于变换信号灯：黄灯1秒，红灯2秒，绿灯3秒；Timer2用于控制汽车向左移动。运行时，信号灯不断变换，单击“开车”按钮后。汽车开始移动，如果移动到信号灯前或信号灯下，遇到红灯或黄灯，则停止移动，当变为绿灯后再继续移动。如下图所示。

要求：

窗体中已经给出了全部控件和程序，但程序不完整，要求阅读程序并去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件以原文件名存盘。

在菜单中,唯一能够识别的事件是【 】。

两个图片框，名称分别为P1和P2，其中的图片分别是一个航天飞机和一朵云彩；有一个计时器，名为Timer1有一个命令按钮，名为Cmd1，标题为“发射”。并给出了两个事件过程，但并不完整，要求：

(1)设置计时器的属性，使其在初始状态下不计时。

(2)设置计时器的属性，使其每隔0.1秒调用Timer事件过程一次。

(3)去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使得在运行时单击“发射”按钮，则航天飞机每隔0.1秒向上移动一次，当到达云彩的下方时停止移动，如下图所示。

注意：

不能修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。