2. 计算机
  3. 设有如图所示窗体和以下程序： Private Sub Command1_Click() 　　Text1.Text＝"Visual Basic" End Sub Private Sub Text1_LostFocus() 　　If Text1.Text"B

设有如图所示窗体和以下程序： Private Sub Command1_Click() 　　Text1.Text＝"Visual Basic" End Sub Private Sub Text1_LostFocus() 　　If Text1.Text"B

admin2019-03-14  29
问题 设有如图所示窗体和以下程序：

Private Sub Command1_Click()
　　Text1.Text＝"Visual Basic"
End Sub
Private Sub Text1_LostFocus()
　　If Text1.Text<>"BASIC"Then
　　　　Text1.Text＝""
　　　　Text1.SetFocus
　　End If
End Sub
程序运行时，在Text1文本框中输入"Basic"(如图所示)，然后单击Command1按钮，则产生的结果是(　　)。
选项 A、文本框中无内容，焦点在文本框中
B、文本框中为"Basic"，焦点在文本框中
C、文本框中为"Basic"，焦点在按钮上
D、文本框中为"Visual Basic"，焦点在按钮上
答案A
解析 题目程序的功能为，当单击命令按钮时，Text1失去焦点，激发Text1的LostFocus事件，在此事件中，程序判断文本框中字符串是否为"BASIC"，如果是则退出事件过程，继续执行命令按钮的单击事件过程，文本框中显示"Visual Basic"，如果不是则文本框内容置空，焦点返回到文本框中等待输入，不会执行命令按钮的单击事件过程。题目中输入了"Basic"，与"BASIC"不符，因此文本框置空，焦点回到文本框中。
    窗体上有一个名称为Command1的命令按钮，其事件过程如下：
Private Sub Command1_Click()
　　x＝"VisualBasicProgramming"
　　a＝Right(x， 11)
　　b＝Mid(x， 7， 5)
　　c＝MsgBox(a ， ， b)
End Sub
转载请注明原文地址:https://kaotiyun.com/show/RzUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)