求Qbasic随机输出一个单词的程序

来源：百度知道 编辑：UC知道 时间：2024/05/24 01:56:18
程序要求：我按一下ENTER，程序随机输出一个英语单词（单词是我建程序时输入的N个单词之一）
希望各位能人帮帮忙。。在此先谢了！·！！

我这个是要在BIN目录里建立一个叫“word.txt”的文件，输入。
输入格式：
单词个数
单词
单词
单词
……

程序：
cls
randomize timer
open"word.txt"for input as#1
input #1,n
dim a$(n)
for i=1 to n
input #1,a$(i)
next i
do until x$=chr$(13)
x$=inkey$
loop
print(a$(int(rnd*n+1)))
end

CLS
INPUT N
DIM A(N)
FOR I=1 TO N
INPUT A$(N)
NEXT I
RANDOMIZE TIMER
H=INT(RND*N)+1
PRINT A$(H)
END

只有F5才能运行