vb编写程序,计算并打印1到100之间的所有奇数和 (在线等)

2025-04-13 08:08:45
推荐回答(2个)
回答(1):

Private Sub Command1_Click()
For i = 1 To 99 Step 2
s = s + i
Next i
Print s
End Sub

回答(2):

Private Sub Command1_Click()
For i = 1 To 99 Step 2
Sum = Sum + i
Next i
Print Sum
End Sub