vb计算一到十的奇数和以及偶数和

来源：学生作业帮编辑：拍题作业网作业帮分类：数学作业时间：2024/04/30 15:16:29

vb计算一到十的奇数和以及偶数和

Private Sub Command1_Click()
    Dim i&, x&, y&
    For i = 1 To 10
        If i Mod 2 = 0 Then
            x = x + i
        Else
            y = y + i
        End If
    Next
    MsgBox "偶数和是：" & x
    MsgBox "奇数和是：" & y
End Sub
再问：不用条件Dim=x as long或者integer？
再答： Dim i&, x&, y& 和 as long 是一样的，都是长整形。
再问：噢谢谢
再问：

再问：可不可以帮忙看一下这几题
再答：其他问题单独提问吧

vb 输入10个整数,计算偶数个数 ,奇数和. 跪求用VB编写程序计算1~100之间的奇数和、偶数和.要源码. 求VB编程：任意输入10个数,求奇数的个数,偶数的和,以及最后一个偶数. 100以内的奇数和偶数之和代码 VB 用vb实现输入总数,分别计算奇数数列和偶数数列,中间用“,”隔开, 用VB 求 1到100的奇数和和偶数和的函数怎么写高一的vb题：求100到1000的奇数和,偶数和是多少? 用VB分别求出100以内的奇数和、偶数和 VB程序设计中如何产生随机数并分别求奇数和偶数的和用VB写出1-100的所有奇数和偶数和 vfp计算奇数和与偶数和 VB 连续输入10数字,显示其中奇数的个数和偶数的个数