while语句输出1到100奇数之和

大家好,小空来为大家解答以上的问题。while语句输出1到100奇数之和这个很多人还不知道,现在让我们一起来看看吧！

1、Private Sub Command1_Click()    Dim s As Long    Dim i As Integer, j As Integer    s = 0    Print "100-500之间的奇数为："    For i = 101 To 500 Step 2        Print i;        j = j + 1        If j Mod 10 = 0 Then Print        s = s + i    Next i    Print "奇数的和为"; sEnd Sub。

本文到此分享完毕，希望对大家有所帮助。

　　免责声明：本文由用户上传，与本网站立场无关。财经信息仅供读者参考，并不构成投资建议。投资者据此操作，风险自担。 如有侵权请联系删除！