编写“输出所有子串”程序，实现如下功能：在文本框Text1中输入字符串，在列表框List1中输出该字符串的所有子串并输出子串的总数。程序运行界面以及工程资源窗口

题干

编写“输出所有子串”程序，实现如下功能：在文本框Text1中输入字符串，在列表框List1中输出该字符串的所有子串并输出子串的总数。程序运行界面以及工程资源窗口如下图所示。

（1）观察上图，该程序中的窗体对象名为________________（单选，填字母：

A．求所有子串/

B．Form1/

C．子串.frm/

D．工程1.vbp）

（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command3_Click()
Dim s As String, 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.AddItem ①_________________________________
Sum = Sum + 1
Next j
Next i
List1.AddItem "总共有" + ②_______________________________ + "个子串"
End Sub
（3）如果输入的字符串是“abcdefg”，则输出中有____________个子串

上一题下一题 0.99难度填空题更新时间:2019-05-24 11:42:11

答案(点此获取答案解析）

同类题5

随机生成15个100以内1,100的正整数并显示在一个文本框中，再点击交换按钮将所有对称位置的两个数据对调后显示在另一个文本框中（第1个数与第15个数对调，第2个数与第14个数对调……）。小叶设计的运行界面和程序代码如下：

Dim a(1 To 15) As Integer
Private Sub Form_Load()
Dim i As Integer, t As Integer
Dim s1 As String, s2 As String
Randomize
s1 = ""
For i = 1 To 15
a(i) =___________
s1 = s1 + Str(a(i))
Next i
Text1.Text = s1
End Sub
Private Sub Com1_Click()
s2 = ""
For i = 1 To 15
s2 =_____________
Next i
Text2.Text = s2
End Sub
（1）要使窗体的标题显示文字“数字交换”，应该更改Form1的_________________ 属性（A. Name /B. Caption /C. Font /D. Forecolor）。从程序代码可知，此命令按钮的对象名是________________________。
（2）请在划线处填入合适代码。
（3）程序测试运行后生成如下文件：（A. jiaohuan.frm /B. jiaohuan.vbp /C. jiaohuan.vbw /D. jiaohuan.exe）。其中属于windows系统可执行文件是：（单选，填字母_________________）。

题干

答案(点此获取答案解析）

同类题1

同类题2

同类题3

同类题4

同类题5