程序部分如下：

dime a(120)
for i=1 to 120
input"请输入数字    "to a(i)

w=int(a(i)/10000)
w1=a(i)-w*10000
q=int(w1/1000)
q1=w1-q*1000
b=int(q1/100)
b2=q1-b*100
s=int(b2/10)
g=b2-s*10

do case
case w=0
  li=li+1
case w=1
  yi=yi+1
case w=2
………………

现在我觉得要一个个去输入数字太麻烦了，一共6万组数字呀…………。
而且又有现成的这6W组数字的excel表

所以就想能不能用什么语句来实现自动从excel表中取数据来计算？？？

先谢谢大家的指点

用 IMPORT FROM ....... 命令把 Excel 表转为 DBF 表，然后读取 DBF 表数据。

以下代码供参考
eole=CREATEOBJECT('Excel.application')         && 创建Excel对象
eole.Workbooks.Open("D:\AA.xls")               && 打开D盘名为AA的工作簿
nROW=eole.SHEETS(1).UsedRange.Rows.Count       && 第一个表的行数
nCOL=eole.SHEETS(1).UsedRange.Columns.Count    && 第一个表的列数
For nI=1 To nROW
  ?eole.SHEETS(1).cells(nI,1).Value            && 读取各行第一列的值
Next
eole.Workbooks.close                           && 关闭工作簿
eole.quit                                      && 退出Excel

有一个函数sys(2000,1)，从函数库里关注一下，用一个循环语句，可以把所有符合规律的文件吸进去。