1樓：斬天及
'註釋寫在**裡了，望採納：
private sub command1_click()text1.text＝"visual basic" 』當單擊command1按鈕時，text1文字框會顯示"visual basic"
end sub
private sub text1_lostfocus()'當文字框text1失去焦點時，文字框text1的內容會被清空，並再次獲得焦點
'所謂的失去焦點是指先獲得焦點，然後其他控制項又獲得焦點'就是你先選中文字框text1，然後再選擇別的控制項，比如那個command1按鈕，text1就失去焦點了
if text1.text<>"basic"thentext1.text＝""
text1.setfocus
end if
end sub
2樓：
private sub command1_click()'按鈕command1的單擊事件
text1.text＝"visual basic"'文字框text1的內容等於字串"visual basic"
end sub
private sub text1_lostfocus()'文字框text1焦點丟失事件
if text1.text<>"basic"then'如果文字框text1的內容不是字串"basic"，那麼
text1.text＝"" '文字框text1的內容等於空字串
text1.setfocus '文字框text1重新獲得焦點
end if
end sub
3樓：
command1點選的時候，text1的文字變成"visual basic"。
當text1失去焦點的時候，如果它的文字不是"basic"，那麼就清空文字，然後重新得到焦點。
請教VB的簡單問題，請教一個VB的簡單問題！
先宣告一個函式.private declare function getwindowsdirectory lib kernel32 alias getwindowsdirectorya byval lpbuffer as string,byval nsize as long as long publ...
請教高手乙個VB演算法的問題，三個VB的問題 求解
做個迴圈就行吧。好麻煩啊。private sub command1 click for i 1 to 4 f不可能等於1,至少為2,故a至多為4 for j 1 to 9 for k 1 to 9 for m 1 to 9 for n 1 to 8 if i j and i k and i m an...
請教vbs問題，關於vb的小問題
比如說乙個引數，變數或常量。關於vb的小問題 setmynum是乙個變數。val表示把括號後面的數轉化為10進製的數值形式。h是16進製制數字的開頭。寫在 裡面表示加上 h這兩個字元竄。如加號後面的數值 5的話，setmynum就等於val h5 這個意思。號後面的mid sur,11 4 1,4 ...