vbs文件）dim afor i=1 to 50set a=createobject("wscript.shell")a

vbs文件）dim afor i=1 to 50set a=createobject("wscript.shell")a 英语翻译DIM objShellset objShell=wscript.createObject("wscript.s 我写这个程序时 dim a(10）as interger dim ias interger for i= 10 to 1 Dim a(1 To 10) As Integer Dim i As Integer a(1) = 1 For i = Dim x(100), a For i = 1 To 100 x(i) = i Next i For Each a In Dim a, i% a=array(1,2,3,4,5,6,7) For i =Lbound(a) to Ubound( Dim a(4) s=0 For i=1 to 4 s=s+a(i) Next i Dim a a=Array(1,2,3,4,5,6,7) For i=Lbound (a) To Ubound (a) vbs整人代码翻译On Error Resume NextSet fso=CreateObject("Scripting 下列程序的执行结果为（）.dim a(10),b(5) for i=1 to 10 a(i)=i next i for 下列程序段的执行结果为 dim a(5) for i=1 to 5 a(i)=i*i next i print a(i- 求结果dim a(6) for i=0 to 6 a(i)=i+1 next for i=0 to 6 count=co