计算二的近似值的一个公式是 

某人编写下面的程序用此公式计算并输出π的近似值： 

 Private Sub Comand1_Click( ) 

 PI=1 

 Sign=1 

 n=20000 

 For k=3 To n 

 Sign=-Sign/k 

 PI=PI+Sign/k 

 Next k 

 Print PI*4 

 End Sub 

运行后发现结果为3.22751，显然，程序需要修改。下面修改方案中正确的是__________

在窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：

 Private Sub Form_Click( ) 

 Open "d:\test\smtext1.Txt"

 For Input As #1 

 Do While Not __________

 Line Input #1, aspect$

 Whole$=whole$+aspect$+Chr$(13)+Chr$(10) 

 Loop

 Text1.Text=whole$

 __________ 

 Open "d:\test\smtext2.Txt"

 For Output As #1

 Print #1, __________

 Close #1

 End Sub 

运行程序，单击窗体，将把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。

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

 Option Base 1

 Private Sub Command1_Click( ) 

 Dim a(10) As Integer

 For i=1 To 10

 a(i)=i 

 Next

 Call swap (__________) 

 For i=1 To 10 

 Print a(i); 

 Next 

 End Sub

 Sub swap(b( ) As Integer) 

 n=Ubound(b) 

 For i=1 To n/2 

 t=b(i) 

 b(i)=b(n) 

 b(n)=t

 __________ 

 Next 

 End Sub 

上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……。请填空。

有如下程序：

Option Base 1

Private Sub Command1_Click( )

Dim a(10) As Integer

For i=1 To 10

a(i)=i

Next

Call swap (__________)

For i=1 To 10

Print a(i);

Next

End Sub

Sub swap(b( ) As Integer)

n=Ubound(b)

For i=1 To n/2

t=b(i)

b(i)=b(n)

b(n)=t

__________

Next

End Sub

程序运行后，单击窗体，输出结果为__________。

在窗体上画一个标签、一个计时器和一个命令按钮，其名称分别为Labl1、Timer1和Command1，如图1所示。程序运行后，如果单击命令按钮，则标签开始闪烁，每秒钟“欢迎”二字显示、消失各一次，如图2所示。以下是实现上述功能的程序，请填空。

 Private Sub Form_Load( )

 Label1.Caption="欢迎"

 Timer1.Enabled=False 

 Timer1.Interval=__________ 

 End Sub

 Private Sub Timer1_Timer( ) 

 Label1.Visible=__________ 

 End Sub 

 Private Sub command1_Click( )

 __________ 

 End Sub

有一个学生选课的关系，其中学生的关系模式为：学生(学号，姓名，班级，年龄)，课程的关系模式为：课程(课号，课程名，学时)，其中两个关系模式的键分别是学号和课号，则关系模式选课可定义为：选课(学号，__________，成绩)。

为了使复选框禁用(即呈现灰色)，应把它的value属性设置为__________。

软件是__________、数据和文档的集合。

设某循环队列的容量为50，如果头指针front=45(指向队头元素的前一位置)，尾指针rear=10(指向队尾元素)，则该循环队列中共有__________个元素。

设二叉树如下：

 对该二叉树进行后序遍历的结果为__________。

下面程序运行时，若输入“Visual Basic Programming”，则在窗体上输出的是 __________ 

 Private Sub Comand1_Click( ) 

 Dim count(25) As Integer, ch As String

 ch=Ucase(InputBox("请输入字母字符串"))

 For k=1 To Len(ch) 

 n=Asc(Mid(ch,k,1))-Asc("A") 

 If n>=0 Then 

 Count(n)=Count(n)+ 1 

 End If 

 Next k 

 m=count(0) 

 For k=1 To 25 

 If m

 m=count(k) 

 End If 

 Next k 

 Print m 

 End Sub