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

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
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
1,人们染上烟瘾,最终因吸烟使自己丧命.
最新试题
热门考点

超级试练试题库

© 2017-2019 超级试练试题库,All Rights Reserved.