Question

编写程序,求数列1,3,3,3,5,5,5,5,5,7,7,7,7,7,7,7的第15项

Answer 1

VB 语言编写的程序

Private Sub Command1_Click()

Dim a(15) As Integer

c = 1

 For i = 1 To 15

   a(i) = c

n = n + 1

If n = c Then

c = c + 2

n = 0

End If

Print "a("; i; ")="; a(i)

Next i

End Sub

追问

要用C++语言的

追答

我没学c++ 主要程序段：
c = 1
For i = 1 To 15
a(i) = c
n = n + 1
If n = c Then
c = c + 2
n = 0
End If
Print "a("; i; ")="; a(i)
Next i
是一样的呀
你转换成c++