VB程序题！
答案:2 悬赏:50 手机版
解决时间 2021-04-20 14:10
- 提问者网友：藍了天白赴美
- 2021-04-20 07:21
一百块钱买一百头鸡 小鸡3只1元 公鸡1只5元 母鸡1只3块 用FOR的语句。
最佳答案
- 五星知识达人网友：末日狂欢
- 2021-04-20 08:40
Private Sub Command2_Click()
'‘小鸡3只1元 公鸡1只5元 母鸡1只3块
Label1.AutoSize = True
For X = 1 To 34
For Y = 1 To 20
For Z = 1 To (100 - 34 - 20)
If 3 * X + Y * 5 + Z / 3 = 100 Then
Label1 = Label1 & vbCrLf & "母:" & X & " 公:" & Y & " 小：" & Z
End If
Next
Next Y
Next X
End Sub
全部回答
- 1楼网友：洒脱疯子
- 2021-04-20 09:15
Private Sub Command1_Click() Dim a, b, c As Integer 'a表示小鸡数量,b表示公鸡数量,c表示母鸡数量 Dim i, j, k As Integer For a = 0 To 100 Step 3 For b = 0 To 100 / 5 For c = 0 To 100 / 3 If a / 3 + b * 5 + c * 3 = 100 Then Me.List1.AddItem ("小鸡" & a & "只，公鸡" & b & "只，母鸡" & c & "只。") End If Next c Next b Next a
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯