vb中如何用函数求100以内偶数的平方和这是我编写的程序,不知道错在哪里了,求指正.Function Fun()Dim a As IntegerDim b As Integerb = 0For a = 1 To 100If a Mod 2 = 0 Thenb = b + a * aEnd IfNext aFun = b

vb中如何用函数求100以内偶数的平方和这是我编写的程序,不知道错在哪里了,求指正.Function Fun()Dim a As IntegerDim b As Integerb = 0For a = 1 To 100If a Mod 2 = 0 Thenb = b + a * aEnd IfNext aFun = b 如何用VB统计10000以内素数的个数 在VB中求200以内的偶数和怎么弄?是不含200本身的! 如何用VB求30个100-3000的随机数 100以内的奇数和偶数之和代码 VB VB 编写函数fun,其功能是：能计算从1开始到n的自然数中偶数的平方和!急用! 在VB中如何用IIF函数实现判断2个数的最大数 VB编程求1—50的偶数平方和与奇数平方差 vb中判定奇、偶数的函数不知道vb中系统函数有没有判定奇、偶数的函数? 【程序代码vb】求在1~5000范围内所有偶数中满足被11整除余5,并且被17整除余3 的数之平方和 vb程序设四位数的各位数字平方和等于100求vb程序代码, C语言：分别求1~100中偶数的平方和及奇数的立方和 visual foxpro6.0中程序设计中有这样一道题,编写程序,计算并显示1-100以内的奇数平方和、偶数立方和. 用VB分别求出100以内的奇数和、偶数和 在VB中求100以内个位数为7的所有数及其所有数之和. 100以内的偶数 . 在vb中如何用if函数表示同时满足几个条件 用VB 求 1到100的奇数和 和 偶数和的函数怎么写用function去写