![[填空题] 在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和Command1,然后编写如下两个事件过程:Private Sub Command1_Click1(,第1张 [填空题] 在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和Command1,然后编写如下两个事件过程:Private Sub Command1_Click1(,第1张](/aiimages/%5B%E5%A1%AB%E7%A9%BA%E9%A2%98%5D+%E5%9C%A8%E7%AA%97%E4%BD%93%E4%B8%8A%E7%94%BB%E4%B8%80%E4%B8%AA%E6%96%87%E6%9C%AC%E6%A1%86%E3%80%81%E4%B8%80%E4%B8%AA%E6%A0%87%E7%AD%BE%E5%92%8C%E4%B8%80%E4%B8%AA%E5%91%BD%E4%BB%A4%E6%8C%89%E9%92%AE%EF%BC%8C%E5%85%B6%E5%90%8D%E7%A7%B0%E5%88%86%E5%88%AB%E4%B8%BAText1%E3%80%81Label1%E5%92%8CCommand1%EF%BC%8C%E7%84%B6%E5%90%8E%E7%BC%96%E5%86%99%E5%A6%82%E4%B8%8B%E4%B8%A4%E4%B8%AA%E4%BA%8B%E4%BB%B6%E8%BF%87%E7%A8%8B%EF%BC%9APrivate+Sub+Command1_Click1%28.png)
[填空题] 在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和Command1,然后编写如下两个事件过程:
Private Sub Command1_Click1()
S$=InputBox("请输入一个字符串")
Text1.Text=S$
End Sub
Private Sub Text1_Change()
Label1.Caption=UCase(Mid(Text1.Text,7))
End Sub
程序运行后,单击命令按钮,将显示一个输入对话框,如果在该对话框中输入字符串“VisualBasic”,则在标签中显示的内容是______。
正确答案:BASIC
参考解析:当文本框中的文本内容改变时(包括通过语句修改其Text属性值或在文本框中直接输入)将触发其Change事件。 本题程序运行时,单击命令按钮并输入内容后,将在文本框中显示输入内容,同时将触发文本框的Change事件,截取出从文本框的第7个字符开始的后续所有字符(即Basic),并在标签中显示出来。
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)