內容 ： 正體->简体
Eva的家庭作業裏有很多數列填空練習。填空練習的要求是：已知數列的前四項，填出第五項。因 為已經知道這些數列只可能是等差或等比數列，她決定寫一個程式來完成這些練習。
輸入說明 ：
第一行是數列的數目t（0 <= t <= 20）。 以下每行均包含四個整數，表示數列的前四項。 約定數列的前五項均為不大於105的自然數，等比數列的比值也是自然數。
輸出說明 ：
對輸入的每個數列，輸出它的前五項。
範例輸入 ：
2
1 2 3 4
1 2 4 8
範例輸出 ：
1 2 3 4 5
1 2 4 8 16
Private Sub Form_Load()
回覆刪除Open App.Path & "\in.txt" For Input As #1
Open App.Path & "\out.txt" For Output As #2
Input #1, x
For i = 1 To x
Input #1, X1, X2, x3, x4
Print #2, X1, X2, x3, x4,
If X2 / X1 = x4 / x3 Then
Print #2, x4 * (X2 / X1)
Else
Print #2, x4 + (X2 - X1)
End If
Next i
Close #2
Close #1
End Sub
BY 阿揚
Dim A(5) As Long
回覆刪除Private Sub Form_Load()
Me.Hide
Open App.Path & "\in.txt" For Input As #1
Open App.Path & "\out.txt" For Output As #2
Input #1, Tot
For i = 1 To Tot
Input #1, A(1), A(2), A(3), A(4)
K1 = A(2) - A(1)
K2 = A(3) - A(2)
If K1 = K2 Then
K3 = A(4) + K1
Print #2, A(1); A(2); A(3); A(4); K3
Else
L = A(3) / A(2)
Print #2, A(1); A(2); A(3); A(4); A(4) * L
End If
Next i
Close #2
Close #1
End
End Sub
BY 小白
it's ok, still too simple.
回覆刪除