求高手用VB编程 3位正整数中,既是完全平方数,又有两位数相同,找出所有这样的数.
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/09/23 23:29:37
求高手用VB编程 3位正整数中,既是完全平方数,又有两位数相同,找出所有这样的数.
Private Sub Command1_Click()
Dim x,y,z,a,b As Integer
For a = 10 To 31 '9的平方是2位数,所以从10开始,32的平方是4位数,所以到31为止
b = a * a
x = b \ 100
y = (b - x * 100) \ 10
z = b - 100 * x - 10 * y
If x = y Or x = z Or y = z Then Print b
Next
End Su
Dim x,y,z,a,b As Integer
For a = 10 To 31 '9的平方是2位数,所以从10开始,32的平方是4位数,所以到31为止
b = a * a
x = b \ 100
y = (b - x * 100) \ 10
z = b - 100 * x - 10 * y
If x = y Or x = z Or y = z Then Print b
Next
End Su
求高手用VB编程 3位正整数中,既是完全平方数,又有两位数相同,找出所有这样的数.
用VB编程,查找介于正整数A,B之间只有两个数字相同的完全平方数.所谓完全平方数是指其平方根为整数的数.
编程输出 100-999 之间所有满足下列条件的整数:这些数既是完全平方数,又有两位数字相同
c++编程题 输出全部满足以下条件的三位正整数n 它既是完全平方数又有两位数字相同
用c#编程 在1~100000中找出这样的数,该数加上100是一个完全平方数,加上168仍是完全平方数
随机生成20个100以内的两位正整数,统计其中有多少个不相同的数?(求VB编程答案!)
是在三位正整数中寻找符合下列条件的整数,它既是完全平方数,又有两位数字相同,例如144,676等
在100至999整数中寻找这样的数:它既是完全平方数,又是两位数字相同,例如144、676等并从小到大输出
VB编程找出10000以内所有的回文数的平方仍是回文数的数.
c++语言求在三位整数该数既是完全平方数,又有两个数字相同并输出满足条件数的个数
既是2的倍数又有因数3的两位数中,最大的数是()
求所有的四位完全平方数!