用VB程序做以下题目求所有的三位数,他满足该数中有某两位为相同数字,且该数是一个完全平方数,并求出所有这些数的和

来源：学生作业帮编辑：搜搜考试网作业帮分类：数学作业时间：2024/06/06 05:41:08

用VB程序做以下题目
求所有的三位数,他满足该数中有某两位为相同数字,且该数是一个完全平方数,并求出所有这些数的和

Private Sub Command1_Click()
j = 0
For i = 100 To 999
If InStr(Sqr(i),".") = 0 Then
If Mid(i,1,1) = Mid(i,2,1) Or Mid(i,1,1) = Mid(i,3,1) Or Mid(i,2,1) = Mid(i,3,1) Then
j = j + i
Print i;
End If
End If
Next
Print "和是:"; j
End Sub
再问：能帮我做一下这个吗求一个数，它除以三余二，除以五余三，除以七余二，求满足上面要求的最小数

用VB程序做以下题目求所有的三位数,他满足该数中有某两位为相同数字,且该数是一个完全平方数,并求出所有这些数的和 vb编程编写程序找出给定范围内所有满足以下条件的整数该整数的平方数的各位数字之和为素数编程求出所有的水仙花数,并在窗体显示.所谓水仙花数,是指一个三位数,其各位数字的立方和等于该数本身编写一个程序求出满足下列条件的四位数,该数是一个完全平方数；第一、三位上数之和为10,第二、四位上数编程求出所有的水仙花数,所谓水仙花数,是指一个三位数,其各位数字的立方和等于该数本身. 编写程序:打印出所有的“水仙花数”,所谓“水仙花数”是指一个三位数,其各位数字立方和等于该数本身. 用java求1000之内所有的 “水仙花数 “,所谓 “水仙花数 “是指一个三位数,其各位数字立方和等于该数本身有一个四位数,前两位数字相同,后两位数字也相同,且是一个完全平方数,求该数. 请问怎么编写一个c++程序求所有的三位数,其各位数字的立方和等于该数的本身? 用VF编程:输出所有的"水仙花数"."水仙花数"是指一个三位数,其各位数字的立方和等于该数本身,如153 VF程序求三位数中的所有水仙花数（即指一个三位数,其各位数字立方和等于该数本身） "水仙花数是指一个三位数,其各位数字立方和等于该数本身.编写程序,打印出所有的水仙花数."