用VB求和

dim a,b 'a 存储上线数字

textbox1text显示你的结果

for i=1 to a

b= b + i

next i

textbox1text=b

private

function

msum(a

as

integer,b

as

integer)

s=0

for

k=a

to

b

s=s+f(k)

next

msum=s

end

function

private

function

f(k

as

integer)

'提问未给出f(k)的具体算式，这里以省略号代替

end

function

看你的问题应该不是电脑自己随机输出的两个数字

文本1和文本2是要你自己随机输入数字的

Private Sub Command1_Click()

Text3Text = Val(Text1Text) Val(Text1Text) + Val(Text2Text) Val(Text2Text)

End Sub

private sub form_click()

dim i, sum as integer

for i = 1 to 100

if i mod 2 = 0 then sum = sum + i

next

print "1~100的偶数和="; sum

end sub

Public Function f(ByVal n As Integer) As Integer

    Dim i As Integer

    Dim sum As Integer

    sum = 0

    For i = 1 To n

        sum = sum + i

    Next i

    f = sum

End Function

Private Sub Command1_Click()

    Dim n As Integer, i As Integer

    Dim sum As Double

    sum = 0

    n = InputBox("请输入一个数字N")

    For i = 1 To n

        sum = sum + f(i)

    Next i

    Print sum

End Sub

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