编写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

若X=78，则下列程序运行后的运行结果为▁▁。
INPUT  X
IF  X<60  THEN
PRINT  “BuJeGe”
ELSE
IF  X<70  THEN
PRINT  “JeGe”
ELSE
IF  X<85  THEN
PRINT  “ZhengDeng”
ELSE
PRINT  “YouXiu”
END IF
END IF
END IF

A．YouXiu

B．ZhengDeng

C．JeGe

D．BuJeGe

现有如下Visual Basic程序段：

Private Sub Command1_Click（）

Dim a , b , c  as Integer
a = 27: b = 9: c = -6
If a > b And b > 0 Then
If c < 0 Then a = a - c Else a = a - b

Else

    a = b + c

End If

Print a

End Sub

该程序段运行之后，变量a的值为__________。

已知a=8、b=6，以下程序段
If (a Mod 3 = 0) Or (b Mod 3 = 0) Then
c = a * b
Else
c = a + b
End If
执行后变量c的值为（  ）

A．8

B．14

C．48

D．6

某算法的流程图如图所示：

执行该算法后，“a←a＋1”共被执行的次数是(  )

A．0	B．1
C．4	D．5