1樓:慢慢變富
1、根據題目:
父子今年年齡和為50歲,5年後父親的年齡是兒子的4倍,問今年父親多少歲?兒子多少歲?
可得出結論:(兒子年齡 + 5) * 4 = (50 - 兒子年齡) + 5
2、然後使用乙個迴圈得到結果:
option explicit
private sub form_load()dim 兒子年齡 as integer
for 兒子年齡 = 0 to 50
if (兒子年齡 + 5) * 4 = (50 - 兒子年齡) + 5 then
msgbox "今年父親 " & 50 - 兒子年齡 & " 歲!"
msgbox "今年兒子 " & 兒子年齡 & " 歲!"
exit for '結束迴圈
end if
next 兒子年齡
end sub
3、得到結果:父親43歲,兒子7歲
'------------------------
2樓:匿名使用者
private sub command1_click()
dim i as long '父親的年齡
dim j as long '兒子的年齡
dim k as long
for i = 0 to 50 '因為今年父子年齡和為50,所以父親和兒子的年齡都不可能大於50,當然也不可能小於0
for j = 0 to 50
if i + j = 50 then '第乙個條件:父子今年年齡和為50歲
if i + 5 = (j + 5) * 4 then '第二個條件:5年後父親的年齡是兒子的4倍
msgbox "今年父親" & cstr(i) & "歲,兒子" & cstr(j) & "歲"
end if
end if
next
next
end sub
3樓:匿名使用者
dim i as integer『父親的年齡
dim j as integer』兒子的年齡
for i = 0 to 50『迴圈,列舉父親的年齡,當然也可以列舉兒子的
j=50-i
if i + 5 = ( j + 5 ) * 4 then』判斷是否達成條件,達成條件就輸出
msgbox "今年父親" & str(i) & "歲,兒子" & str(j) & "歲"
exit sub
end if
next
先列舉父親的年齡——i,從0 到 50,兒子就是50-i — — j
如果達成條件——5年後父親的年齡是兒子的4倍——i + 5 = ( j + 5 ) * 4
就輸出結果,並退出程式
4樓:張天寬
private sub form_load()dim a as integer
for a = 0 to 50
if (a + 5) * 4 = (50 - a) + 5 thenmsgbox "父親 " & 50 - a & " 歲! 兒子 " & a & " 歲!"
exit for
end if
next a
end sub
有郵箱我可以把源程式發過去!希望選我!
c語言程式大神幫忙設計一下
自我程式設計 按照題目要求 1 實現檔案寫入功能,一次寫入一個職工資訊。2 實現查詢功能 包含4種條件查詢 3 實現資訊刪除和修改並寫入檔案。根據題意,資料用結構陣列儲存,且職工編號唯一性,因此單獨兩個函式計算資訊長度和編號。除條件查詢函式和讀取檔案的函式,不會自行free釋放記憶體。如你寫 呼叫,...
懂VB的幫忙下,懂VB的幫忙下
首先,vb的事件都是系統自己已經編好的,我們使用者只能用,不能更改。其次,標籤的作用你該知道吧 標籤實用來顯示一些資訊的,一般不怎麼接受事件的,接受的話就是單擊了,你想比如右邊的廣告,都是單擊鏈結的吧?誰會設計成雙擊啊,那樣不是大家習慣的。所以建議你的機子上有雙擊的話也別用,因為根本沒有實際意義嘛!...
設計師幫忙設計一下室內裝修吧謝謝
資料不全,沒標窗戶位置。 戶型不錯的,去專業的室內設計公司讓他們幫你設計比較好哦,畢竟是婚房。有人願意幫忙免費設計一下室內裝修嗎?可以的話帶效果圖 謝謝 我有戶型圖可以發過去 我qq是 我可以幫你設計的 室內裝修,帶效果圖 這個我估計沒人免bai費設計了,你自du己努力吧,畢竟專zhi門設計這個的都...