{[ promptMessage ]}

Bookmark it

{[ promptMessage ]}

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

Info icon This 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
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

{[ snackBarMessage ]}

What students are saying

  • Left Quote Icon

    As a current student on this bumpy collegiate pathway, I stumbled upon Course Hero, where I can find study resources for nearly all my courses, get online help from tutors 24/7, and even share my old projects, papers, and lecture notes with other students.

    Student Picture

    Kiran Temple University Fox School of Business ‘17, Course Hero Intern

  • Left Quote Icon

    I cannot even describe how much Course Hero helped me this summer. It’s truly become something I can always rely on and help me. In the end, I was not only able to survive summer classes, but I was able to thrive thanks to Course Hero.

    Student Picture

    Dana University of Pennsylvania ‘17, Course Hero Intern

  • Left Quote Icon

    The ability to access any university’s resources through Course Hero proved invaluable in my case. I was behind on Tulane coursework and actually used UCLA’s materials to help me move forward and get everything together on time.

    Student Picture

    Jill Tulane University ‘16, Course Hero Intern