用VB编写“提取字符串”的程序,实现如下功能:在文本框Text1中输入字符串,单击“提取”按钮Command1,程序将字符串中连续最长的大写字母提取出来,并显示在文本框Text2中。程序运行界面如图所示。
(1)
程序运行时,要使按钮Command1标题显示“提取”,可在Form_Load()事件处理过程中添加语句(单选,填字母:A . Command1 ="提取"/B . Command1.Text="提取"/C .
Command1.Caption = "提取")。
(2)
实现上述功能的VB程序如下,请在划线处填入合适代码。
Private Sub Command1_Click()
Dim s As String, d As Integer,
i As Integer
Dim max As Integer, c As
String, ans As String
s = Text1.Text
d = 0 : max =0
For i = 1 To Len(s)
c = Mid(s, i,
1)
If c >=
"A" And c <= "Z" Then
d = d + 1
Else
If d >
max Then
ans=
Mid(s, i - d, d)
End If
d = 0
End If
Next i
Text2.Text=
End Sub
(3)
若文本框Text1中输入内容为:“Is it JUNE or JULY?”,单击“提取”按钮后,文本框Text2中显示的内容是。
答案: 【1】C
【1】max=d【2】ans
【1】JUNE