求高手帮忙解决一道编程题 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 求高手帮忙解决一道编程题

标题：求高手帮忙解决一道编程题

只看楼主

moon01

等　级：新手上路
帖　子：9
专家分：0
注　册：2009-11-18
结帖率：100%

楼主

已结贴√ 问题点数：20 回复次数：1

求高手帮忙解决一道编程题

编写一个程序计算1+3-5+7-9+11-13+15-......99，并计算结果。

我编了几次，都得不到我用数学计的结果呢。

小弟先谢谢啦~

搜索更多相关主题的帖子: 计算　编程　

2009-11-18 20:22

msgj

等　级：蝙蝠侠
威　望：4
帖　子：190
专家分：914
注　册：2009-10-3

第 2 楼

得分:20

Dim a As Integer, i As Integer
Private Sub Form_Load()
a = 1
j = 1
For i = 3 To 100 Step 2
  If j Mod 2 = 1 Then a = a + i
  If j Mod 2 = 0 Then a = a - i: j = 0
  j = j + 1
Next
Text1.Text = a
End Sub

收到的鲜花

moon01 于 2009-11-19 22:33 送鲜花 3朵附言：谢谢你的解答~我想请问一下能用do while循环 ...

2009-11-18 21:03

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-292764-1-1.html