VB 求1—50的偶数平方和与奇数平方和之差.请在Form1窗体上画一个标签Label1,标题为“计
答案:2 悬赏:80 手机版
解决时间 2021-02-01 23:24
- 提问者网友：骑士
- 2021-02-01 02:59
VB 求1—50的偶数平方和与奇数平方和之差.请在Form1窗体上画一个标签Label1,标题为“计
最佳答案
- 五星知识达人网友：胯下狙击手
- 2021-02-01 03:33
以下代码可以实现1到N的偶数平方和与奇数平方和之差'按钮1代码:Private Sub Command1_Click() dim min ,max as integermin=1 '设定参与计算的最小值max=50 '设定参与计算的最大值Text1.Text = josc(min,max)End Sub '按钮2代码:Private Sub Command2_Click() endEnd Sub 'josc函数代码 Public Function josc(min as integer,max as integer) as longDim js As Double Dim os As Double For i = min To maxIf i Mod 2 Then os = os + i ^ 2 Else '奇 js = js + i ^ 2 End If Next i josc = os - jsEnd Function
全部回答
- 1楼网友：刀戟声无边
- 2021-02-01 04:32
我也是这个答案
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯