修改时间：2021-05-20 浏览次数：227 类型：期中考试
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程序如下。请回答下列问题：
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
请回答下列问题：
试题篮
