高度为h（h＞O)的二叉树最少有【 】个结点。

个圆和一条直线(直线的名称为Line1)构成一个钟表的图案；有两个命令按钮，名称分别为Cmd1和Crud2，标题分别为Begin和Stop;还有一个名为Timer1的计时器。

程序运行时，钟表指针不动，单击Begin按钮，则钟表上的指针(即Line1)开始顺时针旋转(每秒转6一分钟转一圈)；单击Stop按钮，则指针暂停旋转。运行时的窗体如下图所示。请设置计时器的适当属性，使得每秒激活计时器的Timer事件一次：编写两个按钮的Click事件过程。文件中已经给出了所有控件和部分程序，不得修改已有程序和其他控件的属性；编写的事件过程中不得使用变量，且只能写一条语句。最后，按原文件名并在原文件夹中保存修改后的文件。

滚动条的【 】属性表示滚动条内滑块所处位置所代表的值。

和“清除”，其名称分别为vbDis和vbClear。编写适当的事件过程，使程序运行后，若单击“操作”菜单中的“显示”命令，则在窗体上显示Visual Basic：如果单击“清除”命令，则清除窗体上显示的内容。程序的运行情况如下图所示。

注意：

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

所示。

程序运行后，如果单击“读数”按钮，则读入in271.txt和in272.txt文件中的各20个整数，分别放入两个数组中；如果单击“计算”按钮，则把两个数组中对应下标的元素除以10并截尾取整后相乘，其结果放入第3个数组中(即：把第一个数组的第n个元素除以 10截尾取整，再把第二个数组的第n元素除以10截尾取整，两者相乘后的结果作为第3个数组的第n个元素。这里的n为1，2，…，20)，然后计算第3个数组各元素之和，并把所求得的和在窗体上显示出来；如果单击“保存”按钮，则把所求得的和存入考生文件夹的out27.txt文件中。

在考生文件夹下有一个工程文件execise27.vbp，考生可以装入该文件。窗体文件 execise27.frm中的RcadData1和ReadData2过程可以把in1.txt和in2.txt文件中的各20个整数分别读入Arr1和Arr2数组中；而WriteData过程可以把计算出的整数值写到考生文件夹指定的文件中(整数值通过计算求得，文件名为out27.txt)。

注意：

考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍为exeeise27.vbp，窗体文件名仍为execise27.frm。

在名为Form1的窗体上建立一个二级下拉菜单(菜单项见下表)。

注意：

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

程序运行后，若为“甲队”且成绩大于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