Question

vb编程题目

vb编程题目有若干只鸡、兔同在一个笼子里，共有100条腿。求出笼中鸡和兔各有多少只，将结果输出在窗体上，如图所示。

Answer 1

Private Sub Command1_Click()
    Dim H As Integer, L As Integer
    For i = 1 To 35
        For j = 1 To 35
            If 4 * i + j * 2 = 100 Then
                Print "兔子的数量是" & i & "只，鸡的数量是" & j & "只"
            End If
        Next j
    Next i
End Sub

Answer 2

Private Sub Command1_Click()
Dim i As Integer, j As Integer
Print "符合条件的情况有："

For i = 1 To 100 / 2
For j = 1 To 100 / 4
If 2 * i + j * 4 = 100 Then Print "鸡的数量："; i; "兔子的数量："; j
Next
Next
End Sub