作业帮 > 综合 > 作业

求高手用VB编程 3位正整数中,既是完全平方数,又有两位数相同,找出所有这样的数.

来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/05/14 03:48:55
求高手用VB编程 3位正整数中,既是完全平方数,又有两位数相同,找出所有这样的数.
求高手用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