VB編程 累加運算1~100的和 1~100的奇數和 偶數和 三個都要 完整的編程式

Dim i As IntegerDim a As IntegerDim b As IntegerDim c As IntegerFor i = 1 To 100a = a + iIf i Mod 2 = 0 Thenb = b + iElsec = c + iEnd IfNextPrint "1~100的和為：" & aPrint "1~100的偶數和為：" & bPrint "1~100的奇數和為：" & cEnd Sub可直接運行