1樓：匿名使用者
private sub command1_click()
dim i as long
for i = 1000 to 9999
if ispf(i) and ispf(sum(i)) then
dim str as string
str = "雙完全平方數是：" & i & vbcrlf & vbcrlf
str = str & i & "的平方數是：" & sqr(i) & vbcrlf & vbcrlf
str = str & i & "的各個位數的和是：" & sum(i) & ", 和的平方數是：" & sqr(sum(i))
msgbox str
exit sub
end if
next
end sub
private function ispf(n as long) as boolean
'判斷是否平方數
dim a as double
a = sqr(n)
if int(a) - a = 0 then
ispf = true
else
ispf = false
end if
end function
private function sum(n as long) as long
'求乙個數的各位和
dim str as string
str = cstr(n)
dim i as integer
dim sumnum as long
sumnum = 0
for i = 1 to len(str)
sumnum = sumnum + cint(mid(str, i, 1))
next
sum = sumnum
end function
最大的四位數是多少？最小的四位數是多少
e拍 最大的四位數是9999，最小的四位數是1000。自然數中所含有的數位的個數用位數來表示。含有一個數位的數是一位數，含有兩個數位的數是兩位數.最大的一位數是9，最小的一位數是1，最大的兩位數是99，最小的兩位數是10。如此推理，最大的n位數是10 1，最小的n位數是10 擴充套件資料 數位和位數...
15000的算術平方根保留四位數
15000的算術平方根是122.474487139159 保留四位有效數字是122.5 保留四位小數是122.4745 c 任意輸入乙個四位數分別輸出其千位百位十位個位上的值並輸出它的平方根 定義乙個整型變數a來儲存這個4位數,所以千位可以表示成 a 1000,百位 a 100 10,十位 a 10...
列式計算1最小的四位數與最大的三位數的差,除以
來1 1000 999 源0.125,1 0.125,8 答 商是8.2 99 4.5 100 2 94.5 50,1.89 答 商是1.89.3 10 0.5 2.5 1.9,9.5 2.5 1.9,23.75 1.9,12.5 答 商是12.5.列式計算 1 最小的四位數與最大的三位數的差,除以...