编写“输出所有子串”程序,实现如下功能:在文本框Text1中输入字符串,在列表框List1中输出该字符串的所有子串并输出子串的总数。程序运行界面以及工程资源窗口如下图所示。
(1)
观察上图,该程序中的窗体对象名为
(单选,填字母: A .求所有子串/
B.Forml / C .子串 .frm / D .工程 l . vbp )
(2)
实现上述功能的 VB 程序如下,请在划线处填入合适的代码。
Private
Sub Command 3_ Click ()
Dim
s As String , sum As Integer
Dim
i As Integer , t As Integer , j as Integer
s
= Text1. Text
t
= Len ( s ) : sum = 0
For
i = 1 To t
For j = i To t
List1.Addltem
sum=sum + 1
Next j
Next
i
List1.
Addltem "总共有"+ + "个子串"
End
Sub
(3)
如果输入的字符串是“abcdefg”,则输出中有 个子串
答案: 【1】B
【1】mid(s,i,j-i+1)【2】Str(sum)
【1】28