帮帮小妹，散分

Question

Dim X As Integer
        Dim Y As Integer
        Dim Z As Integer
        For X = 0 To 100
            For Y = 0 To 100
                For Z = 0 To 100
                    If (X + Y + Z = 100) And ((3 * X + 2 * Y + 0.5 * Z = 100)) Then
                        Print("公鸡:" & X & "母鸡:" & Y & "C" & Z)
                    End If
                Next Z
            Next Y
        Next X
    End Sub
在BUTTON 的click事件里写的代码
但怎么始终有错啊，始终不能打印出来帮帮小妹阿各位

Answer 1

可以打印的啊Option ExplicitPrivate Sub Command1_Click()
    Dim X As Integer
    Dim Y As Integer
    Dim Z As Integer
    
    For X = 0 To 100
        For Y = 0 To 100
            For Z = 0 To 100
                If (X + Y + Z = 100) And ((3 * X + 2 * Y + 0.5 * Z = 100)) Then
                    Print ("公鸡:" & X & "母鸡:" & Y & "C" & Z)
                End If
            Next Z
        Next Y
    Next X
    
End Sub

Answer 2

Option ExplicitPrivate Sub Command1_Click()
Dim X As Integer
Dim Y As Integer
Dim Z As IntegerFor X = 0 To 100
For Y = 0 To 100
For Z = 0 To 100
If (X + Y + Z = 100) And ((3 * X + 2 * Y + 0.5 * Z = 100)) Then
Print ("公鸡:" & CString(X) & "母鸡:" & CString(Y) & "C" & CString(Z))
End If
Next Z
Next Y
Next XEnd Sub

Answer 3

我怎么是STRING转换INTEGER失败？

Answer 4

Option ExplicitPrivate Sub Command1_Click()
Dim X As Integer
Dim Y As Integer
Dim Z As IntegerFor X = 0 To 100
For Y = 0 To 100
For Z = 0 To 100
If (X + Y + Z = 100) And ((3 * X + 2 * Y + 0.5 * Z = 100)) Then
Print ("公鸡:" & CStr(X) & "母鸡:" & CStr(Y) & "C" & CStr(Z))
End If
Next Z
Next Y
Next XEnd Sub

Answer 5

还是有问题，print（）里面是不时应该有个INTEGER哦

Answer 6

Option ExplicitPrivate Sub Command1_Click()
    Dim X As Integer
    Dim Y As Integer
    Dim Z As Integer    For X = 0 To 100
        For Y = 0 To 100
            For Z = 0 To 100
                If (X + Y + Z = 100) And ((3 * X + 2 * Y + 0.5 * Z = 100)) Then
                    Print ("公鸡:" & Str(X) & "母鸡:" & Str(Y) & "C" & Str(Z))
                End If
            Next Z
        Next Y
    Next XEnd Sub

Answer 7

应该是CStr  呵呵，，乱了

Answer 8

测试是木有问题！另外就是Z在循环时取值为偶数，可以设置step为2，这样可以加快速度

Answer 9

我这里也没有错非常正常。
建议你可以写log看看行不行。        Dim X As Integer
        Dim Y As Integer
        Dim Z As Integer
        Open "C:\1.log" For Output As #1
        For X = 0 To 100
            For Y = 0 To 100
                For Z = 0 To 100
                    If (X + Y + Z = 100) And ((3 * X + 2 * Y + 0.5 * Z = 100)) Then
                       Print #1, "aa:" & CStr(X) & "bb:" & CStr(Y) & "C" & CStr(Z)
                    End If
                Next Z
            Next Y
        Next X
        Close #1
        MsgBox "OK!"

Answer 10

应该是VB本身的问题，建议重装VB

Answer 11

Dim X As Integer
    Dim Y As Integer
    Dim Z As Integer
    For X = 0 To 100
        For Y = 0 To 100
            For Z = 0 To 100
                If (X + Y + Z = 100) And ((3 * X + 2 * Y + 0.5 * Z = 100)) Then
                    '改为下面一行实验一下，这是打印到调试窗口
                    Debug.Print "公鸡:" & X & "  母鸡:" & Y & "  C：" & Z
                End If
            Next
        Next
    Next

Answer 12

Option ExplicitPrivate Sub Command1_Click()
Dim X As Integer
Dim Y As Integer
Dim Z As IntegerFor X = 0 To 100
For Y = 0 To 100
For Z = 0 To 100
If (X + Y + Z = 100) And ((3 * X + 2 * Y + 0.5 * Z = 100)) Then
Print ("公鸡:" & CStr(X) & "母鸡:" & CStr(Y) & "C" & CStr(Z))
End If
Next Z
Next Y
Next XEnd Sub
没错 

Answer 13

应该是 窗体名.Print吧,记不清了，N年都没有用过VB了！

Answer 14

For X = 0 To 34
For Y = 0 To 51
Z = 100 - X - Y
If (X + Y + Z = 100) And ((3 * X + 2 * Y + 0.5 * Z = 100)) Then
Print "公鸡:" & X & "母鸡:" & Y & "小鸡:" & Z
End If
Next Y
Next X
这个会不会效率高一点?

Answer 15

我这可以，顺便帮你简化了下， 建议你单步调试
Private Sub Command1_Click()
Dim X As Integer, Y As Integer, Z As Integer
    For X = 2 To 20 Step 3
        Y = (20 - X) / 3 * 5
        Z = 100 - X - Y
        Me.Print ("公鸡:" & X & "母鸡:" & Y & "C" & Z)
    Next X
End Sub

Answer 16

要是还不行就这样
Private Sub Command1_Click()
Dim X As Integer, Y As Integer, Z As Integer
    For X = 2 To 20 Step 3
        Y = (20 - X) / 3 * 5
        Z = 100 - X - Y
        Me.Print "公鸡:"; X; "母鸡:"; Y; "C"; Z
    Next X
End Sub

Answer 17

小妹这里人气真旺啊
你不知道debug吗？
设置一个断点，F5运行后到断点的地方会停住
然后F8进行单步调试
看是那句代码的问题
然后再报给大家
让大伙看看

Answer 18

因该不会错吧,我这儿没VB,你把错误的那一行发出OK

Answer 19

………………
这个代码是C转的吧？
把那些Cstr都去掉
()也不要，应该就好了