1樓：卻彤雲
clear
for a=1 to 30
for b=1 to 30
c=30-a-b
if 3*a+2*b+c=50
?"男人有",a,"人"
?"女人有",b,"人"
?"小孩有",c,"人"
?endif
endfor
endfor
2樓：
for i= 0 to 17
for j=0 to 25
for k=0 to 50
if 3*i+2*j+k==50
msgbox ("男人有 " & i & " 個 ，女人有 " & j & "個，小孩有 " & k & "個")
exit
endif
endfor
endfor
endfor
msgbox "男人有 " & i & " 個 ，女人有 " & j & "個，小孩有 " & k & "個"
vb語言 自己翻譯下
3樓：匿名使用者
for i=1 to 17
for j=1 to 25
for k=1 to 50
if i*3+j*2+k*1=50 and i+j+k=30 then
? "男："+alltrim(str(i))+" 女："+alltrim(str(j))+" 小孩："+alltrim(str(k))
endif
endfor
endfor
endfor
程式執行結果：
excel題目。急，一道excel函式題目（很急啊！急急急）
concatenate mid e3,7,4 年 mid e3,11,2 月 mid e3,13,2 日 可以使用簡化的公式 text text mid e3,7,8 0 00 00 e年mm月dd日 參考下 mid e3,7,4 年 mid e3,11,2 月 mid e3,13,2 日 e3是你...
一道線性代數題目,求大神,一道線性代數題目,求大神解答,求詳細過程
x i b 1 c tb t i 則 x b i b 1 c t i x b c t i 然後把b,c代入,再轉置然後求逆即可 一道線性代數題目,求大神 第2列,乘以 1 a1加到 來第源1列 第3列,乘以 1 a2加到第1列 第n 1列,乘以 1 an加到第1列得到上三角行列式,然後主對角線元素相...
一道作文題目，求一道作文題目
全國哀悼日 世界上最高的禮儀 一道作文題目 我發現謊言也可以是美的 打小時候起，我就經常聽到爸爸媽媽這樣教育我們 不要撒謊，撒謊的不是好孩子。上幼兒園的時候，小列寧打碎花瓶的事情被老師一次又一次講起。我幼小的心理認定，撒謊是小孩子的標誌，我可不願做壞孩子，我不撒謊。有了這樣的想法和做法，我經常受到父...