网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
vb吧 关注：156,171贴子：1,165,984
  • 11回复贴，共1页

1-200的奇数和 偶数和

求大神分别给下这两个程序写法。
如果是1-10，1-100呢？拜托拜托


心碎了一地。。。。。


循环结构的


下午考试怕怕的，求大神帮忙呀




就没个有用的回复。。。


循环语句里面嵌套选择语句


Dim i&, Tsum1&, Tsum2&
Private Sub Command1_Click()
For i = 1 To 100
If i Mod 2 <> 0 Then
Tsum1 = Tsum1 + i
Else
Tsum2 = Tsum2 + i
End If
Next i
MsgBox "奇数总和:" & CStr(Tsum1) & ", 偶数总和:" & CStr(Tsum2)
End Sub


10 100 200 意思完全一样




两行代码就搞定的事
1---200 之间
MsgBox "奇数总和:" & (1 + 199) * ((199 + 1) / 2) / 2
MsgBox "偶数总和:" & (2 + 200) * (200 / 2) / 2


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 11回复贴，共1页
分享到: