Dim x(100), a For i = 1 To 100 x(i) = i Next i For Each a In

来源：学生作业帮编辑：搜搜考试网作业帮分类：英语作业时间：2024/07/28 17:37:41

Dim x(100), a For i = 1 To 100 x(i) = i Next i For Each a In x() s = s
s = s + a
Next
Label1.Caption = s
Static n As Integer, m As Integer
m = 100: n = 0: s = 0
For Each x In a
If x > n Then n = x
If x < m Then m = x
s = s + x
Next
MsgBox "最大值为：" & n & Chr(13) & "最小值为：" & m & Chr(13) & "平均值为：" & s / 10

Dim x(1 To 100),a,s
For i = 1 To 100
x(i) = i
Next i
For Each a In x
s = s + a
Next
Label1.Caption = s
Dim n As Integer,m As Integer
m = 100:n = 0:s = 0
For Each a In x
If a > n Then n = a
If a < m Then m = a
s = s + a
Next
MsgBox "最大值为：" & n & Chr(13) & "最小值为：" & m & Chr(13) & "平均值为：" & s / 100

Dim x(100), a For i = 1 To 100 x(i) = i Next i For Each a In VB dim x as integer dim i as integer x = 100 for i = 1 to 10 Dim a(4) s=0 For i=1 to 4 s=s+a(i) Next i 下列程序段的执行结果为 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 下列程序的执行结果为（）.dim a(10),b(5) for i=1 to 10 a(i)=i next i for DIM AS INTEGER A(6),I,T,J,P T=0 FOR I=1 TO 6:A(I)=7-I:NEXT F Dim a(1 To 10) As Integer Dim i As Integer a(1) = 1 For i = Private Sub Form_click() Dim x,i,j x = 0 For i = 0 To 1 x = 怎么理解vb中 dim m(10) for i=1 to 5 m(i)=i*i next i print m(i-1) Dim a, i% a=array(1,2,3,4,5,6,7) For i =Lbound(a) to Ubound( 我写这个程序时 dim a(10）as interger dim ias interger for i= 10 to 1