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

来源：百度知道 编辑：UC知道 时间：2024/09/25 06:19:27
请在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

Private Sub Command1_Click()
Text1.Text = josc()
End Sub

'模块代码
Public Function josc() As Double
Dim a1 As Double
Dim a2 As Double
For i = 1 To 50
If i Mod 2 Then '偶
a2 = a2 + i ^ 2
Else '奇
a1 = a1 + i ^ 2
End If
Next i
josc