当前位置: 高中信息技术 / 综合题
  • 1. (2019高三上·浙江月考) 编写一个删除数字字符串s中的最大和次大数字字符的程序。具体功能如下:在文本框Text1中输入一个数字字符串,单击“删数”按钮Command1,将删除后的结果显示在文本框Text2中。程序运行界面如下图所示。

    1. (1) 要使程序运行时,按钮Command1上显示的标题为“删数”,可在Form_Load事件处理过程中添加语句(单选,填字母: A . Caption.Command1 ="删数" / B . Command1.Caption ="删数" / C . Caption ="删数"/)
    2. (2) 实现上述功能的VB程序如下,请在划线处填入合适的代码。

      Private Sub Command1_Click()

        Dim s As String, ch As String

        Dim i As Integer, n As Integer

        Dim max1 As Integer, max2 As Integer

        s = Text1.Text: n = Len(Text1.Text)

        If Mid(s, 1, 1) > Mid(s, 2, 1) Then

          max1 = 1: max2 = 2

        Else

          max1 = 2: max2 = 1

        End If

        For i = 3 To n

         ch = Mid(s, i, 1)

         If ch > Mid(s, max1, 1) Then

          

           max1 = i

         ElseIf ch >= Mid(s, max2, 1) Then

           max2 = i

         End If

        Next i

        For i = 1 To n

          If   Then Text2.Text = Text2.Text & Mid(s, i, 1)

        Next i

      End Sub

    3. (3) 若在文本框Text1中输入的内容为“82176736”,单击按钮Command1,文本框Text2中显示的内容是

微信扫码预览、分享更方便