VB编程实现，加数，求和

问题描述

精选答案

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编程实现，加数，求和