设计如图3-3(a)所示的窗体,练习使用字符串函数实现每个命令按要求的功能, 单击“查找字符串”按时,弹出如图3-3(b)所示窗口,将所给程序段的【?】处填写完整并运行程序。 编写事件代码 Private Sub Command1_Click() ’ 字符串字符个数 Dim str As String str = Text1.Text Text2.Text = Len(str) End Sub Private Sub Command2_Click() ’ 删除前后空格 Dim str As String str = Text1.Text Text2.Text = Trim(str) End Sub Private Sub Command3_Click() ’ 转换成小写字符 Dim str As String str = Text1.Text '**********SPACE********** Text2.Text = 【 ? 】 End Sub Private Sub Command4_Click() ’ 转换成大写字符 Dim str As String str = Text1.Text '**********SPACE********** Text2.Text = 【 ? 】 End Sub Private Sub Command5_Click() ’ 截取前 2 个字符 Dim str As String str = Text1.Text '**********SPACE********** Text2.Text = 【 ? 】 End Sub Private Sub Command6_Click() ’ 截取后 4 个字符 Dim str As String str = Text1.Text '**********SPACE********** Text2.Text = 【 ? 】 End Sub Private Sub Command7_Click() ’ 截取第 3 个字符开始的 3 字符 Dim str As String str = Text1.Text '**********SPACE********** Text2.Text = 【 ? 】 End Sub Private Sub Command8_Click() ’ 查找字符串 Dim str As String str = InputBox(" 请输入要查找的字符串 ", " 查找 ") '**********SPACE********** Text2.Text = 【 ? 】 If (Text2.Text = "0") Then Text2.Text = " 没找到 " End If End Sub Private Sub Form_Load() Text1.Text = " 长春工程学院 AAA " End Sub