1到20内的奇数和代码

Private Sub Command1 Click Dim i s As Integer s 0 For i 1 To 20 Step 2 s s + i Next Print s End Sub