求VB高手帮做个题可以加我私聊四四二九五菱三菱二 急 发 YOUJIAN 就是这个
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/10/01 19:31:35
求VB高手帮做个题
可以加我私聊四四二九五菱三菱二 急 发 YOUJIAN 就是这个
可以加我私聊四四二九五菱三菱二 急 发 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
再答: 嗯
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
再答: 嗯