扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
'假设数组如下
阿图什网站建设公司创新互联,阿图什网站设计制作，有大型网站制作公司丰富经验。已为阿图什数千家提供企业网站建设服务。企业网站搭建\外贸网站建设要多少钱，请找那个售后服务好的阿图什做网站的公司定做！
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
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网