'假设数组如下
阿图什网站建设公司创新互联,阿图什网站设计制作,有大型网站制作公司丰富经验。已为阿图什数千家提供企业网站建设服务。企业网站搭建\外贸网站建设要多少钱,请找那个售后服务好的阿图什做网站的公司定做!
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
分享文章:vb点虐
数组元素求和 vb给数组赋值然后求和
转载来源:/article36/ddsicpg.html
成都网站建设公司_创新互联,为您提供企业网站制作、网站设计公司、企业建站、自适应网站、微信公众号、Google
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联