00问答网
所有问题
当前搜索:
vb求守形数
vb
编写程序判断两位整数m是否为
守形数
答:
1. 将m的值平方,并将结果转换为字符串类型。2. 判断字符串的最后两个字符是否等于m本身的字符串表示
。3. 如果相等,则说明m是守形数;否则不是。以下是VB语言的示例代码:```vb Dim m As Integer m = 25 Dim square As Integer square = m * m Dim strSquare As String strSquare = CStr...
VB 求守形数
答:
首先你判断守型数的那个函数是错的,你只判断了N平方数的最后一位跟N是否一样,当然只能找个个位数的守型数了。因为当N位数为两位以上时(比如25)他的平方数是625,在你拿625的最后一位5跟他比较当然不一样。正确的应该是取最后2位(2即25的位数)。正确的函数应该是:Private Function Fact(N...
VB 求守形数
答:
首先你判断守型数的那个函数是错的,你只判断了N平方数的最后一位跟N是否一样,当然只能找个个位数的守型数了。因为当N位数为两位以上时(比如25) 他的平方数是625,在你拿625的最后一位5跟他比较当然不一样。正确的应该是取最后2位(2即25的位数)。正确的函数应该是:Private Function Fact(...
VB
守形数
,完成结果如图3-2
答:
Private Sub Command1_Click() Print "1000以内的
守形数
有:" For i = 1 To 1000 If i ^ 2 Mod 10 = i Or i ^ 2 Mod 100 = i Or i ^ 2 Mod 1000 = i Then Print i End If Next iEnd Sub
用VB求守形数
a^2=xxa 如5^2=25,25^2=625
答:
i = 1 To 100 '我这里求1到100的 If f(i) = True Then Print i;: Print i ^ 2 End If Next i End Sub Function f(a As Integer) As Boolean If a = Val(Right(Str(a ^ 2), Len(Trim(Str(a))) Then f = True Else f = False End If End Function 'a为所求数字...
VB中
的Sub过程没有返回值和Function区别?最好能举个实列
答:
下面这例子,是
求守形数
.如5^2=25,6^2=36 就是守形数. 守形数(N^2=xxN)就是原来是几位,然后经过平方后,取和原数的位数一样的最后几位,来比较是否相等。Private Sub Command1_Click()Dim i As Integer For i = 1 To 100 Print f(i);Next i End Sub Function f(n As Integer)Dim ...
看图这
VB
探索n位
守形数
答:
Sub main() Dim n%, d%, k%, j%, i%, t%, m%, w%, z%, u%, v%, a%(500), b%(500), c%(500) n = InputBox("n=") For d = 1 To 9 For k = 1 To 500 a(k) = 0: b(k) = 0: c(k) = 0 Next a(1) = d For k = 2 To...
看图这
VB
常规求解
守形数
答:
Sub main() Dim a&, b&, c&, k&, s&, x&, y& Debug.Print "..." x = InputBox("x=") y = InputBox("y=") For a = x To y s = a * a b = 1: k = a While k > 0 b = b * 10: k = k \ 10 Wend c = s Mod b ...
VB
的问题 急等
答:
'先判断一位数的。for i=2 to 9 if((i*i-i) mod 10= 0)then print i,end if next i '10不用判断了,明显不是,下面判断2位数的。凡是10的倍数的数全不是。for i=11 to 99 if((i*i-i) mod 100= 0 and i mod 10<>0) then print i,end if next i '100不用判断了,下面...
VB
什么叫低位??
答:
1234的低位数可以是4,34,234;12的低位数可以是2;12345的低位数可以是5,45,345,2345
其他人还搜
vb求自守数
vb求零巧数
vb求完数
vb编程求1到100的奇数和
vb求数组最小值
vb数组求和
在vb中求1到100的和
vb求和
vb中如何求最大值