以下代碼可以實(shí)現(xiàn)1到N的偶數(shù)平方和與奇數(shù)平方和之差
'按鈕1代碼:
Private Sub Command1_Click()
dim min ,max as integer
min=1 '設(shè)定參與計(jì)算的最小值
max=50 '設(shè)定參與計(jì)算的最大值
Text1.Text = josc(min,max)
End Sub
'按鈕2代碼:
Private Sub Command2_Click()
end
End Sub
'josc函數(shù)代碼
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