如图所示流程图片断该流程图中循环部分结束后，变量S的值是(    )

A．5	B．15
C．25	D．36

编写VB程序，实现如下功能：在文本框Text1中输入一个整数，单击“查找”按钮，找出该整数的全部的连续整数固定和，并将它们显示在列表框List1中。所谓一个数n的连续整数固定和，就是指存在a₁，a₂，…，a_n，其中a_i+1比a_i大1，使得a₁+a₂+…+a_n=n。这样a₁，a₂，…，a_n称为n的一个连续整数固定和。例如27的全部的连续整数固定和有3组，运行界面如图所示，实现上述功能的VB代码如下，但加框处代码有错，请改正。

Private Sub Command1_Click()
Dim i As Integer, j As Integer, sum As Integer
Dim n As Integer
n = Val(Text1.Text)
sum = 0
List1.Clear
For i =" 1" To n ' ①
j =" i" - 1
Do While  sum <=" n" ' ②
j =" j" + 1
sum =" sum" + j
Loop
If sum =" n" Then
List1.AddItem Str(i) & " + ... +" & Str(j) & "=" & Str(n)
End If
sum = 0
Next i
End Sub

编写“输出所有子串”程序，实现如下功能：在文本框Text1中输入字符串，在列表框List1中输出该字符串的所有子串并输出子串的总数。程序运行界面以及工程资源窗口如下图所示。

（1）观察上图，该程序中的窗体对象名为________________（单选，填字母：

A．求所有子串/

B．Form1/

C．子串.frm/

D．工程1.vbp）

（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command3_Click()
Dim s As String, t As Integer, j As Integer
s = Text1.Text
t = Len(s): Sum = 0
For i = 1 To t
For j = i To t
List1.AddItem ①_________________________________
Sum = Sum + 1
Next j
Next i
List1.AddItem "总共有" + ②_______________________________ + "个子串" 
End Sub
（3）如果输入的字符串是“abcdefg”，则输出中有____________个子串

下列VB程序段的输出结果是
a=25:b=18:c=b
if  a>b  then
c=a
end if
print c

A．25

B．18

C．7

D．0

在VB中，函数lnt(7.2)的值是（  ）

A．-7.2

B．7

C．7.2

D．8