主题：十万火急，请各位大侠帮帮忙！！！！！！
林心如
[专家分：10] 发布于 2005-04-27 17:24:00
[em1][em1][em1][em1][em3][em3][em3][em3][em4][em4][em4][em8][em8][em8][em9][em9][em10][em10][em18][em18][em18][em19][em19][em19][em11][em11][em11][em12]
设计一个程序将”ABCDEFGHIJKLMNOPQRSTUVWXYZ“这26个英文字母组成的字符串，在屏幕中央环行移动（类似于电视屏幕上的环行字幕）。
回复列表 （共7个回复）
沙发
k [专家分：0] 发布于 2005-04-27 17:35:00
不要总叫别人写难题！！！！！！！！！！！！！！！？？？？？？？？？？？？
[em1][em2][em3][em4][em4][em4][em5][em5][em7][em8][em9][em10][em12][em13][em9][em9][em9][em14][em14][em13][em13][em12][em12][em17][em18][em19][em20][em20][em21][em21][em21][em22][em22][em22][em23][em23][em23][em24][em24][em24][em25][em25][em26][em26][em27][em27][em28][em28][em29][em29][em30][em30][em31][em31][em32][em32][em32][em33][em33][em34][em34][em34][em35][em35][em35][em36][em36][em37][em37][em38][em38][em38][em39][em39][em40][em70][em70][em70][em70][em70][em70][em70][em70][em70][em70][em70][em70][em1][em2][em3][em4][em4][em4][em5][em5][em7][em8][em9][em10][em12][em13][em9][em9][em9][em14][em14][em13][em13][em12][em12][em17][em18][em19][em20][em20][em21][em21][em21][em22][em22][em22][em23][em23][em23][em24][em24][em24][em25][em25][em26][em26][em27][em27][em28][em28][em29][em29][em30][em30][em31][em31][em32][em32][em32][em33][em33][em34][em34][em34][em35][em35][em35][em36][em36][em37][em37][em38][em38][em38][em39][em39][em40][em70][em70][em70][em70][em70][em70][em70][em70][em70][em70][em70][em70][em1][em2][em3][em4][em4][em4][em5][em5][em7][em8][em9][em10][em12][em13][em9][em9][em9][em14][em14][em13][em13][em12][em12][em17][em18][em19][em20][em20][em21][em21][em21][em22][em22][em22][em23][em23][em23][em24][em24][em24][em25][em25][em26][em26][em27][em27][em28][em28][em29][em29][em30][em30][em31][em31][em32][em32][em32][em33][em33][em34][em34][em34][em35][em35][em35][em36][em36][em37][em37][em38][em38][em38][em39][em39][em40][em70][em70][em70][em70][em70][em70][em70][em70][em70][em70][em70][em70][em1][em2][em3][em4][em4][em4][em5][em5][em7][em8][em9][em10][em12][em13][em9][em9][em9][em14][em14][em13][em13][em12][em12][em17][em18][em19][em20][em20][em21][em21][em21][em22][em22][em22][em23][em23][em23][em24][em24][em24][em25][em25][em26][em26][em27][em27][em28][em28][em29][em29][em30][em30][em31][em31][em32][em32][em32][em33][em33][em34][em34][em34][em35][em35][em35][em36][em36][em37][em37][em38][em38][em38][em39][em39][em40][em70][em70][em70][em70][em70][em70][em70][em70][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]][em70][em70][em70][em70]
板凳
飞鸟12 [专家分：2830] 发布于 2005-04-27 21:47:00
动画不太连贯，不过大致上还可以运行
DECLARE SUB waitfor (tim!)
CLS
COLOR 12
char$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ "
FOR i = 26 TO 1 STEP -1
LOCATE 12, 54 + i: PRINT LEFT$(char$, 27 - i)
waitfor (.2)
NEXT i
FOR i = 54 TO 1 STEP -1
LOCATE 12, i: PRINT char$
waitfor (.2)
NEXT i
FOR i = 26 TO 0 STEP -1
LOCATE 12, 1: PRINT RIGHT$(char$, i)
waitfor (.2)
NEXT i
SUB waitfor (tim)
tim = TIMER + tim
WHILE TIMER < tim
WEND
END SUB
3 楼
moz [专家分：37620] 发布于 2005-04-28 11:28:00
不好意思，我改了一下
动画不太连贯，不过大致上还可以运行
DECLARE SUB waitfor (tim!)
CLS
COLOR 12
char$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
char$=char$+space$(80-26)+char$+space$(80-26)
do while inkey$=""
FOR i = 1 TO 80
LOCATE 12, 1: PRINT mid$(char$, i,80);
waitfor (.2)
if inkey$=chr$(27) then exit do
NEXT i
loop
system
SUB waitfor (tim)
tim = TIMER + tim
WHILE TIMER < tim
WEND
END SUB
4 楼
QB71 [专家分：1300] 发布于 2005-04-28 15:28:00
应该是这样吧:
DECLARE SUB Daley (N%)
DEFINT A-Z
bit$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
WHILE INKEY$ = ""
FOR i% = 0 TO 25
angle# = ATN(1) * 56 / 180 * i%
y% = INT(SIN(angle#) * 20 + 40)
x% = INT(COS(angle#) * 10 + 12)
COLOR (ASC(MID$(bit$, i% + 1, 1)) MOD 15) + 1
LOCATE x%, y%: PRINT MID$(bit$, i% + 1, 1)
NEXT
Daley 10
bit$ = MID$(bit$, 2, 25) + LEFT$(bit$, 1)
WEND
SUB Daley (N%)
DEF SEG = 65
T% = PEEK(92)
T1% = T%
WHILE T% < T1% + N%
T% = PEEK(92)
IF T1% > T% THEN T1% = 0
WEND
DEF SEG
END SUB
5 楼
飞鸟12 [专家分：2830] 发布于 2005-04-29 13:00:00
回3楼的;
程序改写的效果可以，没什么不好意思的，共同进步嘛！
不过“动画不太连贯，不过大致上还可以运行”，别连这句话也粘贴进去[em12]
回4楼的;
我记得在哪看到过
DEF SEG = 65
T% = PEEK(92)
好像是表示时间，不过我也不确定
希望采取大家都看得懂的方式编程 [em2][em2][em2]
6 楼
jakessss [专家分：30] 发布于 2005-05-05 13:10:00
加油哦！看书
7 楼
jakessss [专家分：30] 发布于 2005-05-05 13:55:00
DECLARE SUB waitfor (tim!)
CLS
COLOR 12
char$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
char$=char$+space$(80-26)+char$+space$(80-26)
do while inkey$=""
FOR i = 1 TO 80
LOCATE 12, 1: PRINT mid$(char$, i,80);
waitfor (.2)
if inkey$=chr$(27) then exit do
NEXT i
loop
system
SUB waitfor (tim)
tim = TIMER + tim
WHILE TIMER < tim
WEND
END SUB
我来回复
您所在位置：