VB改错题求100以内奇数和 20
求100以内奇数和。PrivateSubCommand1_Click()DimiAsInteger,sumAsIntegerFori=1To100IfiMod2=0The...
求100以内奇数和。
Private Sub Command1_Click()
Dim i As Integer, sum As Integer
For i = 1 To 100
If i Mod 2 = 0 Then sum = sum + i
Next i
Print sum
End Sub 展开
Private Sub Command1_Click()
Dim i As Integer, sum As Integer
For i = 1 To 100
If i Mod 2 = 0 Then sum = sum + i
Next i
Print sum
End Sub 展开
1个回答
展开全部
因为求100以内奇数和,所以If语句的条件表达式 i Mod 2 = 0 应该改成 i Mod 2 = 1
完整的程序如下
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
