【程序代码vb】求在1~5000范围内所有偶数中满足被11整除余5,并且被17整除余3 的数之平方和

来源:学生作业帮助网 编辑:作业帮 时间:2024/03/29 01:25:29

【程序代码vb】求在1~5000范围内所有偶数中满足被11整除余5,并且被17整除余3 的数之平方和

Private Sub Command1_Click()
Dim s&,i&
i = 2
While i Mod 11 5 Or i Mod 17 3 ‘先找到符合条件的第一个i
i = i + 2
Wend
For i = i To 5000 Step 374 ’步长值是11与17及2的积1(11*17*2=374)
s = s + i * i '加入i的平方
Next i
Print s
End Sub
输出答案是:
106837484

【程序代码vb】求在1~5000范围内所有偶数中满足被11整除余5,并且被17整除余3 的数之平方和 编程:求s=1+11+111+1111+...+1111111111的和.程序代码:vb vb求三角函数和画三角函数的程序代码 求1VB的四等测量程序代码,有红黑面,算距离和高差的那个水准测量·· 用VB求1/3+1/5+1/7+.1/(2n+1)?是用计算机vb语言编写程序代码哦, vb程序设四位数的各位数字平方和等于100求vb程序代码, 求VB程序代码,100至200之间,能被5整除,但不能被3整除的数.并求所有数之和 求VB程序代码,100至200之间,能被5整除,但不能被3整除的数.并求所有数之和 用VB写设计程序代码,求:s=1+(1+2)+(1+2+3)+……+(1+2+3+……+n)的值. 要求用DO循环 ,注意是vb程序.不是c语言.各位大虾快救命.vb3个数的排序程序,输入A,B,C三个数,执行程序后按从小到大排列,然后在第四个框里显示出来.求程序代码 求一定范围内服从正态分布的随机数VB代码? 在VB中,如何生成某个范围内的随机整数? 寻VB程序代码:输入一个数字(1~7),通过choose函数显示对应的星期一到星期日 在复数范围内,求1的立方根. 明天信息科技会考帮下忙!请问1000以下所有的素数的积是:VB程序代码怎么写?(最好能有些说明,) 在VB中求100以内个位数为7的所有数及其所有数之和. 求VB程序代码 统计输入的一篇英文文章中的单词数和定冠词the的个数,并将出现的定冠词the全部删除 求一vb程序代码,输入三个数字判断是等腰三角形,等边三角形,一般三角形还是不是三角形.只要是输出结果有4个的vb代码都可以!不要判断直角,锐角,钝角三角形的