幫忙設計下VB程式,幫忙設計下VB程式。

時間 2022-03-31 11:05:09

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門設計這個的都...