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
厦门君韦信息技术
2024-11-18 广告
2024-11-18 广告
厦门君韦信息技术有限公司成立于2015年,是一家致力于提供专业服务的电子元件分销商,具有业界先进的质量和可靠性、强大的搜索供应实力、专业的服务能力。厦门君韦主要深耕于图像识别技术研究与开发,同时助推于通信、工控、电力、汽车等行业客户的供应链...
点击进入详情页
本回答由厦门君韦信息技术提供
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询