编写一个程序,计算s=2+3/2+4/3+5/4+…+51/50.

题目

编写一个程序,计算s=2+3/2+4/3+5/4+…+51/50.

答案

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