题库 高中信息
题干
在text1文本框内输入字符串，单击去重按钮，将字符串后面相同的字符删除，并在text2中输出经过删除的字符串。程序界面如图所示。请在下面划线处填入合适的代码。
Private Sub Command1_Click()
Dim s As String, s1 As String, c As String
s = Text1.Text
For i = 1 To Len(s)
c = Mid(s, i, 1)
s1 = （1）
For j = （2）
If c <> Mid(s, j, 1) Then
s1 = s1 + Mid(s, j, 1)
End If
Next j
（3）
Next i
Text2.Text = s
End Sub
Private Sub Command1_Click()
Dim s As String, s1 As String, c As String
s = Text1.Text
For i = 1 To Len(s)
c = Mid(s, i, 1)
s1 = （1）
For j = （2）
If c <> Mid(s, j, 1) Then
s1 = s1 + Mid(s, j, 1)
End If
Next j
（3）
Next i
Text2.Text = s
End Sub
| A．（1）s1 = Mid(s, 1, 1) （2）i + 1 To Len(s) （3）s1 = s |
| B．（1）s1 = Mid(s, 1, 1) （2）i To Len(s) （3）s1 = s |
| C．（1）s1 = Mid(s, 1, i) （2）i To Len(s) （3）s = s1 |
| D．（1）s1 = Mid(s, 1, i) （2）i + 1 To Len(s) （3）s = s1 |
答案(点此获取答案解析）
