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