VBA Eq 1 and 2

VBA Eq 1 and 2

Use VBA Input using Input Box and echo input to your output. Use Option Explicit and type all variables. Output to a file for both problems. Turn in your output file and your source listing. 1. Consider the following integral: 31416x2sinx)dx , in radias Write a VBA program to evaluate this integral using Simpson's 1/3 rule. Input the lower and upper limits (3.1416 is accurate enough). Input and output from the main Sub. Put the 1/3 rule in a subprogram called by the main program. Use a function for the integrand. Note: you will need to include logic to account for the alternating 4's and 2's. Probably the easiest way is to include two for loops Begin with n = 4, Compute the relative error, Ea, as the difference between the present value and the previous value. (For n 4 the previous value was zero.) Put the call to Simpson inside a for loop and continue until you get an Ea value less than 10s in magnitude. Output should include each iterated value, and the corresponding values of n and Ea. 2. The following explicit approximation to the fiction factor,/, in turbulent pipe flow is due to Swamee and Jain: 0.25 k, 5.74 l0g1o 3.7D Re Here Re is the Reynolds number, ks the roughness, and D the pipe diameter. Write a VBA program to input the Reynolds number and the roughness factor/diameter ratio in the main program. Then evaluate f for Re 1,000,000 and ks /D = 0.04 in a function. Import an Excel function to evaluate log base 10