Private Sub Form_click()
  b = 1
  Do While b < 40
    b = b * (b + 1)
  Loop
  Print b
End Sub
程序运行后，单击窗体，在窗体上显示的值为（  ）。
A、42 B、39
C、6 D、1