十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
'假设数组如下
阿图什网站建设公司创新互联,阿图什网站设计制作,有大型网站制作公司丰富经验。已为阿图什数千家提供企业网站建设服务。企业网站搭建\外贸网站建设要多少钱,请找那个售后服务好的阿图什做网站的公司定做!
dim d(10) as integer
dim i as integer
for i=lbound(d) to ubound(d)
d(i) = i
next i
'数组各元素之和
dim S as integer = 0
for i=lbound(d) to ubound(d)
s = s + d(i)
next i
msgbox(s)
软糖来回答吧,VB点虐 用循环是这样的
Dim k = New Integer(9) {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
Dim 和 As Integer
For i = 0 To k.Count - 1
和 += k(i)
Next
计算数组中各元素之和更简单的方法是
使用扩展方法Sum或者Lambda表达式,以下两种均可
Dim 和1 = k.Sum()
Dim 和2 = k.Aggregate(Function(m, n) m + n)
软糖来回答吧,vb点虐 用循环是这样的
dim k = new integer(9) {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
dim 和 as integer
for i = 0 to k.count - 1
和 += k(i)
next计算数组中各元素之和更简单的方法是
使用扩展方法sum或者lambda表达式,以下两种均可
dim 和1 = k.sum()
dim 和2 = k.aggregate(function(m, n) m + n)
Dim a(9) As Long, i As Long, s As Double
Randomize
Print "数组:"
For i = 0 To 9
a(i) = Int(Rnd * 100000)
Print a(i);
If i = 4 Then Print
Next
For i = 0 To 9
s = s + a(i)
Next
Print "总和:"; s