设有如图所示窗体和以下程序：
Private Sub Command1_Click() Text1.Text＝"Visual Basic"End SubPrivate Sub Text1_LostFocus() If Text1.Text<>"BASIC"Then Text1.Text＝"" Text1.SetFocus End IfEnd Sub程序运行时，在Text1文本框中输入"Basic"(如图所示)，然后单击Command1按钮，则产生的结果是( )。
- A.文本框中无内容，焦点在文本框中
- B.文本框中为“Basic”，焦点在文本框中
- C.文本框中为“Basic”，焦点在按钮上
- D.文本框中为“Visual Basic”，焦点在按钮上
热度🔥231
参考答案：A
解析：
【解析】题目程序的功能为，当单击命令按钮时，Text1失去焦点，激发Text1的LostFocus事件，在此事件中，程序判断文本框中字符串是否为"BASIC"，如果是则退出事件过程，继续执行命令按钮的单击事件过程，文本框中显示"Visual Basic"，如果不是则文本框内容置空，焦点返回到文本框中等待输入，不会执行命令按钮的单击事件过程。题目中输入了"Basic"，与"BASIC"不符，因此文本框置空，焦点回到文本框中。
【解析】题目程序的功能为，当单击命令按钮时，Text1失去焦点，激发Text1的LostFocus事件，在此事件中，程序判断文本框中字符串是否为"BASIC"，如果是则退出事件过程，继续执行命令按钮的单击事件过程，文本框中显示"Visual Basic"，如果不是则文本框内容置空，焦点返回到文本框中等待输入，不会执行命令按钮的单击事件过程。题目中输入了"Basic"，与"BASIC"不符，因此文本框置空，焦点回到文本框中。
复制题目向AI提问
Private Sub Command1_Click() Text1.Text＝"Visual Basic"End SubPrivate Sub Text1_LostFocus() If Text1.Text<>"BASIC"Then Text1.Text＝"" Text1.SetFocus End IfEnd Sub程序运行时，在Text1文本框中输入"Basic"(如图所示)，然后单击Command1按钮，则产生的结果是( )。
A.文本框中无内容，焦点在文本框中
B.文本框中为“Basic”，焦点在文本框中
C.文本框中为“Basic”，焦点在按钮上
D.文本框中为“Visual Basic”，焦点在按钮上
答案：A。
解析：【解析】题目程序的功能为，当单击命令按钮时，Text1失去焦点，激发Text1的LostFocus事件，在此事件中，程序判断文本框中字符串是否为"BASIC"，如果是则退出事件过程，继续执行命令按钮的单击事件过程，文本框中显示"Visual Basic"，如果不是则文本框内容置空，焦点返回到文本框中等待输入，不会执行命令按钮的单击事件过程。题目中输入了"Basic"，与"BASIC"不符，因此文本框置空，焦点回到文本框中。">
content_copy
扫码免费计算机二级刷题
2025年计算机等级考试题库
推荐
VBA中，将字符代码转换为对应字母的函数是
设有定义：
int x[2][3];
则以下关于二维数组x的叙述错误的是
设有学生表S(学号，姓名，性别，年龄)、课程表C(课程号，课程名，学分)和学生选课表SC(学号，课程号，成绩)，检索学号、姓名和学生所选课程的课程名和成绩，正确的SQL命令是( )。
如下图所示，在Cisco2511路由器R1的16个异步串行接口上连接一台Modem pool为用户提供拨号上网服务，分配一个IP子网地址为195.223.56.16/28；使用同步串行接口，通过DDN专线与R2相连，分配一个IP地址为222.112.41.81/30。下列路由器R1的异步串行接口a1和同步串行接口s1/1的部分配置，正确的是（）。
