Dim a(4) s=0 For i=1 to 4 s=s+a(i) Next i

Dim a(4) s=0 For i=1 to 4 s=s+a(i) Next i ..Dim a() a=Array(1,3,5,7,9) s=0 For i=1 To 4 s=s*10+a(i) Next i Print s 为啥答案是3579 private sub command1_click( ) dim a a=array(1,2,3,4) j=1:s=0 for i=4 to 1 step -1 s=s + a(i)*j j= dim I% ,S% s=0 for I=5 to 1 s=s+i next I print “s=” ; s 怎么看的 dim I% ,S%s=0for I=1 to 5 step -1s=s+inext Iprint “s=”;s 还有这个一起求解释~ Dim a(1 To 10) As Integer Dim i As Integer a(1) = 1 For i = 2 To 10 a(i) = a VB程序如下：Dim a a = Array(1,2,3,4,5,6,7,8) i = 0 For k = 100 To 90 Step -2完全看不懂...要详解..VB程序如下：Dim aa = Array(1,2,3,4,5,6,7,8)i = 0 For k = 100 To 90 Step -2s = a(i)^2If a(i) > 3 Then Exit Fori = i + 1Next kPrint k; a( Private Sub Form-Click() Dim a a = Array(1,2,3,4) j = 1 For i = 4 To 1 Step -1 s = s + a(i)Private Sub Form-Click() Dim a a = Array(1,2,3,4) j = 1For i = 4 To 1 Step -1s = s + a(i) * jj = j * 10Next IPrint sEnd Sub 1234. 求结果dim a(6) for i=0 to 6 a(i)=i+1 next for i=0 to 6 count=count+a(i)+1 next response.Write count求结果dim a(6)for i=0 to 6a(i)=i+1nextfor i=0 to 6count=count+a(i)+1nextresponse.Write count DIM AS INTEGER A(6),I,T,J,P T=0 FOR I=1 TO 6:A(I)=7-I:NEXT FOR I=1 TO 5 FOR J=1 TO 5 IF A(J)>A( Dim a, i% a=array(1,2,3,4,5,6,7) For i =Lbound(a) to Ubound(a) a(i)=a(i) *a(i) next i print a(i)下标越界了,为什么啊 Dim a a=Array(1,2,3,4,5,6,7) For i=Lbound (a) To Ubound (a) a(i)=a(i)*a(i) Print a(i 执行下列程序段后的输出结果是dim i,j,a as integerfor i=0 to 2for j=0 to1s=s+i*jnext jnext i VB练习题7道,七道全讲完才行一、Private Sub Command1_Cilck()Dim a(4,4)For i = 1 To 4For j = 1 To 4Next jNext iFor j = 3 To 4For j = 3 To 4Print a(j,i);Next jEnd Sub9 1210 13二、Private Sub Form _Click()Dim a(10),p(3)As Integerk = 5For i Dim x(100), a For i = 1 To 100 x(i) = i Next i For Each a In x() s = ss = s + aNextLabel1.Caption = sStatic n As Integer, m As Integerm = 100: n = 0: s = 0For Each x In a If x > n Then n = x If x < m Then m = x s = s + xNextMsgBox 最大值为 下列程序段的执行结果为 dim a(5) for i=1 to 5 a(i)=i*i next i print a(i-1) A) 5 B) 25 C) 0 D) 16 49 B 0 C　不确定　D　程序出错 选哪个呢?为什么?VB程序 Dim aa=Array(1,2,3,4,5,6,7) For i =Lbound (0) TO Ubound(a) a(i)=a(i)*a(i) Next i Print a(i)上面打错了。是For i =Lbound (a) TO Ubound(a) 如何用for循环语句计算出1+2+3+.1000的和并且计算1*2*3...*1000的积用vb我把程序写成这样为什么没有结果,应该怎么改了!这是和Dim i,s As Integers= 0For i = 1 To 1000s = s + iNext i这是积Dim i,s As Integers= 0For i 看程序,)private sub form-click()dim a(5,5) as integer,s(5) as integerfor i=1 to 5s(i)= 0for j=1 to 5m(i,j)=i+jnext jnext ifor each x in sprint x;nextend sub