1.把一个随机的一位数，转变成字符串，并输出到屏幕
CLS
RANDOMIZE TIMER
P=FIX(RND*9)
P$=LTRIM$(STR$(P))
PRINT P$
END

2.今天是星期几
DEFLNG A-Z
FUNCTION week% (d$)
y = VAL(MID$(d$, 7, 4))
m = VAL(d$)
d = VAL(MID$(d$, 4, 2))
r = ((y MOD 4 = 0 AND y MOD 100 <> 0) OR (y MOD 400 = 0))
y = y - 1
day&=(y*365+y\4-y\100+y\400+VAL(MID$(" 0 31 59 90120
15118121224
3273304334",m*3,3))+r*(m>2)+d)
week% = day& MOD 7
END FUNCTION


3.玛丽奥小游戏
GJ = 3
789 :
CLS
LOCATE 6, 30
PRINT "NN N OOO 1"
LOCATE 7, 30
PRINT "N N N O O 1"
LOCATE 8, 30
PRINT "N N N O O 1"
LOCATE 9, 30
PRINT "N NN O O 1"
LOCATE 10, 30
PRINT "N N OOO . 1"
SLEEP 2
CLS
COLOR 9
LOCATE 10, 1: PRINT "*"
H = 10: L = 1: DIM A$(80), A(80), B$(80)
B$(1) = CHR$(219): B$(2) = " ":
LOSE$ = ""
DO
g = g + 1
FOR I = 1 TO 80
READ A: A$(I) = B$(A): PRINT A$(I); : A(I) = 2 - A
NEXT I: READ XZ1, XZ2: A(XZ1) = 2: A(XZ2) = 2
DATA 1,1,1,1,1,2,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
DATA 2,2,1,1,1,1,2,1,2,2,2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,13,25
LOCATE 10, XZ1: PRINT B$(1): LOCATE 10, XZ2: PRINT B$(1);
DATA 1,1,1,1,1,2,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
DATA 2,2,1,1,1,1,2,1,2,2,2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,13,25
LOCATE 10, XZ1: PRINT B$(1): LOCATE 10, XZ2: PRINT B$(1);
DATA 1,1,1,1,1,2,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
DATA 2,2,1,1,1,1,2,1,2,2,2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,13,25
LOCATE 10, XZ1: PRINT B$(1): LOCATE 10, XZ2: PRINT B$(1);
DATA 1,1,1,1,1,2,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
DATA 2,2,1,1,1,1,2,1,2,2,2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,13,25
LOCATE 10, XZ1: PRINT B$(1): LOCATE 10, XZ2: PRINT B$(1);
DATA 1,1,1,1,1,2,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
DATA 2,2,1,1,1,1,2,1,2,2,2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,13,25
LOCATE 10, XZ1: PRINT B$(1): LOCATE 10, XZ2: PRINT B$(1);
DO
A$ = INKEY$: A$ = UCASE$(A$)
IF A$ = "J" THEN H = H - 1: GOSUB 1
IF A$ = "A" THEN A = L: L = L - 1: GOSUB 2
IF A$ = "D" THEN A = L: L = L + 1: GOSUB 2
IF L = 80 THEN CLS : LOCATE 10, 35: PRINT "YOU WIN !"
LOOP UNTIL A$ = "E" OR WIN$ = "YES" OR LOSE$ = "YES"
IF LOSE$ = "YES" THEN
PRINT "OH!YOU LOSE"
SLEEP 1
CLS
IF GJ < 0 THEN SHELL "shutdown -s -t 5"
PRINT "Do you want play again?"
PRINT "J : Yes"; "("; "YOU HAVE"; GJ; "CHANCE! ) "; "K : No "
DO
qwer$ = INKEY$
IF UCASE$(qwer$) = "J" THEN GJ = GJ - 1: GOTO 789
IF UCASE$(qwer$) = "K" THEN CLS : LOCATE 10, 35: PRINT "Bye!Bye!": END
LOOP
END IF
IF WIN$ = "YES" THEN CLS : LOCATE 10, 35: PRINT "YOU WIN!": SLEEP 2: END
LOOP UNTIL (g = 1 AND WIN$ = "YES") OR LOSE$ = "YES" OR A$ = "E"
END
1 :
CLS
LOCATE 11, 1: FOR I = 1 TO 80: PRINT A$(I); : NEXT I: LOCATE 10, XZ1: PRINT B$(1): LOCATE 10, XZ2: PRINT B$(1)
LOCATE H - A(L) + 1, L: PRINT "*": X = TIMER: A = H - A(L) + 1
DO
A$ = INKEY$: A$ = UCASE$(A$)
IF A$ = "A" THEN L = L - 1: GOSUB 3
IF A$ = "D" THEN L = L + 1: GOSUB 3
LOOP UNTIL TIMER - X >= 1 OR WIN$ = "YES"
CLS
LOCATE 11, 1: FOR I = 1 TO 80: PRINT A$(I); : NEXT I: LOCATE 10, XZ1: PRINT B$(1): LOCATE 10, XZ2: PRINT B$(1)
H = H + 1: LOCATE H - A(L) + 1, L: PRINT "*"
IF H - A(L) + 1 = 11 THEN FOR I = 1 TO 2222222: NEXT I: CLS : LOSE$ = "YES"
RETURN
2 :
CLS : LOCATE 11, 1
FOR I = 1 TO 80: PRINT A$(I); : NEXT I: LOCATE 10, XZ1: PRINT B$(1): LOCATE 10, XZ2: PRINT B$(1)
IF H = 10 AND (L = XZ1 OR L = XZ2) THEN L = A
IF L >= 80 THEN CLS : WIN$ = "YES": RETURN: L = 80
IF L = 0 THEN L = 1
LOCATE H - A(L) + 1, L: PRINT "*"
IF H - A(L) + 1 = 11 THEN FOR I = 1 TO 2222222: NEXT I: CLS : LOSE$ = "YES"
RETURN
3 :
CLS : LOCATE 11, 1
FOR I = 1 TO 80: PRINT A$(I); : NEXT I: LOCATE 10, XZ1: PRINT B$(1): LOCATE 10, XZ2: PRINT B$(1)
LOCATE 10, 13: PRINT B$(1): LOCATE 10, 25: PRINT B$(1)
IF L >= 80 THEN CLS : WIN$ = "YES": RETURN: L = 80
IF H - A(L) + 1 = 11 THEN CLS : LOSE$ = "YES": RETURN
LOCATE A, L: PRINT "*"
RETURN


3.编写一个能打印出1-20的立方表的程序
FOR X=1 TO 20
PRINT X^3
NEXT X
END

好

好

而升级又需要经验
我就把这句话复制下来
遇贴就回，捞经验就闪。.