VB程序 Private Sub Command1_Click() Dim a,i As Integer i = 1 While i < 50 s = s + (i + 1) / i i = i + 1 Wend Print "s="; s End Sub