求设计一个VB程序,找出3-1000万之间的所有守形数.

来源：学生作业帮编辑：作业帮分类：数学作业时间：2024/11/08 17:08:05

求设计一个VB程序,找出3-1000万之间的所有守形数.
请尽快~多谢谢谢谢谢.好的话会追加.
如果一个数字的平方的低位与该数字相同,那么这个数字就称为“守形数”,比如252=625,那么25就是一个守形数.

Private Sub Command1_Click()
Dim i As Double
For i = 3 To 10000000
If Right(CStr(i * i),Len(CStr(i))) = CStr(i) Then Print i
Next
End Sub
5
6
25
76
376
625
9376
90625
109376
890625
2890625
7109376
共用时19秒

VB,编写程序,找出7的倍数中十位数为2的所有3位数. VB程序求1－40之间能被5整除得所有数的和. VB程序求出100-200之间的所有质数设计程序,输出0 100之间的所有奇数并求所有奇数的和设计程序,输出1~100之间的所有奇数并求所有奇数的和. 编写程序：找出四位整数（1000至9999）之间的所有素数,求这些素数的和, 用VB设计一个计算圆的面积的程序用VB设计一个计算银行存款利息的程序求VB小程序!设计一个VB小程序,给定三角形任意两边的长度,和夹角的度数,求三角形的面积.S=absinα 算法与程序框图习题为求1-1000的所有偶数的和设计一个程序框图设计一个算法,找出100到300之间所有同时可以被2和3整除的正整数 vb设计一个程序,统计1000以内能被7整除的正整数的个数.