杭州交通信息网蓬莱汽车站到蓬莱机场:vb中百鸡百钱问题如何输入
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/07 03:31:50
vb中百鸡百钱问题如何输入呢？
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, i As Integer
For a = 1 To 100
For b = 1 To 100
For c = 1 To 100
If a + b + c = 100 And a * 5 + b * 3 + c * 0.5 = 100 Then
i = i + 1
End If
Next c
Next b
Next a
msgbox "有"+ i + "个方案"
End Sub
a=inputbox("a?")
b=inputbox("b?")
c=inputbox("C?")
这样输入就可以了