把431.7+1.4n（n=1,2,3…n)用Visual Basic译

如果是要算累加那么就用递归。

Public Function mySum(ByVal n As Integer) As Double
If n >= 1 Then
Return 431.7 + 1.4 * n + mySum(n - 1)
Else
Return 1
End If
End Function

print mysum(100) '100的意思是(n=1，2，3...100)

你这是要累加还是要什么功能

不明白需求，如果是很简单那种，放个textbox和button按钮在form上

Private Sub Command1_Click()
Dim i As Integer
n = InputBox("输入n", "输入", 100) 'n默认是100，可以自己输入值
For i = 1 To n
Text1 = 431.7 + 1.4 * i
Next i
End Sub