[填空题] 在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Textl、Labell和 Commandl，然后编写如下两个事件过程： Private Sub Commandl

[填空题] 在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Textl、Labell和 Commandl，然后编写如下两个事件过程：

Private Sub Commandl_Click()

S$=InputBox(“请输入一个字符串”)

Textl.Text=S$

End Sub

Private Sub Text1_Change()

Labell.Caption=UCase(Mid(Text1.Text，7))

End Sub

程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串

"VisualBasic"，则在标签中显示的内容是______。

BASIC

Mid函数语法为 Mid(string,start[,length))。Mid(a$，I，n)表示从字符串a$的第i个字符开始向后截取n个字符。如果省略n，则一直截取到尾部。UCase函数返回字符串的大写形式．故本题意在截取字符串"Visual Basic"后五位字母，并将其转换成大写字母状态，故本处填：BASIC。