vb 百鸡问题 哪里错了
答案:1 悬赏:20 手机版
解决时间 2021-03-20 23:24
- 提问者网友：niaiwoma
- 2021-03-20 09:55
vb 百鸡问题 哪里错了
最佳答案
- 五星知识达人网友：底特律间谍
- 2021-03-20 10:06
Private Sub Form_Click()
Dim a As Single, b As Single, c As Single, s As Single
For a = 1 To 20
For b = 1 To 33
c = 100 - a - b
s = 5 * a + 3 * b + c / 3
If c > 0 And s = 100 Then
Print "公鸡" & a & "母鸡" & b & "小鸡" & c
Exit For
End If
Next b
Next a
End Sub
Dim a As Single, b As Single, c As Single, s As Single
For a = 1 To 20
For b = 1 To 33
c = 100 - a - b
s = 5 * a + 3 * b + c / 3
If c > 0 And s = 100 Then
Print "公鸡" & a & "母鸡" & b & "小鸡" & c
Exit For
End If
Next b
Next a
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯