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 "最大值为
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/04 19:03:13
![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](/uploads/image/z/11955693-21-3.jpg?t=Dim+x%28100%29%2C+a+For+i+%3D+1+To+100+x%28i%29+%3D+i+Next+i+For+Each+a+In+x%28%29+s+%3D+ss+%3D+s+%2B+aNextLabel1.Caption+%3D+sStatic+n+As+Integer%2C+m+As+Integerm+%3D+100%3A+n+%3D+0%3A+s+%3D+0For+Each+x+In+a+++If+x+%3E+n+Then+n+%3D+x+++If+x+%3C+m+Then+m+%3D+x+++s+%3D+s+%2B+xNextMsgBox+%22%E6%9C%80%E5%A4%A7%E5%80%BC%E4%B8%BA)
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 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(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 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