求VB高手帮做个题可以加我私聊四四二九五菱三菱二 急 发 YOUJIAN 就是这个
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/07/13 07:01:50
求VB高手帮做个题
![](http://img.wesiedu.com/upload/b/65/b65e9304c598995d90fd2aa08c9304ab.jpg)
![](http://img.wesiedu.com/upload/d/38/d38caf583729cf7378a1d05286f1c60e.jpg)
可以加我私聊四四二九五菱三菱二 急 发 YOUJIAN 就是这个
![](http://img.wesiedu.com/upload/b/65/b65e9304c598995d90fd2aa08c9304ab.jpg)
![](http://img.wesiedu.com/upload/d/38/d38caf583729cf7378a1d05286f1c60e.jpg)
可以加我私聊四四二九五菱三菱二 急 发 YOUJIAN 就是这个
![求VB高手帮做个题可以加我私聊四四二九五菱三菱二 急 发 YOUJIAN 就是这个](/uploads/image/z/14911928-8-8.jpg?t=%E6%B1%82VB%E9%AB%98%E6%89%8B%E5%B8%AE%E5%81%9A%E4%B8%AA%E9%A2%98%E5%8F%AF%E4%BB%A5%E5%8A%A0%E6%88%91%E7%A7%81%E8%81%8A%E5%9B%9B%E5%9B%9B%E4%BA%8C%E4%B9%9D%E4%BA%94%E8%8F%B1%E4%B8%89%E8%8F%B1%E4%BA%8C+%26nbsp%3B%E6%80%A5+%26nbsp%3B%E5%8F%91+YOUJIAN+%E5%B0%B1%E6%98%AF%E8%BF%99%E4%B8%AA)
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
再答: 嗯
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
再答: 嗯