1樓：
在窗體上放一個text、一個label
private sub text1_keyup(keycode as integer, shift as integer)
text1.selstart = 0
text1.sellength = 2
if text1.text = "1" thenlabel1.caption = "同意"
elseif text1.text = "0" thenlabel1.caption = "不同意"
else
label1.caption = "輸入不正確"
end if
end sub
2樓：阿克雷之劍
dim i as integer '用於儲存鍵盤keyascii值
private sub form_keypress(keyascii as integer)
i = keyascii
if i = 48 then '以下用於判斷鍵盤keyascii值以及做出相應響應
msgbox "您剛才按下了「0」鍵", vbokonly, "提示"
elseif i = 49 then
msgbox "您剛才按下了「1」鍵", vbokonly, "提示"
else: msgbox "您剛才沒按下「0」鍵，也沒按下「1」鍵", vbokonly, "提示"
end if
end sub
單擊窗體既可以了。這樣可以嗎？
緊急問題物理，物理問題 緊急啊！！！！！！
這裡還應該有一個條件是絕熱板可以在容器裡滑動，不然右邊不會有變化的。完整的順序是 因為達到平衡狀態的話，應該是左右氣體對絕熱板的壓力相同，而此時左邊氣體體積大於右邊氣體體積，並且氣體質量是一樣的，因此只能是左邊氣體溫度高於右邊氣體溫度才會出現這種情況。也就是說左邊氣體具有的內能大於右邊，而開始時候內...
兵役登記問題 緊急，兵役登記問題 緊急
兵役登記是強制性的。國家兵役法規定公民的服役年限為18至22歲，凡是適齡青年，必須依法進行兵役登記。對不依法履行兵役義務的適齡公民，規定可視其情節依法追究其法律責任或給予相應的行政處罰，行政處罰的時限為兩年。登記的基本要求 適齡公民在履行兵役登記手續時必須如實反映本人的真實情況，不得隱瞞或者弄虛作假...
幾個vb簡單問題，幾個VB簡單問題
private sub command1 click 點選按鈕執行下面的語句 x 1 x的初值為1。do while x 10 當滿足x 10的時候都會執行一次do while 和 loop之間的語句，執行完一次再判斷x與10的關係，如果還滿足x 10就再執行一次do while 和 loop之間的...