题库 高中信息
题干
用VB编写“提取字符串”的程序，实现如下功能：在文本框Text1中输入字符串，单击“提取”按钮Command1,程序将字符串中连续最长的大写字母提取出来，并显示在文本框Text2中。程序运行界面如图所示。
（1）程序运行时，要使按钮Command1标题显示“提取”，可在Form_Load()事件处理过程中添加语句_______(单选，填字母:
（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)
d = 0
End If
Next i
Text2. Text= ②___________
End Sub
（3）若文本框Text1中输入内容为：“Is it JUNE or JULY?”，单击“提取”按钮后，文本框Text2中显示的内容是_________。
（1）程序运行时，要使按钮Command1标题显示“提取”，可在Form_Load()事件处理过程中添加语句_______(单选，填字母:
| A．Command1 ="提取"/ | B．Command1.Text="提取"/ | C．Command1.Caption = "提取"）。 |
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 Ifd = 0
End If
Next i
Text2. Text= ②___________
End Sub
（3）若文本框Text1中输入内容为：“Is it JUNE or JULY?”，单击“提取”按钮后，文本框Text2中显示的内容是_________。
答案(点此获取答案解析）
相关知识点