VB打字遊戲，VB打字遊戲

弱弱地問，我能幫你什麼？ 我可以幫你打字嗎？ 我不認為你說了什麼來幫助你。

新增 10 個 label1 控制組，乙個定時器，操作： 執行完畢後，按回車鍵玩遊戲，:p rivate declare function getasynckeystate lib"user32" (byval vkey as long) as integer

dim m as integer

private sub form_keypress(keyascii as integer)

if keyascii = 13 then

elsefor j = 0 to 9

if label1(j).caption = ucase(chr(keyascii)) then

m = m + 1

if m = 30 then = "1級"

if m = 60 then = "2級"

if m = 90 then = "3級"

label1(j).top = 0

exit for

end if

nextend if

end sub

private sub form_load()

for i = 0 to 9

label1(i).top = 0

next "0級"

end sub

private sub timer1_timer()

static n as integer

if n = 10 then

msgbox "遊戲結束"

falseend if

for i = 0 to 9

if label1(i).top > then

label1(i).top = 0

randomize

label1(i).caption = chr(int(rnd * 26 + 65))

n = n + 1

elseif label1(i).top = 0 then

randomize

label1(i).caption = chr(int(rnd * 26 + 65))

label1(i).top = label1(i).top + 100

elselabel1(i).top = label1(i).top + 100

end if

nextend sub

程式介面、設計、外圍裝置都已經準備好了，或者發郵件：

程式最多可以寫2天，絕對比3L好。

你可以自己做，尋找線上例程，你可以嗨我。

新增 10 個 label1 控制組、乙個計時器和乙個操作：

執行後，按回車鍵玩遊戲，**：

private declare function getasynckeystate lib "user32" (byval vkey as long) as integer

dim m as integer

private sub form_keypress(keyascii as integer)

if keyascii = 13 then

elsefor j = 0 to 9

if label1(j).caption = ucase(chr(keyascii)) then

m = m + 1

if m = 30 then = "1級"

if m = 60 then = "2級"

if m = 90 then = "3級"

label1(j).top = 0

exit for

end if

nextend if

end sub

private sub form_load()

for i = 0 to 9

label1(i).top = 0

0級"end sub

private sub timer1_timer()

static n as integer

if n = 10 then

msgbox "遊戲結束"

falseend if

for i = 0 to 9

if label1(i).top > then

label1(i).top = 0

randomize

label1(i).caption = chr(int(rnd * 26 + 65))

n = n + 1

elseif label1(i).top = 0 then

randomize

label1(i).caption = chr(int(rnd * 26 + 65))

label1(i).top = label1(i).top + 100

elselabel1(i).top = label1(i).top + 100

end if

nextend sub

它能解決你的問題嗎？

打字遊戲不必那麼花哨，對吧？ 只需使用我的**。

如果需要，我可以寫信給你！！ 需要 r·· m··· b！！

《明日科技》第1卷中有VB1200案例，大家可以好好看看。

這是乙個簡單的問題，只需將此 ** 新增到 load（）： = true 形式中即可

表單 load（） 修改為：

private sub form_load()= false

falsefalse

trueend sub

記得採用它！！