作业帮 > 综合 > 作业

用VB编程,查找介于正整数A,B之间只有两个数字相同的完全平方数.所谓完全平方数是指其平方根为整数的数.

来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/04/29 04:50:37
用VB编程,查找介于正整数A,B之间只有两个数字相同的完全平方数.所谓完全平方数是指其平方根为整数的数.
例如676,900,1521等都是介于500~2000之间符合条件的数.
用VB编程,查找介于正整数A,B之间只有两个数字相同的完全平方数.所谓完全平方数是指其平方根为整数的数.
For i = 1 To 1000
s = Str(Sqr(i))
If InStr(s,".") = 0 Then
For j = 1 To Len(s)
s1 = Mid(s,j,1)
For k = j + 1 To Len(s)
If s1 = Mid(s,k,1) Then Text1.Text = Text1.Text & vbCrLf & i
Next
Next
End If
Next