微商代理怎么赚钱:百钱百鸡 VB编程 代码

假设你的百鸡百钱是经典的算法，公鸡5钱，母鸡3钱，3小鸡一钱，下面的代码在VB里面调试通过。
Dim a As Integer, b As Integer, c As Integer
For a = 1 To 20
For b = 1 To 33
c = 100 - a - b
If (a + b + c = 100) And (a * 5 + b * 3 + c / 3 = 100) Then
Print a, b, c
End If
Next b
Next a

dim a as long,b as long,c as long
for a=1 to 100
for b=1 to 100
fo4r c=1 to 100
if a+b+c=100 and a*5+b*3+c/3=100 then
print "结果" & a,b,c
end if

应该可以运行吧,没调试过

javascript:
<script>
for (var a=0;a<=20 ;a++ )
{
for (var b=0;b<=33 ;b++ )
{
var c=100-a-b;
if((a*5+b*3+c/3)==100) document.write("a="+b+";b="+b+";c="+c+"<br>"+(c/3)+"<br>");
}
}
</script>
JSP(Java):
<%
for (int a=0;a<=20 ;a++ )
{
for (int b=0;b<=33 ;b++ )
{
int c=100-a-b;
if(c%3==0&&a*5+b*3+c/3==100) out.println("a="+b+";b="+b+";c="+c+"<br>");
}
}
%>
VB:
Private Sub Command1_Click()
For a = 0 To 20
For b = 0 To 33
c = 100 - a - b
If a * 5 + b * 3 + c / 3 = 100 Then
rStr = rStr + vbCrLf + "a=" + Str(b) + ";b=" + Str(b) + ";c=" + Str(c)
End If
Next b
Next a
MsgBox rStr
End Sub

Dim a As Integer, b As Integer, c As Integer
For a = 1 To 20
For b = 1 To 33
c = 100 - a - b
If (a + b + c = 100) And (a * 5 + b * 3 + c / 3 = 100) Then
Print a, b, c
End If
Next b
Next a

Dim a As Integer, b As Integer, c As Integer
For a = 0 To 20 Step 4
For b = 1 To 33
c = 100 - a - b
If (a + b + c = 100) And (a * 5 + b * 3 + c / 3 = 100) Then
Print a, b, c
End If
Next b
Next a