求助两道VB题,要详细过程代码.高手帮忙!!!!

来源：百度知道 编辑：UC知道 时间：2024/06/08 22:10:33
1. 设计如图所示界面，在窗体模块中编写一函数过程，计算1 +2 +3 +……+n ,运行时输入m,n,p的值,单击”y=”按钮用该函数过程计算以下y值,运算结果保留4位小数.运行界面如图所示.y=(12+22+32+42+……+m2)+ (12+22+32+42+……+n2)/ (12+22+32+42+……+p2)

2. 将1改成Sub过程求12+22+32+42+……+m2 ,完成相同功能

注:第一个数字为基数,第二个数字2为平方的意思

1
Dim a, b, c, i, j, k, d, e, f
a = Val(InputBox("输入第1个数", "提示"))
b = Val(InputBox("输入第2个数", "提示"))
c = Val(InputBox("输入第3个数", "提示"))
For i = 1 To a
d = d + i * i
Next i
For j = 1 To b
e = e + j * j
Next j
For k = 1 To c
f = f + k * k
Next k
Print Format((d + e) / f, "##.####")
End Sub
2
你应该可以做了