题目

在Text1文本框内输入字符串，单击去重按钮，将字符串后面相同的字符删除，并在Text2中输出经过删除的字符串。程序界面如图所示。请在下面划线处填入合适的代码。Private Sub Command1_Click()Dim s As String，s1 As String，c As Strings=Text1.TextFor i=1 To Len（s）  c=Mid（s，i，1）  s1=  ⑴    For j=  ⑵      If c<>Mid（s，j， 1）Then      s1=s1+Mid（s，j，1）    End If  Next j      ⑶    Next iText2.Text=sEnd Sub A . （1）Mid（s，1，1）    （2）i+1 To Len（s）    （3）s1=s B . （1）Mid（s，1，1）    （2）i To Len（s）       （3）s1=s C . （1）Mid（s，1，i）     （2）i To Len（s）       （3）s=s1 D . （1）Mid（s，1，i）     （2）i+1 To Len（s）    （3）s=s1 答案：B

查看本题答案和解析