永发信息网

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

我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯