1樓：
x要定義為字串，form_load的過程需要加show才可以用print
private sub form_load()dim x$, a%, b%, c%, y%show
x = inputbox("請輸入三位數", "提示框")if len(x) = 3 then
a = val(mid(x, 1, 1))b = val(mid(x, 2, 1))c = val(mid(x, 3, 1))y = val(x)
if a ^ 3 + b ^ 3 + c ^ 3 = y thenprint "是水仙花水"
else
print "不是水仙花數"
end if
else
print "輸入錯誤"
end if
end sub
2樓：匿名使用者
private sub form_click()dim x as string
dim a%, b%, c%, y%
x = inputbox("請輸入三位數", "提示框")if len(x) = 3 then
a = val(mid(x, 1, 1))b = val(mid(x, 2, 1))c = val(mid(x, 3, 1))y = val(x)
if a ^ 3 + b ^ 3 + c ^ 3 = y thenprint "是水仙花水"
else
print "不是水仙花數"
end if
else
print "輸入錯誤"
end if
end sub
兩個問題：
1、在form_load裡執行print是看不到的2、將x定義為string型別方可
matlab的程式設計 一個三位整數各位數字的立方和等於該數本身則稱該數為水仙花數。輸出全部水仙花數
3樓：匿名使用者
for i=100:999
j=fix(i/100);
k=fix((i-100*j)/10);
t=i-100*j-10*k;
if j*j*j+k*k*k+t*t*t==iiend
endfix是取bai
整函式，du這樣寫可以zhi，但dao
答案不唯一版。望採權納！
4樓：匿名使用者
^an = ;
for i = 100:999
a = floor(i/100);%百位
b = floor((i-100*a)/10);%十位zhic = mod(i,10);%個位
if i == a^dao3 + b^3 +c^3an = [an,i];
endend
結果回：答
an =
153 370 371 407
用vb編寫：找出所有的「水仙花數」。 「水仙花數」是指一個三位數，其各位數字的立方和等於該數本身
5樓：大野瘦子
**為：
using system;
using system.collections.generic;
using system.text;
namespace _
class program
static void main(string args)
console.writeline("一重迴圈判斷：");
console.writeline("水仙花數有：");
int i,j, k, l;
for (i = 100; i < 1000;i++)
j = i / 100;
k = i %100/10;
l = i % 10;
int n = j * j * j + k * k * k + l * l * l;
if (n == i)
console.writeline(n);
console.writeline("三重迴圈判斷：");
console.writeline("水仙花數有：");
int q, w, e, r;
for(q=1;q<=9;q++)
for(w=0;w<=9;w++)
for (e = 0; e <= 9; e++)
int s = q * 100 + w * 10 + e;
int t = q * q * q + w * w * w + e * e * e;
if (s == t)
console.writeline(s);
注意事項
自定義函式is(number)判斷number的各位數字立方和是否等於它本身，如is(121)返回值0，is(153)返回值1。 主函式輸入兩個正整數m和n(m>=1, n<=1000)，輸出m-n之間的所有滿足各位數字和等於它本身的數。
input
多組測試資料，每組輸入兩個正整數m和n(m>=1, n<=1000)。
output
輸出m-n之間的所有滿足各位數字立方和等於它本身的數，空格隔開（最後一個數後無空格）。
sample input
1 100
50 200
50 500
sample output
153 370 371 407
#include
#include
int is(int number)
int s,sum=0;
while(number!=0)
s=number%10;//不斷取餘，直至為0
sum+=pow(s,3);
number=number//10;不斷去尾，直至為0
return sum;
int main(void)
int m,n,k,flag;
flag=1;
for(k=m;k<=n;k++)
if(k==is(k))
if(flag!=0)
printf("%d",k);
flag=0;
else
printf(" %d",k);
printf("\n");
return 0;
6樓：livingroom寶貝
private sub command1_click()dim a%, b%, c as integerfor a = 1 to 9
b = 0
do while b <= 9
c = 0
do until c > 9
if a ^ 3 + b ^ 3 + c ^ 3 = 100 * a + 10 * b + c then
print "水仙花數"; 100 * a + 10 * b + cend if
c = c + 1
loop
b = b + 1
loop
next a
end sub
我的文庫有好多呢。
我的輸出與題目有些出入。
7樓：匿名使用者
private sub form_click()dim i, j, m, n as integerfor n = 100 to 999
i = n \ 100
j = (n mod 100) \ 10
m = n mod 10
if i ^ 3 + j ^ 3 + m ^ 3 = n thenprint n; "="; i; "^3+"; j; "^3+"; m; "^3"
end if
next n
end sub
8樓：
private sub form_load()show
print vbcrlf;
print vbcrlf;
dim a as integer, b, cfor i = 100 to 999
a = i \ 100
b = (i mod 100) \ 10
c = i mod 10
if (a ^ 3 + b ^ 3 + c ^ 3 = i) then
print tab(10); i & "=" & a & "^3+" & b & "^3+" & c & "^3"
end if
next i
end sub
求編vb程式？輸入三位整數然後將它反向
四舍 入 private sub command1 click x inputbox 輸入一個三位數 x1 x 100 x1 三位數 的百位 x2 x x1 100 10 十位 x3 x x1 100 x2 10 個位msgbox x3 x2 x1 end sub 環業軟體 private sub ...
程式設計實現 從鍵盤任意輸入三位正整數，將該數分解成個位 十
小黑哎啊 include int main int n,k 0 int a 11 scanf d n while n a k n 10 提取各個位上的數，儲存在陣列a中n 10 for int i 0 ifor int j 0 jif a j a j 1 int t t a j a j a j 1 ...
整數任意次方後的最後三位,需要步驟的解析
使用vs2013 c程式 include stdio.h 例如 請輸入兩個數，x和y x y 5 3 5 3的最後三位是125 int main int argc,char argv printf d nnum0 return 0 用c語言編寫程式求一個整數的任意次方的最後三位數 include v...