用VB编写求句子中最长单词的程序。输入要求:句子以‘.’结束;单词之间用空格分隔,单词没有缩写形式和其他特殊形式。运行界面如图所示,程序功能:在文本框Text1中输入待统计的句子,单击“统计”按钮Command1,将结果显示在文本框Text2和Text3中。
(1)
代码“Private Sub Command1_ Click”中的Command1_ Click ()是(单选,填字母:A .对象名;B .事件;C .事件处理过程;D .方法)。
(2)
根据题意将下列程序补充完整。
Private Sub Command1_ Click()
Dim i As Integer, k As Integer
Dim s As String, ch As String
Dim max As Integer '存储句子中最长单词的长度
Dim ss As String '存储句子中最长的单词
s= Text1.Text
i=1 :k=0:max=0
ch=“”
Do While ch<>“.“ Or i
<= Len(s)
ch= Mid(s, i, 1)
If ch <>“”And ch<>“.”Then
Else
k=0
End If
If Then
max= k
ss=
End If
i=i+1
Loop
Text2.Text= Str( max)
Text3.Text= ss
End Sub
答案: 【1】C
【1】k=k+1【2】k> max【3】Mid(s, i-k+1, k)