1樓：匿名使用者
1、private sub form_load()
call shell("shutdown -s -t 10")
endend sub
2樓：匿名使用者
private sub command1_click()
form2.show
end sub
private sub form_keypress(keyascii as integer)
if chr(keyascii) = "c" then
circle (1500, 2000), 800, vbcolor = (15)
end if
if chr(keyascii) = "s" then
form2.cls
end if
end sub
private sub command1_click()
static n as long
n = n + 1
if text2.text = "123" then
me.hide
form2.show
else
if n < 3 then
msgbox "reget", vbokonly + vbcritical, "massage"
else
msgbox "close", vbokonly + vbcritical, "re"
endend if
end if
end sub
private sub text1_change()
username = text1.text
if username = "" then
msgbox "name"
exit sub
end if
end sub
vb中交換兩個變數的值，VB 將ab兩個變數的值互換
dim a as integer,b as integera 1 b 2 a a b b a b a a b debug.print a,b imports system module tester sub main dim a,b as integer a 1 b 2 swap1 a,b cons...
請教vb問題，請教乙個vb問題
註釋寫在 裡了，望採納 private sub command1 click text1.text visual basic 當單擊command1按鈕時，text1文字框會顯示 visual basic end sub private sub text1 lostfocus 當文字框text1失去...
兩個電腦基本問題 加急 關於電腦兩個問題
鍵盤上有3個燈，nl和cl燈想必你都知道，可是不知道鍵盤上的scroll lock燈和其對應的鍵有什麼作用，對吧？隨著技術發展，在進入windows時代後，scroll lock鍵的作用越來越小，不過在excel中它還是有點用處 如果在scroll lock關閉的狀態下使用翻頁鍵 如page up和...