VB用do...loop语句,在列表框中输出100-500之间的所有奇数，并且将所有奇数的和输出打

VB用do...loop语句,在列表框中输出100-500之间的所有奇数，并且将所有奇数的和输出打

Private Sub Command2_Click()
    Dim n As Integer
    Dim sum As Double
    sum = 0
    n = 100
    Do While n <= 500
        If n Mod 2 = 1 Then
            sum = sum + n
            List1.AddItem n
        End If
        n = n + 1
    Loop
    Print sum
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息