小红喜欢听音乐，她从网上下载了大量的音乐，为便于管理和使用，她对下载的音乐文件进行了相应整理。小红进行了以下操作：

⒈将“DJ音乐”文件夹中的所有对象，按“详细信息”进行查看；

⒉将“经典老歌”文件夹中的所有对象。按“大小”进行排列；

⒊在“轻音乐”文件夹中新建名为“我喜欢的轻音乐.doc”的文件；

⒋将“军营歌曲”文件夹中的“想家的时候.mp4”移动到“影视金曲”文件夹中。

s = "Python is a popular programming language!"

k = text1.text : c = 0: n = 0

For i = 1 To Len(s)

    ch = Mid(s, i, 1)

    If  Then

        c = c + 1

    If c = 1 And ch = k Then n = n + 1

    Else

    End If

Next i

为实现上述功能，程序段两个方框处的语句分别为（    ）

PRIVATE SUB FORM_CLICK( )

  A=3:B=2

  C=A=B

  PRINT C

END SUB

程序如下：

Private Sub Form_Click()

    Dim i As Integer

    Dim t As Integer

    For i = 100 To 200

        If Then           '不能够被3整除的条件

            Print i

            t=t+1

        End If

    Next i

End Sub

程序运行结束后t的值为

图a

Function lsc(x，y) As Integer

    If x＞y Then

        lsc＝x－y

    Else

        lsc＝y－x

    End If

End Function

Private Sub Command1_Click( )

    Dim a1 As Integer，a2 As Integer

    a1＝Val(Text1.Text)

    a2＝Val(Text2.Text)

    Label1.Caption＝              

End Sub

要实现上述功能，程序画线处应填入的语句为(　     )