问题描述: 用VB写出1-100的所有奇数和偶数和 1个回答 分类:数学 2014-10-12 问题解答: 我来补答 Private Sub Command1_Click()Dim i,sum1,sum2 As Integersum1 = 0sum2 = 0For i = 1 To 100If i Mod 2 = 1 Thensum1 = sum1 + iElsesum2 = sum2 + iEnd IfNext iPrint "奇数和为" & sum1Print "偶数和为" & sum2End Su 展开全文阅读