当前位置：你问我答网 > 社会

VB编程“求1到1000以内所有奇数之和”（do while 结构）

2020-04-22 社会 107阅读
Private Sub Command1_Click()
Dim i As Integer
Dim s As Integer
s = 0: i = 0
Do While i <= 1000
i = i + 1:
If i Mod 2 = 1 Then
s = s + i
End If
Loop
Print "计算1至1000之间的奇数之和为："; s
End Sub
没有学过VB但是楼主的程序确实存在问题，这样改一下应该差不多了，对于楼上说的溢出问题就要看整形数的表示范围了。
声明：你问我答网所有作品（图文、音视频）均由用户自行上传分享，仅供网友学习交流。若您的权利被侵害，请联系fangmu6661024@163.com
0

猜你喜欢