问题补充：
用VB写出1-100的所有奇数和偶数和
答案：
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...
1000字范文，内容丰富有趣，学习的好帮手！
时间：2019-07-26 15:09:43
用VB写出1-100的所有奇数和偶数和
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...
VB：随机生成20个2位随机奇数和偶数 分2行显示：这20个随机数中偶数有 ；奇数有 ；
2020-04-27
求VB编程：任意输入10个数 求奇数的个数 偶数的和 以及最后一个偶数.
2020-06-07
【跪求用VB编写程序计算1~100之间的奇数和 偶数和.要源码.】
2018-12-27
2019-10-29
2024-09-23
2024-09-23
2024-09-23
2024-09-23
2024-09-23
2024-09-22
