题库 高中信息
题干
用VB编写求句子中最长单词的程序。输入要求:句子以“.”结束；单词之间用空格分隔，单词没有缩写形式和其它特殊形式。
运行界面如图所示，程序功能：在文本框Text1中输入待统计的句子，单击“统计”按钮Command1,将结果显示在文本框Text2和Text3中。
(1) 观察程序代码，可知“统计”按钮的对象名为_______。（单选，填字母：
(2)根据题意将下列程序补充完整。
Private Sub Tj_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 = ss
Text3.Text = Str(max)
End Sub
运行界面如图所示，程序功能：在文本框Text1中输入待统计的句子，单击“统计”按钮Command1,将结果显示在文本框Text2和Text3中。
(1) 观察程序代码，可知“统计”按钮的对象名为_______。（单选，填字母：
| A．统计 | B．TextH | C．Command1 | D．Tj） |
Private Sub Tj_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 = ss
Text3.Text = Str(max)
End Sub
答案(点此获取答案解析）
