4个回答
推荐于2018-04-24
展开全部
看到都觉得羞耻,这么多人乱发程序来骗分,丢脸,以下是正确答案
Private Sub Form_Click()
Me.Cls
Dim i, Sum As Single
For i = 1 To 100
Sum = Sum + i * (-1) ^ (i - 1)
Next i
Print Sum
End Sub
Private Sub Form_Click()
Me.Cls
Dim i, Sum As Single
For i = 1 To 100
Sum = Sum + i * (-1) ^ (i - 1)
Next i
Print Sum
End Sub
华瑞RAE一级代理商
2024-04-11 广告
2024-04-11 广告
impulse-4-xfxx是我们广州江腾智能科技有限公司研发的一款先进产品,它结合了最新的技术创新和市场需求。此产品以其卓越的性能和高效的解决方案,在行业内树立了新的标杆。impulse-4-xfxx不仅提升了工作效率,还为用户带来了更优...
点击进入详情页
本回答由华瑞RAE一级代理商提供
2013-10-28
展开全部
VB的:
Private Function js()
Dim s, i As Integer
For i = 1 To 100 Step 1
If i Mod 2 = 0 Then
s = s - i
Else
s = s + i
End If
Next
js = s
End Function
Private Function js()
Dim s, i As Integer
For i = 1 To 100 Step 1
If i Mod 2 = 0 Then
s = s - i
Else
s = s + i
End If
Next
js = s
End Function
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-10-28
展开全部
main()
{
int s=0;
for(int i=1;i<101;i++)
{
if(i%2==0)
i=-i;
s+=i;
}
}
{
int s=0;
for(int i=1;i<101;i++)
{
if(i%2==0)
i=-i;
s+=i;
}
}
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
dim s%
FH=1
for i =1 to 100 step 1
s=s+i
FH = -FH
Next i
FH=1
for i =1 to 100 step 1
s=s+i
FH = -FH
Next i
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询