在名为Form1的窗体上建立一个二级下拉菜单（菜单项见下表)。 注意： 文件必须存放在考生文件夹中，工

程序运行后，若为“甲队”且成绩大于80分，则在窗体上显示“表现优良”，否则显示“表现普通”。

Private Sub Form_Activate()

Dim team1 As String

Dim fen As Integer

team 1="乙队"

fen=86

Print

Print"球队=；"team1

Print"成绩=；"fen

If team1="甲队"Then

If fen＞=80 Then

Print"表现优良!"

Else

______

End If

Else

Print"表现普通"!

End If

End Sub

，名为Text1，其宽、高分别为1500和300。设置适当的属性使得在输入密码时，文本框中显示“*”字符，此外再把窗体的标题设置为“PassWord窗口”。运行时的窗体如下图所示。

注意：

以上设置都只能在属性窗口中进行设置；文件必须存放在考生文件夹中，工程文件名为execise89.vbp，窗体文件名为execise89.frm。

中有8个元素。完成下列程序。

Private Sub OrderChange(a())

Dim i As Integer, Temp As Integer

For i = 1 To 4

Temp = a(i)

______

______

Next i

End Sub

下列程序用于判断一个整数是否为质数，试将程序补充完整。

Private Sub Command1_Click()

Dim n As Integer

n = InputBox("请输入")

t = Int(Sqr(n))

i = 2

flag = 0

While i ＜= t And flag = 0

If ______Then

flag = 1

Else: i = i + 1

End If

Wend

If ______Then

Print "这是一个质数"

Else

Print "这不是一个质数"

End If

End Sub

为Timer1的计时器。请设置适当的控件属性，并编写适当的事件过程，使得在运行时，每隔一秒钟标签中的数字加1。如下图所示的是程序刚启动时的情况。

注意：

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

一个名称为Cmd1的命令按钮(标题为“开始倒计数”)和一个名称为 Timer1的计时器。请在窗体上绘制一个标签(名称为Lab1，标题为“请输入一个正整数”)、一个文本框(名称为Text1，初始内容为空白) (如下图所示)。已经给出了相应的事件过程。

程序运行后，在文本框中输入一个正整数，此时如果按回车键，则可使文本框中的数字每隔1秒减1(倒计数)：当减到0时，倒计数停止，清空文本框，并把焦点移到文本框中。

要求：

去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其能正确运行，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。

了所有控件。其功能是：单击“读入”命令按钮，则把考生目录下的 in32.txt文件中的所有英文字符放入Text1(可多行显示)：如果单击“统计”命令按钮，则统计文本框中字母A、B、c、D各自出现的次数，并把结果在文本框中显示出来，如下图所示；如果单击“保存”命令按钮，则把统计结果存入考生文件夹下的out32.txt文件中。文件中已给出了“读入”和“保存”按钮的Click事件过程。请编写“统计”按钮的Click事件过程。

要求：

(1)统计每个字母出现的次数时，不区分大小写。

(2)统计后的每个字母的次数必须存入考生文件夹下的out32.txt文件中，否则没有成绩。在文件中的格式为：

字母A出现的次数为xx

字母B出现的次数为xx

字母C出现的次数为xx

字母D出现的次数为xx

注意：

不能修改已经给出的程序部分：在结束程序运行之前，必须单击“保存”按钮，把结果存入out32.txt文件，否则无成绩。最后把修改后的文件按原文件名存盘。

0。

标签Lab1和Lab2，标题分别为“密码”和“允许次数”；一个命令按钮Cmd1：标题为“确定”；两个文本框名称分别为Text1和Text2。其中Text1用来输入密码(输入时，显示“*”)，无初始内容，Text2的初始内容为3。已给出了Cmd1的事件过程，但不完整，要求去掉程序中的注释符“'”，把程序中的问号“?”改为正确内容，使得在运行时，在Text1中输入密码后，单击“确定”按钮，如果输入的是“abcdef”则在Text1中显示“密码正确”；如果输入其他内容，单击“确定”后，弹出如下图所示的错误提示对话框，并且Text2中的数字减1。最多可输入3次密码，若3次都输入错误，则禁止再次输入。

注意：

不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。