编写一个程序,计算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