Dim fs, f,s,a(1 to 14),j,i
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("c:TEXT7.txt", 1,0)
j=1
Do While a.AtEndOfLine True
s=f.readline
i=instr(s,":")
a(j)=val(mid(s,i+1))
j=j+1
Loop
f.Close
for i=1 to 14
print a(i)
next i
最新问答： 在直三棱锥ABC-A1B1C1中,底面为直角三角形,∠ACB=90°,AC=6,BC=CC1=根号2,P是BC1上一动点 在地转偏向力下,为什么北半球水平运动的物体的运动方向会向右偏 Did your mother send you something___the end of la （2013•南通一模）常温下，下列各组离子在FeSO4溶液中一定能大量共存的是（ ） 初二英语题！根据句意及首字母完成单词：1.Your homework is much l_____ than ours， 配置0.5mol/L的碳酸钠溶液250ml时,下列仪器不需要的是 任意六面体对角线知：每一条棱长和任两条棱的夹角求体对角线怎么求啊 求英语作文一篇有关一件小事的英语作文,词数不少于80 英语翻译工业污染随处可见,这些污染导致我们的生活环境变得十分恶劣,所以我认为科技发展弊大于利. ‘突然‘的反义词是什么 2010年某W商品的价值 2010年某W商品的价值用货币表示为120元,该商品生产部门全年共生产2亿件W商品.如果201 已知点P(x,y)是圆(x+2)2+y2=1上的任意一点（1）求P点到直线3x+4y+12=0的距离的最大值和最小值 月球上有什么宝贝? 风情呢?你知道风情是啥意思吧? 第二个字是枪字的成语 求一篇关于给外国人提建议的英语作文 100字 帮朋友戒烟英语作文，要做两分钟演讲！！ 碘酸钾遇淀粉会不会变蓝? 己知函数f（X）＝［X＾2十aX十11］／X十1 a属于R，若对于任意X属于正整数，f（X）＞＝3恒成立，则a最小值等于 ignore的中文
相关问答： 计算
