'钢笔每支3元,圆珠笔每支2元,铅笔每支0.5元,请统计100元可以买100支数的方案 '(每支笔至少一支) Private Sub Form_Click() Dim gangbi As Integer Dim yuanzhubi As Integer Dim qianbi As Integer Dim fangan As Integer '方案的组数 fangan = ______________ For gangbi = 1 To ___________________ For yuanzhubi = 1 To 50 For qianbi = 1 To 100 If __________________________________ = 100 and _______________________________ Then Print gangbi, yuanzhubi, qianbi; fangan = _______________________ End If Next qianbi Next ______________________ Next gangbi Print "方案数" & fangan End Sub