This preview shows page 1. Sign up to view the full content.
Unformatted text preview: i = 0 Do While Not EOF(1) i = i + 1 Input #1, N(i) Loop sum = 1 For G = 1 To i sum = sum * N(G) Next G M = sum ^ (1 / i) MsgBox (M) Close #1 End Sub...
View Full Document
- Spring '11
- Industrial Engineering