關(guān)于VB程序設(shè)計(jì)【雞兔同籠】

Private Sub Command1_Click()

創(chuàng)新互聯(lián)專業(yè)為企業(yè)提供淮安網(wǎng)站建設(shè)、淮安做網(wǎng)站、淮安網(wǎng)站設(shè)計(jì)、淮安網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計(jì)與制作、淮安企業(yè)網(wǎng)站模板建站服務(wù)，十年淮安做網(wǎng)站經(jīng)驗(yàn)，不只是建網(wǎng)站，更提供有價(jià)值的思路和整體網(wǎng)絡(luò)服務(wù)。

Dim j As Integer '代表雞的個數(shù)

Dim t As Integer ’代表兔的個數(shù)

Dim t1 As Integer '腿的個數(shù)

For j = 1 To 40

t = 40 - j

t1 = j * 2 + t * 4

If t1 = 100 Then

Print "雞="; j; "只"; "兔="; t; "只"

End If

Next

End Sub

雞兔同籠的vb代碼怎么寫??？

Private Sub Command1_Click()

Dim a, b, m, n As Integer ? ? ? '雞為a,兔為b,雞兔總數(shù)為m,雞兔腳數(shù)為n

For b = 1 To m

a = m - b

If 2 * a + 4 * b = n Then

Print "雞=" a ",兔=" b

End If

Next b

End Sub

Visual Basic是一種由微軟公司開發(fā)的包含協(xié)助開發(fā)環(huán)境的事件驅(qū)動編程語言。從任何標(biāo)準(zhǔn)來說，VB都是世界上使用人數(shù)最多的語言——不僅是盛贊VB的開發(fā)者還是抱怨VB的開發(fā)者的數(shù)量。它源自于BASIC編程語言。VB擁有圖形用戶界面（GUI）和快速應(yīng)用程序開發(fā)（RAD）系統(tǒng)，可以輕易的使用DAO、RDO、ADO連接數(shù)據(jù)庫，或者輕松的創(chuàng)建ActiveX控件。程序員可以輕松的使用VB提供的組件快速建立一個應(yīng)用程序。

用VB解決雞兔同籠問題的步驟

Private Sub Command1_Click()

Dim h As Integer, f As Integer

h = Val(InputBox("雞和兔的總頭數(shù)", "請輸入", 0))

f = Val(InputBox("雞和兔的總腳數(shù)（偶數(shù)）", "請輸入", 0))

x = (4 * h - f) / 2

y = (f - 2 * h) / 2

Label2.Caption = " 設(shè)籠中雞和兔的總頭數(shù)為" h ",總腳數(shù)為" f "。"

Label3.Caption = " 則籠中雞有" x "只，兔有" y "只。"

End Sub