Question: Whats wrong with this VBA? Sub problem2() Dim x0 As Integer, v0 As Integer, theta As Integer, g As Integer, t As Double, y0 As

Whats wrong with this VBA?

Sub problem2() Dim x0 As Integer, v0 As Integer, theta As Integer, g As Integer, t As Double, y0 As Integer Dim x As Double, y As Double Sheets("Sheet2").Select x0 = Range("F2").Value y0 = Range("F3").Value v0 = Range("F4").Value theta = Range("F5").Value g = -9.81 x = x0 + v0 * Cos(theta * (3.14159 / 180)) * t

y = y0 + v0 * Sin(theta * (3.14159 / 180)) * t + 0.5 * g * t ^ 2 Cells(2, 1) = 0 Cells(2, 2) = x Cells(2, 3) = y

Do While (y > 0) y = y0 + v0 * Sin(theta * (3.14159 / 180)) * t + (0.5 * g * t ^ 2) t = t + 0.1 ThisWorkbook.Worksheets("Sheet2").Range("A") = t ThisWorkbook.Worksheets("Sheet2").Range("C") = y

If y > 0 Then x = x0 + v0 * Cos(theta * (3.14159 / 180)) * t ThisWorkbook.Worksheets("Sheet2").Range("B") = x

End If

Loop

End Sub

Step by Step Solution

There are 3 Steps involved in it

1 Expert Approved Answer

Step: 1 Unlock blur-text-image

Question Has Been Solved by an Expert!

Get step-by-step solutions from verified subject matter experts

Step: 2 Unlock

Step: 3 Unlock

Students Have Also Explored These Related Databases Questions!

Hi I really need the VBA code for this! the flowchart is below with the background info. is the following code that I wrote correct? Sub PWW() Dim P As Integer Dim H As Integer Dim RP As String Dim...

I am told to write a code for gaussian elimination in Excel VBA using a data matrix from an excel worksheet. I was given most of the code for it in class and am expected to write the elimination and...

7 . Left ( ) is a string function in VBA. Option Explicit Dim answer As Integer, subb As Integer Dim Num 1 As Integer, Num 2 As Integer Private Sub AddValue ( ) Num 1 = 2 2 Num 2 = 1 1 Range ( " B 2...

Add Excel VBA code to create three new columns to the existing code listed below. Add Standard deviation for X army in Column, add Standard deviation for Y army in Column K, add Number of runs in...

Gauss Seidel VBA 'Daniel Schmitt Option Base 1 Option Explicit Sub GaussSeidel() Dim A As Variant, b As Variant, x As Variant, MyRange As Variant Dim i As Integer, j As Integer, N As Integer, k As...

Solve Gauss Jordan VBA 'Daniel Schmitt Option Explicit Option Base 1 Sub gauss_jordan() Dim A As Variant, b As Variant, MyRange As Variant Dim AugMatrix() As Variant, x() As Double, f As Double Dim i...

1. (TCO 1) Which of the following symbols is used to place documentation in a program and forces Visual Basic to ignore the line? (Points : 5) // /* ' Question 2. 2. (TCO 2) Which of the following is...

This VBA code only brings up 1 row of results in the "Batch Output" sheet. How do I change this code to output all of the rest of the data? Sub RunBatch ( ) ' Declarations Dim P As Integer Dim H As...

Need help debugging this VBA code. When I run the code it gives me a "subscript is out of range" message and I do not know what it is. Option Base 1 Option Explicit Sub GaussElimination() Dim A As...

I want to create a vba code that bubble sorts sorts a 2d excell spreadsheet consisting of a 20 row by 10 column array. I have attached a image of my code for a 1D array bubble sort. I just have...

All else equal, which firm would face a greater level of financial distress, a software-development firm or a hotel chain? Why would financial distress costs affect the firms so differently?

The Astro Company entered into the following transactions: (A) On January 1, 2020, purchased a franchise with unlimited life, for an initial franchise fee of $250,000. Of this amount, $70,000 was...

Your supervisor at CIBC asks you to calculate the current market value of a new security the bank wants to issue today. The security consists of three coupon payments, the first paid at one year from...

A company is preparing completing their Cash Budget. The following data has been prepared for cash receipts and payments. January February March Cash receipts $1,061,200 $1,182,400 $1,091,700 Cash...