VB 求牛人做题目

来源：百度知道 编辑：UC知道 时间：2024/05/24 05:37:08
设计一个函数 s(n),此函数的定义为 s(n)=1+2+...+n ,
并根据以下表达式，
f(n)=s(n)+s(n-3)*2-s(n+2),
分别求出 f(40) 和 f(50) 的值，
要求从键盘输入不同 n，求出不同的f(n)的值。
十分感谢！！！

不晓得是不是你想要的结果
窗体上放一个按纽，代码如下

Private Sub Command1_Click()
Dim n As Long
n = InputBox("请输入一个大于或等于4的正整数")
f n, n - 3, n + 2
End Sub
Function f(n As Long, m As Long, p As Long) As Long
Dim i As Long, j As Long, k As Long, x As Long, y As Long, z As Long
For i = 1 To n
x = x + i
Next i
For j = 1 To m
y = y + m
Next j
For k = 1 To p
z = z + k
Next k
f = x + y * 2 - z
MsgBox "返回值为：" & f
End Function

functIon s(n)
i=0
Do while i<=n
total=total+i
i=i+1
loop
s=total
End functIon

functIon f(n)
f=s(n)+s(n-3)*2-s(n+2) '乘2还是？平方？
End Function

f(40)= 1323
f(50)=2153

简单 看有这么多人回答
我也就懒得给你做了
拜拜。。。

循环问题，好好研究一下，是很容易的