作业帮 > 综合 > 作业

求VB高手帮做个题可以加我私聊四四二九五菱三菱二  急  发 YOUJIAN 就是这个

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/09 13:54:09
求VB高手帮做个题



可以加我私聊四四二九五菱三菱二  急  发 YOUJIAN 就是这个
Private Sub Form_DblClick()

Dim n As String

For x = 0 To 33

   For y = 0 To 20
 
       For z = 3 To 300

           If 3 * x + 5 * y + 1 / 3 * z = 100 Then
           
             sr = "公鸡:" & x & "母鸡:" & y & "小鸡:" & z
             n = sr & sr & vbCrLf
             List1.AddItem sr

           End If
      Next z

   Next y

Next x

End Sub
 
再问: 能加个qq说吗?我的442950302
再答: 嗯