1樓：
你好，bai我來du
為你zhi解dao答：
版private sub ***mand1_click()dim i%, j%, m!
權, n!
for i = 1 to 100
for j = i + 1 to 100
m = sqr(i + j)
n = sqr(j - i)
if fix(m) = m and fix(n) = n then print i, j
next
next
end sub
2樓：智慧未來超人
dim a
dim b
for(i=0 to 100)
for(j=i+1 to 100)
a=(j-i)^(1/2)
b=(j+i)^(1/2)
if int(a)-a=0 and int(b)-b=0 then print i & "," & j & 「是自然數對」
next j
next i
我電腦上沒有vb 所以這麼沒有除錯，不知道有沒版有錯誤，不懂追問我權
3樓：匿名使用者
有些函式符號有點忘記了。
。。for x = 1 to 100
for y = 1 to x ' 不要重複的，就是顛倒順序後發現其實版是一致的那種需要刪掉權
tmpsum = cint(sqr(x + y))tmpdif = cint(sqr(x - y))if tmpsum * tmpsum = x + y and tmpdif * tmpdif = x - y then
print x, y
end if
next
next
4樓：匿名使用者
private sub ***mand1_click()for i = 1 to 99
for j = 1 to 99
if i = j then exit forif sqr(i + j) = int(sqr(i + j)) and sqr(abs(i - j)) = int(sqr(abs(i - j))) then
debug.print i & " " & jend if
next j
next i
end sub
結果5 4
10 6
13 12
17 8
20 16
25 24
26 10
29 20
34 30
37 12
40 24
41 40
45 36
50 14
52 48
53 28
58 42
61 60
65 16
65 56
68 32
73 48
74 70
80 64
82 18
85 36
85 84
89 80
90 5497 72
求所有小於或等於100的自然數對。自然數對是指兩個不同的自然數的和與差都是平方數。vb**詳細
5樓：聽不清啊
private sub ***mand1_click()dim i as integer, j as integerfor i = 0 to 99
for j = i + 1 to 100
if issq(i + j) and issq(j - i) then
print i; j,
k = k + 1
if k mod 5 = 0 then printend if
next j
next i
end sub
function issq(n as integer) as boolean
issq = int(sqr(n)) * int(sqr(n)) = n
end function
編寫程式，求出所有小於或等於100的自然數對。自然數對是指兩個數的和與兩個數的差都是平方數。這個程
6樓：匿名使用者
a=sqrt(m-n);
a=sqrt(m+n);
放到for(n=1;n<100;n++)中，和下面一句同時用{}括起來
各位vb程式設計「求100以內所有自然數的和」
7樓：匿名使用者
private sub ***mand1_click()dim sum as integer,i as integerfor i=1 to 100
sum=sum+i
next i
print "sum=";sum
end sub
用c語言程式設計，用c語言程式設計 求100以內的奇數和？
include main printf 100以內奇數和是回 答 d n sum include int main include void main 比樓上幾位du 的效率高zhi一倍，因dao為迴圈次數專少屬了一半 include stdio.h void main printf sum1 d ...
使用while語句程式設計求100以內能被5整除但不能被7整
include void main 程式設計要求輸出200 400之間不能被五整除，且能被3整除的數。求大神幫忙 效率最低的basic程式 dim i as integer for i 200 to 300 if i mod 5 0 and i mod 3 0 then print i next c...
用vb程式設計輸出3 200之間的所有素數
private sub command1 click for i 3 to 200 for j 2 to sqr i if i mod j 0 then exit fornext if j int sqr i then print inext end sub vb編寫程式找出3 100間所有素數並輸...