题目

编写一个删除数字字符串s中的最大和次大数字字符的程序。具体功能如下:在文本框Text1中输入一个数字字符串，单击“删数”按钮Command1，将删除后的结果显示在文本框Text2中。程序运行界面如下图所示: （1） 要使程序运行时，按钮Command1上显示的标题为“删数”，可在Form_Load事件处理过程中添加语句(单选，填字母:A .Caption.Command1=″删数″/B .Command1.Caption=″删数″/C .Caption=″删数″)。 （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） 若在文本框Text1中输入的内容为“82176736”,单击按钮Command1,文本框Text2中显示的内容是。 答案： 【1】B 【1】max2=max1【2】i<>max1 and i<>max2 【1】217636

查看本题答案和解析