[填空题] 在窗体上画—个文本框、—个标签和—个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程： Private Sub Command1_Crick()S

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

参考答案：

BASIC

问题解析:

[知识点] 字符串函数[评析] UCase$(字符串)：用来把“字符串”的小写字母转换为大写字母。Mid$(字符串，p，n)：从第p个字符开始，向后截取n个字符。Mid函数的第三个自变量可以省略。在这种情况下，将从第二个自变量指定的位置向后截取到字符串的末尾。文本框的Change事件：如果文本框的内容发生变化将会触发文本框的Change事件。输入的字符串“VisualBasic”被赋给变量S，然后将变量S的值赋给文本框Text1，则触发文本框Text1的Change事件。然后先求出字符串Mid(Text1.Text,7)从文本框Text1中的第七个字符开始截取，一直取到字符串的尾部，所以取出的字符串为“Basic”，然后用UCase函数将取出的字符串转换为大写，最后将转换后的字符串赋给标签Label1的标题，所以标签中显示的内容是BASIC。