如何用VB求和

中间的算法如下：

Dim sum As Integer

n = 99 '你输入的最大数

i = 1

sum = 0

Do Until i > n

sum = sum + i

i = i + 1

Loop

'求和到此为止，下面的是求素数

k = 1

Do Until k > n

For j = 1 To k / 2

If k Mod j = 0 And j <> 1 Then

Exit For

End If

Next j

If j > k / 2 And k <> 2 Then

MsgBox k

End If

k = k + 1

Loop

你的问题不够具体…那么我给你一个例子，你参考下:

Private

Sub

Form_Load()

Dim

a(1

To

50)

Show

For

i=1

To

50

a(i)=101RND

sum=sum+a(i)

Next

i

Print

sum

End

Sub

以上希望能给你帮助，求和主要是用到循环，可以用For和Do。

以上就是关于如何用VB求和全部的内容，包括:如何用VB求和、怎样用vb求和、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！