VB编程 累加运算1~100的和 100的奇数和 偶数和 三个都要 完整的编程式
来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/06/29 02:16:00
VB编程 累加运算1~100的和 100的奇数和 偶数和 三个都要 完整的编程式
![VB编程 累加运算1~100的和 100的奇数和 偶数和 三个都要 完整的编程式](/uploads/image/z/3178462-22-2.jpg?t=VB%E7%BC%96%E7%A8%8B+%E7%B4%AF%E5%8A%A0%E8%BF%90%E7%AE%971%7E100%E7%9A%84%E5%92%8C+100%E7%9A%84%E5%A5%87%E6%95%B0%E5%92%8C+%E5%81%B6%E6%95%B0%E5%92%8C+%E4%B8%89%E4%B8%AA%E9%83%BD%E8%A6%81+%E5%AE%8C%E6%95%B4%E7%9A%84%E7%BC%96%E7%A8%8B%E5%BC%8F)
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可直接运行
再问: 算了 很久之前 我都解出来了。。就给你个回复吧。。。
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可直接运行
再问: 算了 很久之前 我都解出来了。。就给你个回复吧。。。
VB编程 累加运算1~100的和 100的奇数和 偶数和 三个都要 完整的编程式
VB编程 1-100中被3整除数的累加和
100以内的奇数和偶数之和代码 VB
跪求用VB编写程序计算1~100之间的奇数和、偶数和.要源码.
用VB 求 1到100的奇数和 和 偶数和的函数怎么写
计算1到100的奇数的累加和
VB编程题:任意输入10个整型数,显示其中奇数和偶数的个数,..
用VB写出1-100的所有奇数和偶数和
求VB编程:任意输入10个数,求奇数的个数,偶数的和,以及最后一个偶数.
计算100以内的奇数的累加和
c语言编程题.求[1,100]之间的所有偶数或奇数和.
vf编程题 求出1到100之间的奇数积,偶数和