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

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/24 13:41:35
VB求1—50的偶数平方和与奇数平方和之差.请在Form1窗体上画一个标签Label1,标题为“计算结果”,一个文本框Text1用于显示计算结果,初值为空;画两个命令按钮Command1和Comman

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

VB 求1—50的偶数平方和与奇数平方和之差.请在Form1窗体上画一个标签Label1,标题为“计算结果”,一个文本框Text1用于显示计算结果,初值为空;画两个命令按钮Command1和Command2,标题分别为“开始
以下代码可以实现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