VB 求1—50的偶数平方和与奇数平方和之差.请在Form1窗体上画一个标签Label1,标题为“计算结果”,一个文本框Text1用于显示计算结果,初值为空;画两个命令按钮Command1和Command2,标题分别为“开始
来源:学生作业学帮网 编辑:学帮网 时间:2024/05/16 08:32:03
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
VB编程求1—50的偶数平方和与奇数平方差
数列!前50个偶数的平方和与前50个奇数的平方和的差
VB 求1—50的偶数平方和与奇数平方和之差.请在Form1窗体上画一个标签Label1,标题为“计算结果”,一个文本框Text1用于显示计算结果,初值为空;画两个命令按钮Command1和Command2,标题分别为“开始
求连续奇数平方和公式的推导和连续偶数平方和公式的推导!
C语言:分别求1~100中偶数的平方和及奇数的立方和
正整数数列中,前50个偶数的平方和与前50个奇数的平方和的差是A.0B.5050C.2525D.-5050
VF程序设计 1、计算50—100之间数的和.2、计算200以内自然数奇数与偶数的平方和之差.3、计算500以内能1、计算50—100之间数的和.2、计算200以内自然数奇数与偶数的平方和之差.3、计算500以内
两个奇数的平方和等于一个偶数的平方请帮我找两个奇数,使它们的平方和可以等于一个偶数的平方.速求
求1~n之间的奇数或偶数(奇偶要可变,要求输入)的平方和 公式是?
用VB语言编程计算1-10之间奇数的平方和
奇数的平方和
c语言求1-100之间奇数的平方和
自然数1-100所有奇数的平方和
【程序代码vb】求在1~5000范围内所有偶数中满足被11整除余5,并且被17整除余3 的数之平方和
50到300 偶数平方和
1到500奇数平方和
VB程序 求1到100之间的自然数的平方和
计算1~50的平方和