题目

编写VB程序，实现如下功能：在文本框Text1中输入关键词，例如关键词“ok”，单击“查找”按钮Com-mannd1，在左边的列表框List1所列单词中查找包含“ok”的字符串，如果查找成功，将在右边的列表框List2中输出该单词。若该单词多次符合条件，则只显示一次。如果查找失败，则在列表框List2 中显示“查找无结果“。 实现上述功能的VB代码如下，运行效果如图所示。请回答下列问题： Const n= 5 Dim a(1 To n) As String Private Sub Form_ Load( ) '将n个字符串分别赋值给数组元素a(1)、a(2)、……、a(n)，并在列表list1中显示 '代码略： End Sub Private Sub Command1_ Click( )     Dim s As String, i As Integer, j As Integer     Dim m As Integer, k As Integer     Dim flag As Boolean     s = Text1. Text     m = Len(s)     List2. Clear     flag = False     For i=1 To n         k = Len(a(i))         For j=1 To k- m + 1             If  = s Then     '①改错                 List2. AddItem a(i)                 flag = True                 Exit For      '退出for 循环             End If         Next j     Next i     If  Then    '②填空         List2. AddItem“查找无结果”     End If End Sub （1） 观察运行界面，窗体中一共有个对象。 （2） 程序代码中，加框处①有错，请改正。 （3） 为实现上述功能，请在加框处②填入合适的代码。 （4） 如果删除程序代码中Exit For语句，对程序最终运行结果(选项：有/无)影响。 答案： 【1】5 Mid(a(i), j, m) flag = False 【1】无

查看本题答案和解析