小王编写了一个实现文字查找替换功能的VB程序，运行界面如图所示。文本框Text1显示原文内容，Text2中输入查找内容，Text3中输入替换内容，单击“全部替换”按钮Command1后，Text4显示查找替换的结果，Text5中显示替换的次数，Text6显示“查找内容”在原文中的起始位置。

实现上述功能的VB程序如下，但加框处代码有错，请改正。
Private Sub Command1_Click()
Dim s As String, resule As String, pos As String
Dim count As Integer, i As Integer
i =" 1:" count = 0
resule = "": pos = ""
Do While i <= Len(Text1.Text)
s =" Mid(Text1.Text," i, Len(Text2.Text))
If s =" Text2.Text" Then
result =" result" + Text3.Text
count =" count" + 1
pos =  pos + Str(count)
i =" i" + Len(Text2.Text)
Else
result =" result" + Text2.Text
i =" i" + 1
End If
Loop
Text4.Text = result
Text5.Text = Str(count)
Text6.Text = pos
End Sub

下列VB程序运行时，单击命令按钮Command1后，标签框Label2中显示的内容是________
Private Sub Command1_click()
Dim s as integer,I as integer
S=0
For i="1" to 20 step 3
s=s+(-1)^i*i
Next i
Label1.caption=str(i)
Label2.caption=str(s)
End Sub

下列VB程序段功能为：根据文本框Text1中各字符的大小关系，计算各字符升序排列的序号，并将序号保存在数组y中。如文本框内容为“2011”，程序运行后y（1）〜y（4）各元素的值分别为“4，1，2，3”。
s =" Text1." Text
n = Len（s）
For i =" 1" To n
y（i） = 1
Next i
For i="1" To （1）
For j="（2）" To n
If （3） Then
y（j）=y（j）+1
Else
y（i） =" y（i）" + 1
End If
Next j
Next i
上述程序段3个方框处的表达式分别为

A．（1）n（2）1（3）Mid（s，j，1）>= Mid（s，i，1）

B．（1）n（2）1（3）Mid（s，j，1）> Mid（s，i，1）

C．（1）n-1（2）i+1（3）Mid（s，j，1）>= Mid（s，i，1）

D．（1）n-1（2）i+1（3）Mid（s，j，1）> Mid（s，i，1）

有如下VB 程序段:
m = Val(Text1.Text)
Do While m <> 0
x = m Mod 8
m = m \ 8
a(x) = a(x) + 1
If a(x) = 1 Then n = n + 1
Loop
数组a 各元素的初始值都为0,在文本框Text1中输入“529”,执行程序后,变量n的值为（）

A．1

B．2

C．3

D．4

VB中窗体文件的扩展名是( )

A．VBP

B．FRM

C．VBW

D．PDM