'假設數組如下
阿圖什網站建設公司創新互聯,阿圖什網站設計制作,有大型網站制作公司豐富經驗。已為阿圖什數千家提供企業網站建設服務。企業網站搭建\外貿網站建設要多少錢,請找那個售后服務好的阿圖什做網站的公司定做!
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給數組賦值然后求和
轉載來源:http://vcdvsql.cn/article36/ddsicpg.html
成都網站建設公司_創新互聯,為您提供企業網站制作、網站設計公司、企業建站、自適應網站、微信公眾號、Google
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯