[填空题] 在窗体上画—个文本框、—个标签和—个命令按钮,其名称分别为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】 。
参考解析:[知识点] 字符串函数[评析] UCase$(字符串):用来把“字符串”的小写字母转换为大写字母。Mid$(字符串,p,n):从第p个字符开始,向后截取n个字符。Mid函数的第三个自变量可以省略。在这种情况下,将从第二个自变量指定的位置向后截取到字符串的末尾。文本框的Change事件:如果文本框的内容发生变化将会触发文本框的Change事件。输入的字符串“VisualBasic”被赋给变量S,然后将变量S的值赋给文本框Text1,则触发文本框Text1的Change事件。然后先求出字符串Mid(Text1.Text,7)从文本框Text1中的第七个字符开始截取,一直取到字符串的尾部,所以取出的字符串为“Basic”,然后用UCase函数将取出的字符串转换为大写,最后将转换后的字符串赋给标签Label1的标题,所以标签中显示的内容是BASIC。