Private Sub Form_Click()n = 0s = 0Do While s < 400n = n + 2s = s + nLoopPrint nPrint sEnd Sub出大电流(电池长期使用老化或充电器故障也可造成这