(6)在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为 Text1、Label1 和 Command1,然 后编写如下两个事件过程: Private Sub Command1_Click( ) S$=InputBox('请输入一个字符串') Text1.Text=S$ End Sub Private Sub Text1_Change( ) Label1.Caption=UCase(Mid(Text1.Text, 7)) End Sub 程序运行后,单击命令按钮,将显示一个输入对话框,如果在该对话框中输入字符串“VisualBasic”, 则在标签中显示的内容是 【6】 。