下列VB程序运行时，在文本框Text1中输入2，单击命令按钮Command1后，文本框Text2的内容是________。
Private Sub Command1_Click()
Dim t As Single, h1 As Single, h2 As Single
Const g = 9.8
t = Val(Text1.Text)
h1 = (g * t ^ 2) / 2
h2 = Int(h1)
Text2.Text = Str(h2)
End Sub

在下面列出的四个程序段中，不能正确地将 x和y两个变量中的数据进行交换的是（  ）

A．x=y   y=x	B．x=x+y    y=x-y    x=x-y
C．m=x   x=y   y=m	D．m=y    y=x    x=m

利用格里高利公式 求 ，直到最后一项的值小于0.0001为止，输出的值。
Private Sub Command1_Click()
Dim Pi As Single, t  As Single
Dim n As Integer, s As Integer
Pi = 0
t = 1: n = 1:s =1
Do While Abs(t) >= 0.0001
Pi = Pi + s * 1 / n
n =①___________
s= ②___________
t = s / n
Loop
Text2.Text =③___________
End Sub

某VB事件过程如下：
Private Sub Command1_Click()
Dim a as Integer
a=Val(Text1.text)    ‘将文本框中的数字文本转换成数值
a=2*a+1
Text1.text = Str(a)
End Sub
程序运行时在文本框Text1中输入1，连续两次单击命令按钮Command1后，Text1中显示的内容是：（   ）

A．7

B．5

C．3

D．1