求高手用VB编程 3位正整数中,既是完全平方数,又有两位数相同,找出所有这样的数。
答案:1 悬赏:80
解决时间 2021-12-29 03:58
- 提问者网友：白柏唇蜜
- 2021-12-28 19:48
急求~~~拜托了……
最佳答案
- 二级知识专家网友：你把微笑给了谁
- 2021-12-28 20:05
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 Sub
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 Sub
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯