vb 数组求和

具体创建的东西我就不说了，太多了。我截图了，你看着创建吧。

具体代码：

Dim arr As Long, sum As Long, a As Integer

Private Sub cmd1_Click()

a = h1Value

t1Text = plus(a)

Call isprime(a)

End Sub

Private Sub cmd2_Click()

End

End Sub

Private Sub h1_Change()

l2Caption = h1Value

End Sub

Sub isprime(max As Integer)

Dim x As Integer, i As Integer, j As Integer

For i = 2 To max

x = 0

For j = 2 To i - 1

If i Mod j = 0 Then x = 1

Next j

If x = 0 Then T2Text = T2Text & i & " "

Next i

End Sub

Function plus(a As Integer) As Long

For i = 1 To a

sum = sum + i

Next i

plus = sum

End Function

具体思路是分别创建一个函数子模块求和，在创建一个子模块找素数。最后把找到的素数显示在文本框内。

（建议：我说，你想干嘛？找素数可是很耗费CPU的，我的9550 X4找了个从1-10000间的素数都花了很长时间我还以为死机了。CPU不好的话还是不要找太大的素数啊。）

sum=0

count=0

while count<=10

count=count+1

x=val(inputbox("输入第" & count & "个数" )

sum=sum+x

wend

msgbox "十个数的总和是" & sum

一共三层循环

sum初值为0 且只在第三层循环中执行自增

也就是说第三层循环执行几次 sum最后的值就是几

第一层循环1 to 3 执行3次

在3次循环中又执行了第二层循环

第二层循环分别是1 to 4、2 to 4、3 to 4 共执行9次

在9次循环中又执行了第三层循环

第二层循环分别是1 to 5、2 to 5、3 to 5、4 to 5

2 to 5、3 to 5、4 to 5

3 to 5、4 to 5

共执行28次 结果sum为28

以下这个函数可以计算任意一天是当年的第几天，入口参数输入要计算的日期，函数返回值为当年的第几天。

Function CalDt(Dt As Date) As Integer

Dim Year As String

Dim Diff As Integer

Year = Format(Dt, "yyyy-01-01") '获得当年的第一天

Diff = DateDiff("d", Year, Dt) '计算两个日期间的差距

Diff = Diff + 1 '增加一天，即从1开始

CalDt = Diff

End Function

把日期控件得到的日期作为入口参数，定义一个整形变量获得返回值，然后把返回值显示在位文本中即可。

补充：

DateDiff函数支持闰年的自动处理，我刚测试过的，没有问题的。

Public Sum, Num, Avg As Single

Private Sub cmdOK_Click()

Sum = Val(Text1) + Sum

Num = Num + 1

Text1 = ""

MeCls

Print Sum

End Sub

Private Sub Form_Click()

MeCls

Avg = Sum / Num

Print Avg

Num = 0

Sum = 0

End Sub

Private Sub Form_Load()

Text1 = ""

End Sub

以上就是关于vb 数组求和全部的内容，包括:vb 数组求和、用VB做一个程序，输入十个数，累加求和。用While-Wend的方式。谢啦！、如下VB程序段： sum=0 For i=1To5 sum=sum+i Next i等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！