Question

Vb的程序题

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"然后单机按钮。为什么会出现文本框中无内容，焦点在文本框中，还有"Basic"和" BASIC"这两个是一样的吗
失去焦点和按钮哪个先执行，请详细解答运算过程

Answer 1

当然是失去焦点先执行。可以通过一个简便的例子说明。
光标先在Text1中闪烁，此时鼠标左键按下Command1, 但是不要抬起，这时移动鼠标到按钮外，按钮会抬起，再松开鼠标，这样的话，失去焦点事件被触发，而按钮根本就没被单击。原因就是单击的含义是：鼠标再按钮范围内按下并抬起。

第二个问题：
你的写法
If text1.text<>"BASIC"then 中，Basic不等于BASIC.因为二进制比较。
为了避免这个问题，可以改成
If StrComp(Text1.Text, "BASIC", vbTextCompare) Then
这样是单纯字符比较，此时Basic=BASIC.

Answer 2

焦点:
你可以把你的command也改成lostfocus事件,你就知道那个先,那个后了

Answer 3

"Basic"和"BASIC"是以二进位比较，当然不一样。
一般在按下按钮时，失去焦点就运行了。