A.PrivateSubText1_GotFocus()Text1.SelStart=0Text1.SelLength=Len(Text1.Text)EndSub
B.PrirateSubText1_LosFocus()Text1.SelStart=0Text1.SelLength=Len(Text1.Text)EndSub
C.PrivateSubText1_Change()Text1.SelStart=0Text1.SelLength=Len(Text1.Text)EndSub
D.PrivateSubText1_SetFocus()Text1.SelStart=0Text1.SelLength=Len(Text1.Text)EndSub
C
PrivateSubCommand1_Click()
Text1.Text="MicrosoftVisualBasic"
EndSub
PrivateSubText1_Change()
Text2.Text=UCase(Text1.Text)
EndSub
程序运行后,单击命令按钮,则在Text2文本框中显示的内容是
A.MicrosoftVisualBasic
B.microsoftvisualbasic
C.MICROSOFTVISUALBASIC
D.空字符串
C解析:[分析]:本题有两个事件过程,一个是命令按钮的Click事件过程,一个是文本框Text1的Change事件过程,当单击命令按钮时,执行前一个事件过程,而当在文本框Text1中输入信息时,将执行该文本框的Change事件过程。在命令按钮事件过程中,为文本框Text1的Text属性赋值,即在该文本框中显示字符串“MicrosoftVisualBasic”,在这种情况下,将触发Text1文本框的Change事件,将文本框Text1中的所有字母转换为大写字母,并在文本框Text2中显示出来。

第二步:编写程序代码。程序提供的代码:OptionExplicitPrivateSubC1_Click()’IfText1.Text=""ThenMsgBox""ElseMsgBox“错误”EndSub参考代码:OptionExplicitPrivateSubC1_Click()IfText1.Text="ABC"ThenMsgBox“正确”ElseMsgBox"错误"EndSub第三步:调试并运行程序。第四步:按题目要求存盘。(2)建立好控件后,先设置控件属性,再编写事件过程。复选框用来表示状态,在程序运行期间可以改变其状态。复选框的标题由Caption属性来设置,复选框的Value属性用来表示复选框的状态。其取值有如下几种:0:表示复选框未被选中;1:表示选中该复选框;2:表示该复选框被禁止(灰色)。在窗体上打印信息用Print方法,单击命令按钮触发的是Click事件。解题步骤:第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表5-4。
第二步:编写程序代码。程序提供的代码:OptionExplicitPrivateSubC1_Click()DimsAsStrings=“我选的课程是”IfCh1.Value=1Thens=s&“程序设计”EndIfIfCh2.Value=1Thens=s&“数据库原理”EndIfIfCh3.Value=1Then’s=s&Ch3.EndIf’PrintEndSub参考代码:OptionExplicitPrivateSubC1_Click()DimsAsStrings=“我选的课程是”IfCh1.Value=1Thens=s&“程序设计”EndIfIfCh2.Value=1Thens=s&“数据库原理”EndIfIfCh3.Value=1Thens=s&Ch3.CaptionEndIfPrintsEndSub第三步:调试并运行程序。第四步:按题目要求存盘。
A.13579
B.97531
C.12345678910
D.10987654321
A