题目

单词的删除与插入。给定一个长度不超过100位的字符串s，显示在Text1中，先对字符串进行删除单词操作，再对其进行插入单词操作，两种操作方式具体如下： 1）操作1（单词的删除）：在Text2中输入一个单词s1，在字符串s中找到左边第一个出现的相同单词（区分大小写），将其删除,并在Label1中显示删除单词的位置pos；若s中不存在单词s1，则字符串s不变。 例如：s=“Go with your your passion．”s1=“your” 点击“删除”按钮后，s=“Go with your passion．”pos=“9”若s1=“Your”,则s不变。 2）操作2（单词的插入）：在Text3中输入一个单词s2，并在Text4中输入插入位置w，将s2插入到经过删除操作的s中以w开始的位置。 例如：s=“Go with your passion．”s2=“absolutely”  w=21 点击“插入”按钮后，s=“Go with your passion absolutely．” 程序运行界面如下图所示。 实现上述功能的VB程序如下。请回答下列问题： （1） 观察程序运行界面和代码，该界面中共有类对象（填数字）。 （2） 标题若要修改为“单词的先删除后插入操作”，需修改窗体的属性。 （3） 请在划线处填入合适的代码。 Dim s As String Private Sub Command1_Click( )     '实现删除单词命令 Dim s1 As String, t As String, i As Integer, pos As String, result As String Dim begin As Integer, word As String s = Text1．Text s1 = Text2．Text begin = 1 For i = 1 To Len(s)     t =      If Not (t >= "a" And t <= "z" Or t >= "A" And t <= "Z") Then         If i > begin Then             word =              If word = s1 Then    ‘找到与s1相等的单词，则将该单词删除                 s = Mid(s, 1, begin - 1) + Mid(s, i+1, Len(s) - i)                 pos =                  Exit For             End If         End If         begin = i + 1     End If Next i Text5|.Text = s Label1.Caption = pos End Sub Private Sub Command2_Click()       '实现插入单词命令     Dim w As Integer, result As String, s2 As String s2 = Text3.Text           result = + " " + s2 + " " + Mid(s, w, Len(s) - w + 1) Text5．Text = result End Sub 答案： 【1】4 【1】caption 【1】Mid(s, i, 1)【2】Mid(s, begin, i - begin)【3】Str(begin)【4】w = Val(Text4．Text)【5】Mid(s, 1, w - 1)

查看本题答案和解析