试题

试题 试卷

logo

题型:综合题 题类:常考题 难易度:困难

信息技术基础

编写一个删除数字字符串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中显示的内容是
举一反三
返回首页

试题篮