Question 1 1: Function timesOldHellenic(lngNumber As Long) As Long 2: Dim lngCou

Question

Question 1

1: Function timesOldHellenic(lngNumber As Long) As Long

2:     Dim lngCounter As Long

3:     lngCounter = 0

4:     timesOldHellenic = 1

5:     Do Until lngCounter = lngNumber

6:         lngCounter = lngCounter + 1

7:         timesOldHellenic = timesOldHellenic * lngCounter

8:     Loop

9: End Function

What is the return value of the function timesOldHellenic if it's called with 3 as the argument?

Answer

3

1

Nothing, the code will never exit the loop.

6

2 points   

Question 2

The first line of a function is given below. What is the return type of the function?

Function randomInteger(lngSeed As Double) As Variant

Answer

Double

Long

Variant

Integer

2 points   

Question 4

1: Sub ARayOfSun()

2:    Dim strSunshine(1 To 4) As String

3:    Dim strBeams(1 To 3) As Long

4:    Dim Sunshine As String

5:    Const strRAINDROP As String = "Trouble"

6:

7:    strBeams(1) = 5

8:    Sunshine = "Glorious Light"

9:    strSunshine(3) = Sunshine

10:   strRAINDROP = "Oh no

Explanation / Answer

1

Double

A message box with the text "Glorious Light" is displayed.

.Lines 7, 9, 11, 12 refer to arrays, while line 13 refers to a function.

Related Questions

Navigate

• Browse (All)
• Browse Q
• Subjects

Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.