1. 编写“输出所有子串”程序，实现如下功能：在文本框Text1中输入一串不重复的字符串，单击命令按钮“生成子串”，在列表框List1中输出该字符串的所有子串并输出子串的总数。程序运行界面以及工程资源窗口如下图所示，VB程序代码如下

1. （1） 在程序运行后，发现文本框Text1中已经有内容显示，若要做到程序运行后文本框中内容默认为空，则应在下列事件过程中添加代码Text1. Text=“”。(单选，填字母：A .Command1_ Click/ B .Text1_ Click/C .Form_ Load / D .List1_Click )。
3. （2） 请在划线处填入合适的代码。

   Private Sub Command1_Click()

       Dim s As String，sum As Integer

       Dim i As Integer，j as Integer

       s= Text1. Text

       n= 0

       For i=1 To Len(s)

           For j=1 To Len(s)-i+1

               List1. AddItem

               n=n+1

           Next j

       Next i

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

   End Sub

5. （3） 如果输入的字符串是“desk”，则输出中有个子串。