GVBASIC的游戏代码，像英雄坛说。超级玛丽。五子棋之类的。或者是一些可以用GVBASIC编的软件代码。

寂寞等待中------，最好是游戏代码 或者是软件 各位星迷们谢谢 如果回答的好 我会给你再加上， GVBASIC 能编出来的。。，几百分的，。。，，，。一定要是能用

找到了

***翻牌成对****

]10 GRAPH
]20 DIM
POSXY$(18),CHARXY%(18,2),OPFLAG%(18),DELFLAG%(18),OPCUNT%(18)
]21 DIM
NUM$(9),TEMP1$(18)
]30
FLAG%=1:TOTAL%=0;SUM%=0:STAY%=10:TIMER=0:CUOCOUNT%=0
]31
BLK1X%=2:BLK1Y%=1:BLK2X%=2:BLK2Y%=1
]33 GOSUB 1700
]40 CLS
]50 FOR I=1
TO 18
]60 OPFLAG%(I)=0:DELFLAG%(I)=0:OPCOUNT%(I)=0
]70 NEXT I
]80 GOSUB
900: GOSUB 1000: GOSUB 1600: GOSUB 1500
]90 LET X%=1:LET
Y%=1:STARTFLAG%=0;TIMER=0
]100 IF TOTAL%=18 THEN GOSUB 1900:GOTO 200
]110
STAY%=1: GOSUB 1600
]111 LOCATE X%,Y%: PRINT " "
]112 IF PEEK(199)<128
THEN 173
]120 M1$=INKEY$
]125 LOCATE X%,Y%:PRINT "■";
]130 IF
M1$=CHR$(23) THEN...找到了

***翻牌成对****

]10 GRAPH
]20 DIM
POSXY$(18),CHARXY%(18,2),OPFLAG%(18),DELFLAG%(18),OPCUNT%(18)
]21 DIM
NUM$(9),TEMP1$(18)
]30
FLAG%=1:TOTAL%=0;SUM%=0:STAY%=10:TIMER=0:CUOCOUNT%=0
]31
BLK1X%=2:BLK1Y%=1:BLK2X%=2:BLK2Y%=1
]33 GOSUB 1700
]40 CLS
]50 FOR I=1
TO 18
]60 OPFLAG%(I)=0:DELFLAG%(I)=0:OPCOUNT%(I)=0
]70 NEXT I
]80 GOSUB
900: GOSUB 1000: GOSUB 1600: GOSUB 1500
]90 LET X%=1:LET
Y%=1:STARTFLAG%=0;TIMER=0
]100 IF TOTAL%=18 THEN GOSUB 1900:GOTO 200
]110
STAY%=1: GOSUB 1600
]111 LOCATE X%,Y%: PRINT " "
]112 IF PEEK(199)<128
THEN 173
]120 M1$=INKEY$
]125 LOCATE X%,Y%:PRINT "■";
]130 IF
M1$=CHR$(23) THEN GOSUB 300
]140 IF M1$=CHR$(22) THEN GOSUB 400
]150 IF
M1$=CHR$(20) THEN GOSUB 500
]160 IF M1$=CHR$(21) THEN GOSUB 600
]170 IF
M1$=CHR$(13) THEN GOSUB 1100
]171 IF M1$=CHR$(27) THEN 190
]173 STAY%=1:
GOSUB 1600
]174 LOCATE X%,Y%: PRINT " ";
]180 GOTO 100
]190 CLS: LOCATE
2,3: PRINT "退出";
]200 CLS
]201 END
]300 REM SUB OPEN -LEFT
*****************<<<<<<<<<<<<<<<<
]310
STARTFLAG%=1
]320 GOSUB 700
]330 IF Y%=1 AND X%=1 THEN Y%=11:X%=3: GOTO
350
]340 IF Y%=1 THEN X%=X%-1:Y%=11 ELSE Y%=Y%-2
]350
XL1%=X%-1:YL1%=(Y%+1)/2:XYSRT1%=XL1%*6+YL1%
]360 IF OPFLAG%(XYSRT1%)=1 OR
DELFLAG%(XYSRT1%)=1 THEN GOTO 330
]380 OLD$=M1$
]390 RETURN
]400 REM
SUB OPEN -RIGHT
****************<<<<<<<<<<<<<<<<
]401
STARTFLAG%=1
]410 IF TOTAL%=18 THEN GOTO 490
]420 GOSUB 700
]430 IF
Y%=11 AND X%=3 THEN Y%=1:X%=1:GOTO 450
]440 IF Y%=11 THEN X%=X%+1:Y%=1 ELSE
Y%=Y%+2
]450 XL1%=X%-1:YL1%=(Y%+1)/2:XYSRT1%=XL1%*6+YL1%
]460 IF
DELFLAG%(XYSRT1%)=1 OR OPFLAG%(XYSRT1%)=1 THEN GOTO 430
]480 OLD$=M1$
]490
RETURN
]500 REM SUB OPEN -UP^^^^^^^^^^^^^^^^^^^^^^
]501
STARTFLAG%=1
]510 GOSUB 700
]520 IF X%=1 THEN X%=3 ELSE X%=X%-1
]530
XL1%=X%-1:YL1%=(Y%+1)/2:XYSRT1%=XL1%*6+YL1%
]540 IF OPFLAG%(XYSRT1%)=1 OR
DELFLAG%(XYSRT1%)=1 THEN GOTO 520
]580 OLD$=M1$
]590 RETURN
]600 REM
SUB OPEN -DOWN ^^^^^^^^^^^^^^^^^^^^^^^^^^
]601 STARTFLAG%=1
]610 GOSUB
700
]620 IF X%=3 THEN X%=1 ELSE X%=X%+1
]630
XL1%=X%-1:YL1%=(Y%+1)/2:XYSRT1%=XL1%*6+YL1%
]640 IF OPFLAG%(XYSRT1%)=1 OR
DELFLAG%(XYSRT1%)=1 THEN GOTO 620
]680 RERUTN
]700 REM SUB SOPEN -RESTORE
***************************
]710
XL1%=X%-1:YL1%=(Y%+1)/2:XYSRT1%=XL1%*6+YL1%
]720 IF DELFLAG%(XYSRT1%)=1 OR
OPFLAG%(XYSRT1%)=1 THEN GOTO 740
]730 LOCATE X%,Y%:PRINT "■";
]740
RETURN
]800 REM read----Number
]820 N=0
]830 READ CH$
]840 WHILE
ASC(CH$)<>48+TMP%
]850 READ CH$
]855 WEND
]856 FOR I=1 TO 9: READ
NUM$(I):NEXT I
]860 DATA "0","苣","菡","菰","蓣","蓐","葳","蒇","蕨","蕤"
]861 DATA
"1","睃","眭","睦","瞵","睥","瞍","睢","瞧","睫"
]826 DATA
"2","呔","嘻","喳","嗒","啖","叨","嗡","
]863 DATA
"3","蛳","蚊","蜩","螨","蟒","嚏","蜓","蜞","蛴"
]864 DATA
"4","蹯","蹊","跄","跟","跖","硗","蹂","蹰","踔"
]865 DATA
"5","疳","疟","癃","瘾","瘼","疠","瘛","疽","痈"
]866 DATA
"6","宥","寡","褰","蹇","搴","謇","甯","窦","窳"
]867 DATA
"7","崦","研","岘","嵴","峒","崛","嵝","峋","崾"
]868 DATA
"8","堞","垅","埒","垤","塥","垭","埚","墒"
]869 DATA
"9","漭","澌","渫","潆","滠","溽","滹","滤","淠"
]890 RETURN
]900 REM
reNdomIze-XY-POS
]930 TMP%=INT(RND(1)*9)
]931 IF TMP%=0 THEN 930
]932
K=1
]935 LOCATE 1,18: PRINT TMP%
]938 GOSUB 800
]940 FOR I=1 TO
18
]941 IF K=10 THEN K=1
]942 TEMP1$(I)=NUM$(K)
]943 K=K+1
]950 NEXT
I
]960 I=0:K=1
]970 FOR I=0 TO 17
]971 IF I=17 THEN
POSXY$(K)=TEMP1$(1):GOTO 990
]980 N=INT(RND(1)=(18-I))
]981 IF N=0 THEN
GOTO 980
]983 POSXY$(K)=TEMP1$(N):K=k+1: TEMP1$(N)=TEMP1$(18-I)
]984 NEXT
I
]990 RETURN
]1000 REM PUTCHAR
]1010 I=1
]1020 FOR POSX=1 TO 3 STEP
1
]1030 FOR POSY=1 TO 11 STEP 2
]1040 LOCATE POSX,POSY: PRINT
POSXY$(I);
]1050 CHARXY%(I,0)=POSX:CHARXY%(I,1)=POSY: I=I+1
]1060 NEXT
POSY
]1070 NEXT POSX
]1090 RETURN
]1100 REM OPEN A CARD
]1110 IF
STARTFLAG%=0 THEN X%=1: Y%=1
]1120
XL1%=X%-1:YL1%=(Y%+1)/2:XYSRT1%=XL1%*6+YL1%
]1130 OPFLAG%(XYSRT1%)=1
]1140
LOCATE X%,Y%: PRINT " ";
]1150 LOCAT CHARXY%(XYSRT1%,0),CHARXY%(XYSRT1%,1):
PRINT POSXY$(XYSRT1%);
]1154
FLAG%=FLAG%+1:OPCOUNT%(XYSRT1%)=OPCOUNT%(XYSRT1%)+1
]1160 IF
FLAG%/2-INT(FLAG%/2)<>0 THEN FLAG%=1 ELSE FLAG%=0
]1170 IF FLAG%=0 THEN
CHAR1$=POSXY$(XYSRT1%): BLK1X%=X%: BLK1Y%=Y%: GOTO 1180
]1171 IF FLAG%=1
THEN CHAR2$=POSXY$(XYSRT1%): BLK2X%=X%: BLK2Y%=Y%: GOSUB 1200
]1180 GOSUB
400
]1190 RETURN
]1120 REM PEI DUI(Y/N)? rem FLAG%=1--->OPeN:
FLAG%=0---->No OPEN
]1240 IF CHAR1$=CHAR2$ THEN GOSUB 1300
]1250 IF
CHAR1$<>CHAR2$ THEN GOSUB 1400
]1290 RETURN
]1300 REM Pel
Dul(Y)->Erase 2 block ''''''''''''''
]1310 LOCATE BLK1X%,BLK1Y%: PRINT "
";
]1320 LOCATE BLK2X%,BLK2Y%: print " ";
]1330
XL1%=BLK1X%-1:YL1%=(BLK1Y%+1)/2:XYSRT1%=XL1%*6+YL1%
]1340
XL1%=BLK2X%-1:YL1%=(BLK2Y%+1)/2:XYSRT2%=XL1%*6+YL1%
]1350
DELFLAG%(XYSRT1%)=1: DELFLAG%(XYSRT2%)=1
]1360 TOTAL%=TOTAL%+2
]1370 IF
OPCOUNT%(XYSRT1%)=1 AND OPCOUNT%(XYSRT2%) THEN GOTO 1371
]1371 SUM%=SUM%+20:
GOTO 1380
]1374 SUM%=SUM%+10
]1380 LOCATE 2,14: PRINT "得分";
]1382
LOCATE 2,18: PRINT " ";
]1383 LOCATE 2,18: PRINT SUM%;
]1384 LOCATE 3,14:
PRINT "翻错"
]1385 LCOATE 3,18: PRINT " "
]1386 LOCATE 3,18: PRINT
CUOCOUNT%;
]1390 RETURN
]1400 REM Pel DuI(N)->Close 2
blk#########################
]1410
XL1%=BLKX%-1:YL1%=(BLK1Y%+1)/2:XYSRT1%=XL1%*6+YL1%
]1420 XL1%=BLK2X%-1:
YL1%=(BLK2Y%+1)/2:XYSRT2%=XL1%*6+YL1%
]1422 OPFLAG%(XYSRT1%)=0:
OPFLAG%(XYSRT2%)=0:CUOCOUNT%=CUOCOUNT%+1
]1425 STAY%=1: GOSUB 1600
]1430
LOCATE CHARXY%(XYSRT2%,0),CHARXY%(XYSRT2%,1): PRINT POSXY$(XYSRT2%);
]1440
LOCATE BLK2X%,BLK2Y%: PRINT "■";
]1450 LOCATE BLK1X%,BLK1Y%: PRINT
"■";
]1460 IF OPCOUNT%(XYSRT%)>3 OR OPCOUNT%(XYSRT2%)>3 THEN GOSUB
1800
]1470 LOCATE 2,14: PRINT "得分";
]1472 LOCATE 2,18: PRINT " ";
]1473
LOCATE 2,18: PRINT SUM%;
]1474 LOCATE 3,14: PRINT "翻错";
]1475 LOCATE 3,18:
PRINT " ";
]1476 LOCATE 3,18: PRINT CUOCOUNT%;
]1490 RETURN
]1500 REM
BLOCK
]1510 LOCATE 1,14: PRINT "难度";
]1515 LOCATE 1,19: PRINT
NAN%;
]1520 FOR LINEX=1 TO 3 STEP 1
]1530 FOR LINEY=1 TO 11 STEP
2
]1540 LOCATE LINEX,LINEY: PRINT "■";
]1550 NEXT LINEY
]1560 NEXT
LINEX
]1590 RETURN
]1600 REM sub
]1610 TM1=PEEK(1131)
]1620
TM2=PEEK(1131)
]1640 IF TM1=TM2 THEN GOTO 1630
]1650
STAY%=STAY%-1
]1660 IF TIMER=1 THEN LOCATE 1,18: PRINT " J";:LOCATE
1,18:PRINT STAY%;
]1670 TM1=TM2
]1680 WEND
]1682 LOCATE 1,18: PRINT "
";
]1690 RETURN
]1700 REM NAN% du
]1710 CLS
]1720 LOCATE 2,4: PRINT
"难度";
]1730 locate 3,4: PRINT "请选择(1-9):";
]1735 TIMER=1
]1741 PLAY
"CDEF"
]1742 PLAY "DD"
]1743 PLAY "L8 AG L2A P2 L8 GFED L2 C L1 D
P1"
]1760 CMD$=INKEY$
]1761 IF CMD$="b" THEN NAN%=1: GOTO 1780
]1762 IF
CMD4="n" THEN NAN%=2: GOTO 1780
]1763 IF CMD$="m" THEN NAN%=3: GOTO
1780
]1763 IF CMD$="g" THEN NAN%=4: GOTO 1780
]1765 IF CMD$="h" THEN
NAN%=5: GOTO 1780
]1766 IF CMD$="j" THEN NAN%=6: GOTO 1780
]1767 IF
CMD$="t" THEN NAN%=7: GOTO 1780
]1768 IF CMD$="y" THEN NAN%=8: GOTO
1780
]1769 IF CMD$="u" THEN NAN%=9: GOTO 1780
]1770 IF CMD$=CHR$(13) THEN
NAN%-0: GOTO 1780 ELSE 1760
]1775 LOCATE 1,18: PRINT " "
]1780 LOCATE
1,18: PRINT NAN%
]1790 STAY%=30-NAN%*3
]1799 RETRUN
]1800 REM SUB
SCORE
]1810 IF SUM%-5 <0 THEN SUM%-5 <0 THEN SUM%-5 <0 THEN SUM%-0
ELSE SUM%=SUM%-5
]1820 RETURN
]1900 REM End_sub
]1910 CLS: LOCATE 2,6:
PRINT "真棒!";
]1920 LOCATE 4,2: PRINT "欢迎下次光临!"
]1930 STAY%=8: GOSUB
1600
]1950 RETURN
]1960 RETURN
加分！

a 再看看别人怎么说的。