UC知道vb的问题!!
来源：百度知道 编辑：UC知道 时间：2024/05/02 07:50:08
小鸡0.5元, 母鸡1.0元 ,公鸡1.5元
3个加起来到100元有多少种算法
Private Sub Command1_Click()
Dim x As Single
y
z
n
n = 0
For i = 0 To 100
For j = 0 To 100
z = 100 - x - y
if 1.5*x+y+0.5z=100 then
n = n + 1
Next i
Next j
Print n
End Sub
这里老不能显示为什么?
3个加起来到100元有多少种算法
Private Sub Command1_Click()
Dim x As Single
y
z
n
n = 0
For i = 0 To 100
For j = 0 To 100
z = 100 - x - y
if 1.5*x+y+0.5z=100 then
n = n + 1
Next i
Next j
Print n
End Sub
这里老不能显示为什么?
'感觉你上面的程序问题很多，不知道是不是拷贝过来是不是出错误了
'我下面的程序根据你的思路做的（枚举）。
'by sss99900@hotmail.com
'x,y,z 分别是小鸡，母鸡，公鸡的数量
Private Sub Command1_Click()
Dim x As Integer, y As Integer, z As Integer, n As Integer
For x = 0 To Int(100 / 0.5)
For y = 0 To 100
For z = 0 To Int(100 / 1.5)
If (1.5 * x + y + 0.5 * z) = 100 Then
n = n + 1
End If
Next
Next
Next
Print n
End Sub
0.5z?是不是得写*号？
还有应该是next j再next i
Private Sub Command1_Click()
Dim x, y, z, n As Integer
Dim i As Integer
Dim j As Integer
x = 0: y = 0: z = 0
For i = 0 To 100
For j = 0 To 100
z = 100 - i - j
If i * 1.5 + j + z * 0.5 = 100 Then
n = n + 1
End If
Next j
Next i
Print n
End Sub
我这样改好吗！是不是i,j,x,y用的重复了啊？