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

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

题目
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,sFor i = 1 To 100x(i) = iNext iFor Each a In xs = s + aNextLabel1.Caption = sDim n As Integer,m As Integerm = 100:n = 0:s = 0For Each a In xIf a > n Then n = aIf a < m Then m = as = ...
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
热门考点

超级试练试题库

© 2017-2019 超级试练试题库,All Rights Reserved.