1 분수 서열 2/1,3/2,5/3,8/5 가 있 습 니 다.이 수열 앞의 20 개 항목 과 컴퓨터 VB 프로 그래 밍 을 구 합 니 다.

1 분수 서열 2/1,3/2,5/3,8/5 가 있 습 니 다.이 수열 앞의 20 개 항목 과 컴퓨터 VB 프로 그래 밍 을 구 합 니 다.

Private Sub Command1_Click()Dim a As Long, b As Long, cDim i As Integer, sum As Singlea = 2b = 1For i = 1 To 20  sum = sum + a / b  Print i; a; "/"; b  c = a  a = a + b  b = cNextPrintPrintPrint sumEnd Sub