Question

用VB！100块买100支笔，其中钢笔3元，圆珠笔2元，铅笔0.5元，问可以买到三种笔各多少支？

用VB！100块买100支笔，其中钢笔3元，圆珠笔2元，铅笔0.5元，问可以买到三种笔各多少支？

Answer 1

Private Sub Form_Load()
Dim Xv As Integer, Yv As Integer, Zv As Integer
Dim Pv As Boolean
For i% = 2 To 100 Step 2
Zv = i%
For Y% = 1 To 100
Xv = Y%
Yv = 100 - Xv - Zv
If Yv > 0 Then
If (Xv * 3 + Yv * 2 + Zv * 0.5) = 100 Then
Pv = True
Form1.Print Xv, Yv, Zv
End If
End If
Next Y%
Next i%
End Sub