VB编程 累加运算1~100的和 100的奇数和 偶数和 三个都要 完整的编程式

来源:学生作业帮助网 编辑:作业帮 时间:2024/03/29 13:44:46
VB编程 累加运算1~100的和 100的奇数和 偶数和 三个都要 完整的编程式

VB编程 累加运算1~100的和 100的奇数和 偶数和 三个都要 完整的编程式
VB编程 累加运算1~100的和 100的奇数和 偶数和 三个都要 完整的编程式

VB编程 累加运算1~100的和 100的奇数和 偶数和 三个都要 完整的编程式
Private Sub Command1_Click()
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可直接运行