c = 0

  c = c + 1

  c = c + 2

    Dim P As Integer, q As Integer, S As Integer, t As Integer

    p=Val(Text1．Text)

    t=0

    For q=P+1 To 2*p

      s=(p*q)Mod(q-p)

      If s=0 Then

         t=t+1

      End If

    Next q

    Label1. Caption=Str(t)

该程序段运行时，在文本框Text1中输入8，则在标签Label1中显示的内容是（  ）

程序代码中,语句加框处有错，请改正。

Private Sub Command1_Click()

Dim s As String, sum As Integer

Dim i As Integer, j As Integer

List1.Clear

s = Text1.Text

n = len(s)

                               ’（1）

For i = 1 To n

  For j = 1 To n-i+1

     List1.AddItem        ’（2）

     sum = sum + 1

  Next j

Next i

List1.AddItem "总共有" + Str(sum)  + "个子串"

End Sub

⑴{#blank#}1{#/blank#} ⑵{#blank#}2{#/blank#} 

s=Text 1.Text：n=0：f=False

For i=1 To Len(s)

  ch=Mid(s，i，1) 

  If ch>="0" And ch<="9" Then

    If Not f Then

      f=True：n=n+1

    End If

  Else

    f=False

  End If

Next i

运行该程序段后，在文本框Text 1中输入“13+(123-23) *2”则变量n的值为（  ）

lst=[74,32,66,46,38,28,85]

k=1

for i in range(len(lst)-1):

    if lst[i]*k < lst[i+1]*k:

        print(lst[i],end=" ")

k=-k

执行完以上程序段后，输出的内容为（   ）