1. 很简单,把DATA操作换成文件操作就可以了
   你把你的数据用 EDIT 来做输入
   一行一个,随便你怎么输输多久都可以,
   只需要退出的时候记得保存就可以了.
   如果非得要用QB里的 input 的话,那也行,
   打开一个文件把它保存就行了.

2. "打乱顺序"得看看是不是同类型同长度的数据了
   总得按某种规律来顺序吧?
   非得随机的话,还得把一串数列颠置后
   按数列顺序把文件内容重置就得了.

我具体是这样想的。不过有个缺点就是一定要本来有一个“Data.txt”并且要在Data.txt输入end作标记才能。有什么办法可以解决这个问题呢？

<div style="background-color:#FFFFE0">

DIM DT$(1 TO 2000)
DIM y AS STRING

CLS
PRINT "                  Jay random vocabulary maker"
PRINT
PRINT "                      > v 2.0 Edition <"

OPEN "data.txt" FOR INPUT AS #1
  DO
    LINE INPUT #1, l$
    IF l$ = "end" THEN EXIT DO
    i = i + 1
    DT$(i) = l$
  LOOP
CLOSE #1
d = i

PRINT
PRINT "1. If you want to input words, please input digit 1."
PRINT
PRINT "2. If you want to output vocabulary, please input digit 2."
start:
PRINT
INPUT "Which do you choose, 1 or 2 ?   ", m
    

IF m = 1 THEN
  PRINT
  PRINT "Please input you words one by one."
  PRINT
  PRINT "If you want to finish you inputting, please input--end."
  DO
    PRINT
    INPUT "Inkey the word you want to store:   ", y$
    IF y$ = "end" THEN EXIT DO
    i = i + 1
    DT$(i) = y$
  LOOP
  

  OPEN "data.txt" FOR OUTPUT AS #1
    FOR j = 1 TO i
      PRINT #1, DT$(j)
    NEXT j
    PRINT #1, "end"
  CLOSE #1

  PRINT
  PRINT "Input is finished."
  f = i - d
  FOR k = 1 TO f
    PRINT k; "."; DT$(k + d),
  NEXT k

ELSEIF m = 2 THEN

  p$ = RIGHT$(TIME$, 2)
  q$ = LEFT$(TIME$, 2)
  o = VAL(q$) * VAL(p$) + VAL(p$)
  FOR u = 1 TO o
    l = RND
  NEXT u

  PRINT
  INPUT "How many words would you want?", v
  IF v > i THEN
    PRINT "Sorry~!  There are only totally"; i; "words in the data."
  ELSE
    OPEN "vocabu.txt" FOR OUTPUT AS #2
      DO
        h = INT(RND * i + 1)
        IF DT$(h) <> "none" THEN
          PRINT #2, DT$(h); "."
          n = n + 1
          PRINT n; "."; DT$(h),
          DT$(h) = "none"
        END IF
      LOOP UNTIL n = v
    CLOSE #2
  END IF
  PRINT
  PRINT "Congratulation~!"
  PRINT
  PRINT "Your provisional vocabulary is finished."
ELSE
PRINT
PRINT "ERROE~! You key a wrong digit. Please try again~!"
GOTO start
END IF
END
</div>

打乱前给各个数据分类，每个数据前加个类型判断符号
这样打乱后输出也没问题