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

来源:学生作业帮助网 编辑:作业帮 时间:2024/07/08 09:47:16
VB编程 累加运算1~100的和 100的奇数和 偶数和 三个都要 完整的编程式
x) szg Ϸڵ M7340x>(ki@۠';:Xye O<b=6IE4^Ά(,K,IU.MRpMK1wL+pUTp,V+IMO-Ihd$[~PBH>ȭ@vBgP7?E(bd%\sSd0'/E3/ؼ%$?ٱYJ j 蒰`@(IBW 3dexڿ-<;P$

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可直接运行