用VB程序实现:a1=1 ,a2=3 ,a3=5,ak为第k个正奇数,求S=a1+a2+a3+…+ak=100时
问题描述:
用VB程序实现:a1=1 ,a2=3 ,a3=5,ak为第k个正奇数,求S=a1+a2+a3+…+ak=100时
答
Private Sub Command1_Click()
Do
n = n + 1
m = m + (n * 2 - 1)
If m = 100 Then
Print n
Exit Do
End If
DoEvents
Loop
End Sub