问答题
下有一个工程文件sjt4.vbp。在窗体Form1上有两个名称为Command1和Command2、标题分别为“重输”和“查找”的命令按钮。程序功能如下。
单击“重输”按钮，则清空Text1中的内容，等待用户输入由空格隔开的若干个英文单词；单击“查找”按钮，则找出Text1中最长的单词，并将其显示在Text2中。某一次的运行效果如图所示。请将“查找”按钮的Click事件过程中的注释符去掉，把?改为正确内容，以实现上述程序功能。
.1B4AADD.jpg)
单击“重输”按钮，则清空Text1中的内容，等待用户输入由空格隔开的若干个英文单词；单击“查找”按钮，则找出Text1中最长的单词，并将其显示在Text2中。某一次的运行效果如图所示。请将“查找”按钮的Click事件过程中的注释符去掉，把?改为正确内容，以实现上述程序功能。
【正确答案】
【答案解析】[操作步骤]
步骤1：打开本题项目工程。
步骤2：打开代码编辑窗口，去掉程序中的注释符“"”，将问号改为正确的内容。
参考答案(加粗部分是需考生填入的内容)
Private Sub Command2_Click()
Dim x As String, word As String, word_max As String
Dim num As Integer, xmax As Integer
x=Trim(Text1.Text)
xmax=0
Do While Len(x)＞0
num=InStr(x, Space(1))
If num=0 Then
word= 1
x=" "
Else
word=Left(x, num )
x=Mid(x,num+1)
End If
If Len(word)＞=xmax Then
xmax=Len( word )
word_max=word
End If
Loop
Text2.Text= word_max
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
答案考生文件夹 [解析] 使用Do While循环依次取出Text1文本框中输入的单词，并比较各单词的长度。将最长单词保存到变量中，最终将结果显示到Text2文本框中。
步骤1：打开本题项目工程。
步骤2：打开代码编辑窗口，去掉程序中的注释符“"”，将问号改为正确的内容。
参考答案(加粗部分是需考生填入的内容)
Private Sub Command2_Click()
Dim x As String, word As String, word_max As String
Dim num As Integer, xmax As Integer
x=Trim(Text1.Text)
xmax=0
Do While Len(x)＞0
num=InStr(x, Space(1))
If num=0 Then
word= 1
x=" "
Else
word=Left(x, num )
x=Mid(x,num+1)
End If
If Len(word)＞=xmax Then
xmax=Len( word )
word_max=word
End If
Loop
Text2.Text= word_max
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
答案考生文件夹 [解析] 使用Do While循环依次取出Text1文本框中输入的单词，并比较各单词的长度。将最长单词保存到变量中，最终将结果显示到Text2文本框中。