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

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/09 08:03:44

用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程序做以下题目求一个数,它除以三余二,除以五余三,除以七余二,求满足上面要求的最小数 编辑程序求555555的约数中的最大三位数要求:1用子函数求出所有的三位数约数2.用子函数求出最大的三位数约数用C++ 编辑程序求555555的约数中的最大三位数(C++)用子函数求出所有的三位数约数和三位数最大约数 VB程序:用1、2、3这3个数组成三位数.编写程序,打印出所有的可能(3位数可以相同),每行输出5个,并统计组成的3位数的个数 十万火急!急求VB高手帮我做一下这倒程序改错题,每个FOUND的下一行都有错误,请改正!'【程序改错】'------------------------------------------------'题目:以下程序段用于输出100-300的所有素数'------------ 高中信息技术(VB编程)一个三位数x,百位数 > 十位数 > 个位数,求所有的数的和.最好能用VB语境!= =急 用c语言编写程序求出555555的约数中最大的三位数是多少.要求:用子函数求出所有的三位数约数及最大三位数 找出1000以内所有的个位数为3素数,并统计其个数.用vb写的程序 编写VB程序,求满足三位数中的各个数位之和大于13的数的个数. 用VB编写程序,求三位数的奇数中,所有各位数字之和是12的倍数的数的个数? 用vb做一个斐波那契数列程序 问几道VB的题目!急!急!1、有一个三位数满足下列条件: (1)此三位数的三位数字各不相同; (2)此三位数等于它的各位数字的立方和.试求所有这样的三位数之和.2、[100,666]范围内同时满足以下两个 free pascal 用for循环做 求所有的三位数中十位数能被个位数和百位数之和整除的数. 找出三位数范围内所有回文数 VB程序 VB怎么弄个三位数倒过来的程序 求从0到9三位数的所有排列组合,所有的三位数组合.或者有什么软件可以排列出来,500分给他. 用vb语言编写以下题目:1、建立一个窗体程序用于计算数学函数:Y=a*X^3+b*X^2+c*X用vb语言编写以下题目:1、建立一个窗体程序用于计算数学函数:Y=a*X^3+b*X^2+c*X+d 的值,并将计算的函