HW#4.2 - i = 0 Do While Not EOF(1 i = i 1 Input#1 N(i Loop...

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
Homework# 4 Problem 2 Option Explicit Sub myprog() Dim N(1 To 100) As Integer, i As Single, G As Single, sum As Single Dim M As Single Open "\Users\Mateusz\Desktop\DATA.dat" For Input As #1
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

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

Ask a homework question - tutors are online