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。

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