Question

用VB程序实现：a1=1 , a2=3 , a3=5, ak为第k个正奇数,求S=a1 a2 a3 … ak=100时k

Answer 1

Private Sub Form_Click()

Dim i%,sum As Double,k%

i = 1:sum = 1

Do While k