高中微机会考编程题，再一道！
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer
For i = 0 To 20
For j = 0 To 33
k = 100-i-j
If 5 * i + 3 * j + k / 3 = 100 Then
Label1 = "小鸡=" & k
Label2 = "母鸡=" & j
Label3 = "公鸡=" & i
End If
Next j
Next i
End Sub
上一篇：不会玩电脑会考微机能过么
下一篇：高中微机会考编程题
多重随机标签