77问答网
所有问题
求1个VB编程,1-1000的同构数,有没有不分块的方法~~
求1个VB编程,1-1000的同构数,有没有不分块的方法~~
举报该问题
推荐答案 2009-03-29
可以不分块,直接寻找就行,以下代码可以帮你找出1-1000的同构数。
dim i as integer,n as long
for i=1 to 1000
n=i^2
if (n-i) mod 10^(len(trim(str(i))))=0 then print i;
next i
运行结果: 1 5 6 25 76 376 625
温馨提示:答案为网友推荐,仅供参考
当前网址:
http://77.wendadaohang.com/zd/qGI3NGGI.html
其他回答
第1个回答 2019-06-12
len()函数只能识别字符串,所以要把变量i字符串化,即:
把语句:
n
=
len(i)
m
=
len(s)
改为:
n
=
len(val(i))
m
=
len(val(s))
*******************
再运行,即可。
第2个回答 2009-03-29
Private Sub Form_click()
k = 10
For i = 1 To 10000
If i = k Then k = k * 10
j = i * i
If j Mod k = i Then Print i
Next i
End Sub
相似回答
vb同构数
问题,求解答,第
一
小题已经没问题了,求第二小题答案。原有
编程
...
答:
将if一行改为如下if val(right(trim(y),3))=x then注解
:将Y先转成字符串,然后对字符串进行操作,从右取3位与X比较即可。希望能帮到你,请采纳!
用vb
找出1到
1000的同构数
用另
一
种
方法
……
答:
同构数是会出现在它的平方的右边的数
。如5×5=25,6×6=36。VB6.0示例代码:Private Sub Form_Click() Dim i As Long Dim n As Long For i = 1 To 1000 n = i ^ 2 If (n - i) Mod 10 ^ (Len(Trim(Str(i))) = 0 Then Print i; n End If Next...
用vb
找出1到
1000的同构数
用另
一
种
方法
……
答:
'按数的位数截取平方数的后a位并转化为数值 if i = c then print i,'若相同则为
同构数,
输出到窗口 next i end sub
VB编程
:
求1
-100之间得
同构数
!
答:
以下是 Visual Basic 代码,用于找到 1 到 100 之间
的同构数
:```vb Dim i As Integer Dim j As Integer Dim nSquare As Integer For i = 1 To 100 nSquare = i * i j = 1 Do While j <= i If nSquare Mod (10 ^ j) = i Then MsgBox(i & " is a same-digital number")Ex...
VB
中
求同构数的
问题
,有
关mid(s,p,n),求解答非常感谢!
答:
不要用Str()函数,它会在正数前面自动添加一个空格的,这样就会造成计算错误了。要改用CStr()函数。用下面的代码最简单:Private Sub Form_load()Show Dim i As Integer Print "
1000
以内
的同构数
为:"For i = 1 To 1000 If i = Val(Right(i ^ 2, Len(CStr(i))) Then Print i, i ^ ...
VB程序设计
题:编程:输出
1--1000
之间
的同构数
(就是出现在其平方数右边...
答:
Private Sub Form_Click()Dim i As Integer For i = 1 To
1000
If Right(i ^ 2, Len(CStr(i))) = i Then Print CStr(i) + " >>> " + CStr(i ^ 2) NextEnd Sub
VB
求1
到10000以内
的同构数
答:
第1题:Select Case X Case Is > 12 Y = X ^ 3 - 1 Case Is >= 7 Y = 10 Case Is < 7 Y = X ^ 2 + 1 End Select 第2题:Private Sub Command1_Click()Dim i%, j& For i = 1 To 10000 j = i ^ 2 If CStr(i) = Right(CStr(j), Len(CStr(i))) Then Print i...
大家正在搜
1到1000的同构数有哪些
1000以内同构数有几个
500以内的同构数有哪些
1000以内所有同构数
500以内的同构数
求同构数
VB同构数
输出一到一百之间的同构数
什么叫同构数
相关问题
VB求同构数 分块的方法
用vb找出1到1000的同构数用另一种方法……
VB程序设计题:编程:输出1--1000之间的同构数(就是出...
c语言编程:找出1到1000的全部同构数
vb6,求出1-1000以内的回文数之和
用VB语言编程1~100之间的全部同构数
一个数恰好等于它的平方数的右端,这个数称为同构数,如,5的平...
用SQL 2005编程:求出1~999之间所有的同构数(一个...