求结果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

来源：学生作业帮助网 编辑：作业帮 时间：2024/05/11 16:28:51
求结果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 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 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 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 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
i从0到6,七次循环,a0=1,a1=2,a2=3,a3=4,a4=5,a5=6,a6=7.
count相加7次,
count0=0+1+1=2
count1=2+2+1=5
count2=5+3+1=9
count3=9+4+1=14
count4=14+5+1=20
count5=20+6+1=27
count最终结果=27+7+1=35.
这个程序实现的是count=0+2+3+4+5+6+7+8.

求结果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 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 countdim a(6)for i=0 to 6a(i)=i+1nextfor i=0 to 6count=count+a(i)+1nextresponse.write count结果? 下列程序段的执行结果为 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 Dim a(4) s=0 For i=1 to 4 s=s+a(i) Next i 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( VB中的Dim sum As Integer语句Dim sum As Integersum = 0For i = 1 To 20sum = sum + ii = i + 1Next iPrint sum=; sum是怎么计算的 计算结果是多少 Dim a(1 To 10) As Integer Dim i As Integer a(1) = 1 For i = 2 To 10 a(i) = a 下列程序的执行结果为（）.dim a(10),b(5) for i=1 to 10 a(i)=i next i for j=1 to 5 b(j)=j*20 next j 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 i as integer dim sum as integer sum=0 for i=0 to 5 sum=sum+i next sum=? vb 要求输出3位正整数,各个数字之和等于10,每行显示5个数据,每个数据占6列. 求高手看下这个行数的问题Private Sub Command1_Click() Dim a%, b%, c%, i%, k% k = 0 For i = 100 To 999 a = i Mod 10 b = (i Mo 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( 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) 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% ,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(10）as interger dim ias interger for i= 10 to 14 a(i)=2i next i 在2i这里出了问 Private Sub Form_click() Dim x,i,j x = 0 For i = 0 To 1 x = x + 1 For j = 0 To 3 If Not (j Mod 2)Private Sub Form_click()Dim x,i,jx = 0For i = 0 To 1x = x + 1For j = 0 To 3If Not (j Mod 2) Then x = x + 1Next jNext iPrint x=; xEnd Sub运行后结果 如何用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