VB 求1—50的偶数平方和与奇数平方和之差.

题目

VB 求1—50的偶数平方和与奇数平方和之差.
请在Form1窗体上画一个标签Label1,标题为“计算结果”,一个文本框Text1用于显示计算结果,初值为空；画两个命令按钮Command1和Command2,标题分别为“开始”和“退出”；有一个通用过程josc,功能是：求1—50的偶数平方和与奇数平方和之差.

答案

以下代码可以实现1到N的偶数平方和与奇数平方和之差
'按钮1代码:
Private Sub Command1_Click()
dim min ,max as integer
min=1 '设定参与计算的最小值
max=50 '设定参与计算的最大值
Text1.Text = josc(min,max)
End Sub
'按钮2代码:
Private Sub Command2_Click()
end
End Sub
'josc函数代码
Public Function josc(min as integer,max as integer) as long
Dim js As Double
Dim os As Double
For i = min To max
If i Mod 2 Then
os = os + i ^ 2
Else '奇
js = js + i ^ 2
End If
Next i
josc = os - js
End Function