问题
单项选择题
在窗体上画一个文本框Text1、一个标签Label1和一个命令按钮Command1，然后编写如下两个事件
过程：
Private Sub Command1_Click()
a=InputBox("请输入一个字符串")
Text1.Text=a
End Sub
Private Sub TextLChange()
Label1.Caption=UCase(Mid(Text1.Text,8))
End Sub
程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串"Visual Basic"，则在标签中显示的内容是______。
A) visual basic
B) VISUAL BASIC
C) basic
D) BASIC
答案
参考答案：D
解析： 本题包括两个事件过程，其中命令按钮事件过程通过输入对话框来输入一个字符串，并把这个字符串赋给文本框。而当改变文本框的内容时，将触发文本框的Change事件。因此，在把输入的字符串赋给文本框时，将执行文本框的Change事件过程，对标签的Caption属性赋值，该值是：首先取出文本框的第8个字符之后的全部字符，然后把它们转换为大写字母。由于文本框中的字符串为"Visual Basic"，第8个字符为"B"，它之后的字符为"Basic"，执行UCase函数后，转换成大写，即BASIC。