多谢分享啊，已收下，有空了看看

补充说明，是带qbasic代码的，大家可以看看哟……。

有源程序，我喜欢^_^

好

已加精

无法运行啊

精品啊！！

有没有打字游戏的源代码呀？急求···~~

这个程序需要用到qbasic的库文件，还有是需在纯DOS下运行
DECLARE SUB DzHelp ()
DECLARE SUB DzAbout ()
DECLARE SUB DzSpeedTest ()
DECLARE SUB DzInformation (key$, c AS INTEGER)
DECLARE SUB DzBegin ()
DECLARE SUB DrawButton (stx AS INTEGER, sty AS INTEGER, ex AS INTEGER, ey AS INTEGER)
DECLARE SUB DrawBox (stx AS INTEGER, sty AS INTEGER, ex AS INTEGER, ey AS INTEGER)
DECLARE SUB DrawWindow (stx AS INTEGER, sty AS INTEGER, ex AS INTEGER, ey AS INTEGER)
DECLARE SUB DzIap ()
DECLARE FUNCTION DrawMenu% (StartX AS INTEGER, StartY AS INTEGER, mu() AS STRING, mark() AS INTEGER)
DECLARE SUB MouseGet ()
DECLARE SUB MouseOff ()
DECLARE SUB MouseOn ()
DECLARE FUNCTION MouseIn% (StartX AS INTEGER, StartY AS INTEGER, EndX AS INTEGER, EndY AS INTEGER)
DECLARE SUB LettersGet ()
DECLARE SUB LettersPrint (stx AS INTEGER, sty AS INTEGER, col AS INTEGER, n!, a AS STRING)
DECLARE FUNCTION MouseClick% (flag AS INTEGER)
DECLARE FUNCTION MouseMove% ()
DECLARE SUB MouseDrive ()
'$INCLUDE: 'qb.bi'
RANDOMIZE TIMER
DIM SHARED Letters(32 TO 122) AS STRING
DIM SHARED MOUSEX AS INTEGER, MOUSEY AS INTEGER
DIM SHARED RGB(15, 1 TO 3) AS INTEGER
DIM SHARED Regs AS RegType
DIM SHARED LastKey AS STRING
DIM SHARED Speed AS INTEGER
DIM SHARED ForNext AS SINGLE
Speed = 3
DzSpeedTest
SCREEN 12
LOCATE 12, 35
PRINT "Waiting..."
LettersGet
DIM menu$(8)
DIM mark(3) AS INTEGER
FOR i% = 1 TO 8
READ menu$(i%)
NEXT i%
DATA Begin,Speed 1 ,Speed 2,Speed 4,Speed 5,Help,About,Exit
mark(1) = 1
mark(2) = 5
mark(3) = 7
FOR i% = 0 TO 15
READ RGB(i%, 1), RGB(i%, 2), RGB(i%, 3)
NEXT
FOR i% = 0 TO 15
PALETTE i%, RGB(i%, 3) * 65536 + RGB(i%, 2) * 256 + RGB(i%, 1)
NEXT i%
DzIap
LOCATE 1, 1
PRINT "Driving the mosue..."
MouseDrive
LOCATE 1, 1
PRINT SPACE$(79); LOCATE 2, 1
PRINT "Speed:"; Speed
DO
press$ = INKEY$
IF MouseClick(1) OR UCASE$(press$) = "O" THEN
k% = DrawMenu((MOUSEX), (MOUSEY), menu$(), mark())
SELECT CASE k%
CASE 1
DzBegin
CASE 2, 3, 4, 5
temp% = Speed
Speed = VAL(MID$(menu$(k%), 7, 1))
LOCATE 2, 1
PRINT "Speed:"; Speed
menu$(k%) = "Speed" + STR$(temp%)
FOR i% = 2 TO 5
FOR j% = i% + 1 TO 5
IF menu$(i%) > menu$(j%) THEN SWAP menu$(i%), menu$(j%)
NEXT j%
NEXT i%
CASE 6: DzHelp
CASE 7: DzAbout
CASE 8: END
END SELECT
ELSEIF MouseClick(0) THEN
IF MouseIn(540 - 22, 40 + 6, 540 - 14, 40 + 12) THEN END
END IF
SELECT CASE UCASE$(press$)
CASE "A": DzAbout
CASE "B": DzBegin
CASE "H": DzHelp
CASE "1" TO "5"
Speed = VAL(press$)
LOCATE 2, 1
PRINT "Speed:"; Speed
k% = 0
FOR i% = 2 TO 5
k% = k% + 1
IF k% = Speed THEN k% = k% + 1
menu$(i%) = "Speed" + STR$(k%)
NEXT i%
CASE "X": END
CASE ELSE: k% = 0
END SELECT
LOOP UNTIL press$ = CHR$(27) DATA 00,00,00,00,30,00,34,44,34,50,00,00
I

GOSUB change
CASE CHR$(0) + CHR$(80)
nextn = n + 1
IF nextn = sum + 1 THEN nextn = 1
GOSUB change
CASE CHR$(0) + CHR$(75) 'left
n = -2
EXIT DO
CASE CHR$(0) + CHR$(77) 'right
n = -3
EXIT DO
CASE CHR$(3)
END
CASE ""
i = 0
CASE ELSE
n = 0
EXIT DO
END SELECT
LOOP
DrawMenu = n
MouseOff
PUT (StartX, StartY), pic, PSET
MouseOn
EXIT FUNCTION
change:
MouseOff
y = StartY + 2 + (n - 1) * 16
LINE (StartX + 2, y + 1)-(EndX - 2, y + 14), 13, BF
LettersPrint StartX + 25, y, 14, 1, mu(n)
n = nextn
y = StartY + 2 + (n - 1) * 16
LINE (StartX + 2, y + 1)-(EndX - 2, y + 14), 12, BF
LettersPrint StartX + 25, y, 15, 1, mu(n)
MouseOn
RETURN
END FUNCTION SUB DrawWindow (stx AS INTEGER, sty AS INTEGER, ex AS INTEGER, ey AS INTEGER)
DrawButton stx, sty, ex, ey
LINE (stx + 2, sty + 2)-(ex - 2, sty + 19), 12, BF
DrawButton ex - 24, sty + 3, ex - 11, sty + 16
LINE (ex - 21, sty + 6)-(ex - 14, sty + 13), 14
LINE (ex - 22, sty + 6)-(ex - 14, sty + 12), 14
LINE (ex - 14, sty + 6)-(ex - 21, sty + 13), 14
LINE (ex - 15, sty + 6)-(ex - 21, sty + 12), 14
END SUB SUB DzAbout
MouseOff
DrawButton 210, 120, 440, 280
LettersPrint 250, 140, 0, 1, "Made by: Hoker.some"
LettersPrint 330, 140, 3, 1, "o"
LettersPrint 322, 160, 0, 1, "@Hoker Dream"
LettersPrint 338, 160, 3, 1, "o"
LettersPrint 250, 200, 0, 1, "Visit us at:"
LettersPrint 250, 220, 0, 1, "hokers.51.net"
LettersPrint 258, 220, 3, 1, "o" DrawButton 300, 250, 350, 270
LettersPrint 317, 253, 0, 1, "OK"
MouseOn
DO
IF MouseClick(0) THEN
IF MouseIn(300, 250, 350, 270) THEN EXIT DO
END IF
IF INKEY$ = CHR$(13) THEN EXIT DO
LOOP
MouseOff
LINE (104, 62)-(536, 396), 0, BF
MouseOn
END SUB SUB DzBegin
DIM x AS INTEGER, y AS INTEGER
DIM hit AS INTEGER, pass AS INTEGER
DIM nowkey AS STRING
DIM j AS SINGLE
DIM t AS SINGLE
MouseOff
LOCATE 1, 1: PRINT " "
LINE (104, 62)-(536, 396), 0, BF
LettersPrint 180, 150, 1, 2, "Any key to start..."
SLEEP
LettersPrint 180, 150, 0, 2, "Any key to start..."
IF MouseClick(1) OR MouseClick(0) OR INKEY$ = CHR$(27) OR MouseMove THEN
END IF
t = TIMER