For i=1 To 3

k=“”

Fori-1 To 2*i-1

k=k+“*”

Next j

List1.AddItem k

Next i

该程序运行后，在列表框List1中显示的是（  ）

Private Sub Text1_Change()

  Dim c As Integer, i As Integer

  i=0

  c = Val(Text1.Text)

  Do While c >= 0

    c = c - i

    i = i + 1

  Loop

  Text1.Text = Str(c)

End Sub

在文本框输入“6”，执行该程序段后， 其中c >= 0执行的次数是（  ）

Dima( 1 To 5) As Integer

Dimi As Integer, j As Integer, s As String

s=“”

    For i= 2 To 5

        For j=i To 5

            If j Mod i=0 Then a(j) =a(j)+1

        Next j

    Next i

    For i= 1 To 5

        If a(i) <>1Then s=Str(i) +s

    Next i

    Text 1．Text=S

若数组a的初始值都为0，则运行该程序段后，Text 1中显示的内容为（  ）

>>> a=8

>>> b=2

>>> a-=b

>>> b+=a

>>> a+b