大家帮帮忙来了啊，用vb写

来源：百度知道 编辑：UC知道 时间：2024/06/16 17:17:42
例一：有鸡和兔子，共有100条腿，头40个，问鸡和兔各多少只
例二：1-2+3-4+5-6+7····+99-100

1

Private Sub Command1_Click()
Dim Chick As Integer '鸡
Dim Rabbit As Integer '兔子
For Chick = 0 To 50
For Rabbit = 0 To 25
If Chick * 2 + Rabbit * 4 = 100 And Chick + Rabbit = 40 Then
Print "鸡:" & Chick & "只，兔子： " & Rabbit & "只"
End If
Next
Next
End Sub

2

Private Sub Command1_Click()
Dim Sum As Integer
For i = 1 To 99 Step 2
Sum = Sum + i - (i + 1)
Next
Print Sum
End Sub

1/
Private Sub Command1_Click()
Dim a As Single, b As Single
For a = 1 To 50
b = (100 - a * 2) / 4
If Int(b) = b And a + b = 40 Then Print a, b
Next a
End Sub

2/
Private Sub Command1_Click()
Dim sum As Integer
Dim a As Integer
a = 1