用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