1樓：
private sub form_load()text1.text = 1
end sub
private sub text1_keydown(keycode as integer, shift as integer)
if keycode = 32 then
text1.text = val(text1.text) + 1if val(text1.text) > 99 then text1.text = 1
end if
end sub
測試通過
2樓：匿名使用者
游標放到文字框上，按空格
dim i as integer
private sub form_load()i = format(1, "00")
text1.locked = true
end sub
private sub text1_keypress(keyascii as integer)
if keyascii = 32 theni = format(i + 1, "00")text1.text = format(i, "00")end if
if i >= 99 then i = format(0, "00")
end sub
想要介面美觀，最好加**，
3樓：洒家不戒女色
dim keydown as boolean
private sub form_keydown(keycode as integer, shift as integer)
if keycode = vbkeyspace then
keydown = true
end if
end sub
private sub form_keyup(keycode as integer, shift as integer)
if keycode = vbkeyspace and keydown = true then
label1.caption = format(val(label1.caption) + 1, "0#")
if label1.caption = 100 then
label1.caption = "01"
end if
end if
keydown = false
end sub
private sub form_load()
me.keypreview = true
label1.caption = "01"
label1.backstyle = 0
end sub
寫成這樣不怕壓著空格鍵的時候數一直累加。。如果你要裝飾一下的話。。就調一下字型和前景色。。導乙個設計好的邊框**到form裡面調一下位置就好
4樓：匿名使用者
沒有安裝vb，不過看樓上的，貌似都是可以的哦
請問這個c語言程式是什麼意思，請問這段C語言程式碼是什麼意思？
srand time 0 選擇按執行時的系統時間來初始化隨機數生成 int a rand 把隨機數賦給aprintf d n a 100 列印隨機數return 0 你這段 是產生乙個100以內的隨機數並列印。srand函式的原型 voidsrand unsigned int seed srand和...
請問這個是什么，請問這個是什麼？
不是被什麼劃到了 麼？這是你被蟲子咬了之後的痕跡，或者是划的。塗點風油精問題就不大了。這個是 皰疹，記住不要用指甲抓會感染的，到正規醫院就診吧 燙傷，用燙傷膏或橄欖油 請問這個是什麼？這是 燈塔 燈塔是位於海岸 港口或河道，用來指引船舶航行方向的建築物。燈塔大部分都類似塔的形狀，透過塔頂的透鏡系統，...
請問這個c程式編譯錯誤是什麼原因
extern 的含義是 extern可置於變數或者函式前，以表示變數或者函式的定義在別的檔案中，提示編譯器遇到此變數和函式時在其他模組中尋找其定義。也就是說extern 並不是宣告乙個變數，而是指向乙個在其它檔案中定義的存在的變數。乙個變數必然占用一定的記憶體空間，extern並不是為變數申請記憶體...
請問這個SQL語句怎麼寫，請問這個SQL語句怎麼寫？
if age1 and age2 then sql sql birthday between 下面該怎麼寫？if age1 and age2 then sql sql birthday between format trim age1.text yyyy mm dd and format trim ...
請問這是誰，請問這個是誰
張辛苑，女，湖北武漢人，戲劇學院2008級表演系本科學生。2008年8月以網名 辛苑 上傳清新復古 爆紅網路 請問這是誰？鄭業成，1993年8月26日出生於吉林省吉林市，中國內地影視演員。7歲開始學習京劇，10歲考入上海戲劇學院附屬戲曲學校正式學習武生，2010年考入中國戲曲學院京劇表演班，於201...