A quick word on blocking ads

It looks like you are using an ad blocker. That's okay. Who doesn't? But without advertising revenue, we can't keep making this site awesome. Click the link below for instructions on disabling adblock.

How to disable ad-blocker for Newschoolers

  • Home
  • News
    • Latest
    • Top Rated
    • Features
    • Podcasts
    • Tags
    • Interviews
    • Event Coverage
    • Opinions
    • Industry News
    • Gear
  • Forums
    • Categories
    • Ski Gabber
    • Non-Ski Gabber
    • Site Discussion
    • Media & Arts
    • Gear
    • Lady Gabber
    • Content Creators
    • AT & Backcountry
    • Regionals
  • Gear
    • Gear Guide 2024-25
    • Gear Guide 2023-24
    • The Roofbox Reviews
    • Editors' Picks
    • Gear Talk
  • Buy/Sell
    • Map View
  • Photos
    • Latest
    • Top Rated
  • Videos
    • Latest
    • Top Rated
    • Ladies
  • Store
  • More
    • Terrain Parks Guide
    • Contests
    • NS Giveaway
    • Top Rated Members
  • Search
  • Login
  • Login

Login to Newschoolers

Register Lost password?

Search Newschoolers

Preview

LOADING...
  • Forums
  • Non-Ski Gabber
  • Homework Help Excel VBA +K for help
  • Reply

Replying to Homework Help Excel VBA +K for help

slevin_kelevra:
I am having trouble with storing and creating records.  Here is the problem. Thanks for any help.


Code a Function that calculates the Area of a Circle (5 points)
ii. Code a Function that Calculates the Perimeter of a Circle (5 points)
iii. Code a Procedure that uses the two above functions to calculate and store: Radii, Areas, and Perimeters of All Circles of R=0 to 1,000 units in a Record (10 points)
iv. The Procedure should also Calculate the Averages of the 1,001 Radii, Areas, and Perimeters, and Compare them to the Radius, Area and Perimeter of the Middle Circle (a circle of 500 units radius). Are they Equal? (10 points)

This is what I have so far but i cant get it to work:
Option Explicit
Type Circles
    r As Double
    a As Single
    p As Single
End Type
Sub problem1()
'code a function that calculates the area of a circle
'a=area
'r=radius

r = InputBox("the radius is  ")


For r = 0 To 1000

a = 3.14 * r ^ 2
'display area
MsgBox "The Area is   " & a

'code a function that calculates the perimeter
'p=perimeter
p = 2 * r * 3.14
Next r

Dim Circles(1001) As problem1
Circles(1).r = 0
Circles(1).p = 0
Circles(1).a = 0
MsgBox "the area is  " & Circles(1).a & "The Perimeter is  " & Circles(1).p

End Sub


Thanks and +k for any help.

Click to expand post

Follow Us

Newsletter

Subscribe to our newsletter and stay up-to-date with the latest news from Newschoolers and our partners

Subscribe
Register Contact Advertise Privacy Policy Terms of Use
Newschoolers has affiliate partnerships so we may receive compensation for some links to products and services.
© 2025 NEWSCHOOLERS, INC.
NEWSCHOOLERS is a registered trademark of NEWSCHOOLERS, INC.
  • Bike
  • Fantasy Surfer
  • Newschoolers
  • Powder
  • Ridemonkey
  • Snowboarder
  • Surfer
  • TransWorld Skateboarding