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

问题描述:

用VB程序实现:a1=1 , a2=3 , a3=5, ak为第k个正奇数,求S=a1 a2 a3 … ak=100时k的值
最好用do While…Loop和do…Loop Until语句.请帮下忙谢谢!>

Private Sub Form_Click()
Dim i%,sum As Double,k%
i = 1:sum = 1
Do While k