试题

试题 试卷

logo

题型:单选题 题类:常考题 难易度:普通

【bj】高中信息技术综合库——枚举算法及程序实现2

在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 =    ⑴   

        For j =    ⑵   

            If c <> Mid(s, j, 1) Then

                s1 = s1 + Mid(s, j, 1)

            End If

        Next j

           ⑶    

    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
举一反三
返回首页

试题篮