（1）考生文件夹中有工程文件sjt3.vbp。窗体上已有部分控件。在窗体上画一个名称为Text1的文本框，设置相应属性，使得该文本框能够显示多行文本，且有垂直滚动条，如图所示。运行程序时，将在文本框T...

（1）考生文件夹中有工程文件sjt3.vbp。窗体上已有部分控件。在窗体上画一个名称为Text1的文本框，设置相应属性，使得该文本框能够显示多行文本，且有垂直滚动条，如图所示。运行程序时，将在文本框Text1中显示一段英文短文。
要求：向文本框Text2中输入一个字符串（例如"enjoy"），然后单击"查找"命令按钮，则判断输入的字符串是否存在于Text1显示的文本中。如果存在，则显示它在Text1中首次出现的位置（Text1中第1个字符的位置为1）；否则用消息框显示"没有找到！"。
注意：按照题目要求在窗体上添加控件，并设置有关属性。去掉程序中的注释符，把程序中的？改为正确的内容。考生不得修改窗体文件中已经存在的程序。最后把修改后的文件按原文件名存盘。

（2）在考生目录下有一个工程文件sjt4.vbp。窗体上已有文本框Text1和图片框Picture1（两者位置重叠），并建立了菜单。要求单击"显示图片"菜单项时，隐藏文本框，在图片框中显示图片Pic4.bmp，同时将该菜单标题改为"清空图片"；单击"清空图片"菜单项时，清除图片框中的图片，同时将菜单标题改为"显示图片"；单击"显示文本"菜单项，则隐藏图片框，并将指定文件的内容显示在文本框中。在给出的窗体文件中已经有了全部控件，但程序不完整。
要求：去掉程序中的注释符，把程序中的？改为正确的内容。最后把修改后的文件按原文件名存盘。

进入题库练习

参考解析: （1）【解题思路】在窗体上建立好控件后，先设置控件属性，再编写事件过程，将文本框1内容赋值给变量str1, 将文本框2内容赋值给变量str2, 单击命令触发Click事件，在事件中对str1值中查找str2
【操作步骤】
步骤1：按照题目要求打开工程文件，在窗体中添加文本控件Text1并按表在属性窗口中设置相应属性。
控件文本控件Text1
属性 MultiLine ScrollBars
设置值 true 2
步骤2：打开代码编辑窗口，去掉程序中的注释符"＇",将问号改为正确的内容。
参考答案（阴影部分是需考生填入的内容）
Private Sub Command1_Click()
        str1 = Text1.Text
        str2 = Text2.Text
        n = Len(str2)
        For i = 1 To Len(str1)
           If Mid(str1, i, n) = RTrim(str2) Then
              MsgBox str2 & "的起始位置是：" & I  ＇判断输入的字符串是否存在Text1文本中，如果存在则显示它在Text1中首次出现的位置
              Exit For
           End If
        Next
If i > Len(str1) Then MsgBox "没有找到!"
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
（2）【解题思路】设置控件的可见属性是Visible。根据条件设置相应的Visible属性。打开文件读取文件内容。
【操作步骤】
步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符"＇",将问号改为正确的内容。
参考答案（阴影部分是需考生填入的内容）
Private Sub showPic_Click()
        Picture1.Visible = True
        Text1.Visible = False
        If showPic.Caption = "显示图片" Then
            Picture1.Picture = LoadPicture(App.Path & "\pic4.bmp") ＇单击"显示图片"菜单，在图片框中显示图片
            showPic.Caption = "清空图片"
        Else
             Picture1.Picture = Nothing  ＇清除图片框中的图片
            showPic.Caption = "显示图片"
        End If
End Sub
Private Sub showText_Click()
        Picture1.Visible = False  ＇隐藏图片框
        Text1.Visible = True
        Open App.Path & "\data4.dat" For Input As #1 ＇调出指定文件内容
        Input #1, s
        Text1.Text = s ＇调出内容显示在文本框
        Close #1
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。