! This code prints the odd numbers from 1 to 20 and the number of odd numbers. Private Sub Command1_Click() Dim k, c As Integer k = 1 1-.. 2- 3-. 4-. .... 5-... 6-.. 7-.... End Sub 1-2 If (k <20) Then 2-Print k 3- k=k O +24-c-c + 1 5-Go To 2 6-End If 7- Print c 1-2 If (k <20) Then 2-Print k 3-k=k +2 4-Go To 2 5-c-c + 1 6-End If 7- Print c 1-2 If (k <20) Then 2-Print k 3-k=k +2 4-c=c+ 1 5-Go To 2 int c 7- End If 1- If (k <20) Then 2-2 Print k 3-k=k +2 4-c-c + 1 5-Go To 2 6-End If 7- Print c 1-2 If (k <20) Then 2-Print c 3- k-k +2 4-c-c + 1 5-Go To 2 6-End If 7- Print k

Np Ms Office 365/Excel 2016 I Ntermed
1st Edition
ISBN:9781337508841
Author:Carey
Publisher:Carey
Chapter3: Performing Calculations With Formulas And Functions
Section: Chapter Questions
Problem 4.13CP
icon
Related questions
Question
This code prints the odd
numbers from 1 to 20 and the
number of odd numbers.
Private Sub Command1_Click()
Dim k, c As Integer
k=1
1-..
2-
3-.
4-.
5-.
6-..
7-...
End Sub
1-2 If (k <20) Then 2-Print k 3-k=k
O +24-c-c + 1 5-Go To 2 6-End If 7-
Print c
1-2 If (k <20) Then 2-Print k 3-k=k
+2 4-Go To 2 5-c-c + 1 6-End If 7-
Print c
1-2 If (k <20) Then 2-Print k 3-k=k
O +24-c-c + 1 5-Go To 2 6-Print c 7-
End If
1- If (k <20) Then 2-2 Print k 3-k=k
+ 24-c-c + 1 5-GoTo 2 6-End If 7-
Print c
1-2 If (k <20) Then 2-Print c 3- k-k
O +24-c=c+ 1 5-Go To 2 6-End If 7-
Print k
Transcribed Image Text:This code prints the odd numbers from 1 to 20 and the number of odd numbers. Private Sub Command1_Click() Dim k, c As Integer k=1 1-.. 2- 3-. 4-. 5-. 6-.. 7-... End Sub 1-2 If (k <20) Then 2-Print k 3-k=k O +24-c-c + 1 5-Go To 2 6-End If 7- Print c 1-2 If (k <20) Then 2-Print k 3-k=k +2 4-Go To 2 5-c-c + 1 6-End If 7- Print c 1-2 If (k <20) Then 2-Print k 3-k=k O +24-c-c + 1 5-Go To 2 6-Print c 7- End If 1- If (k <20) Then 2-2 Print k 3-k=k + 24-c-c + 1 5-GoTo 2 6-End If 7- Print c 1-2 If (k <20) Then 2-Print c 3- k-k O +24-c=c+ 1 5-Go To 2 6-End If 7- Print k
Expert Solution
steps

Step by step

Solved in 2 steps

Blurred answer
Knowledge Booster
Linux
Learn more about
Need a deep-dive on the concept behind this application? Look no further. Learn more about this topic, computer-science and related others by exploring similar questions and additional content below.
Similar questions
  • SEE MORE QUESTIONS
Recommended textbooks for you
Np Ms Office 365/Excel 2016 I Ntermed
Np Ms Office 365/Excel 2016 I Ntermed
Computer Science
ISBN:
9781337508841
Author:
Carey
Publisher:
Cengage
EBK JAVA PROGRAMMING
EBK JAVA PROGRAMMING
Computer Science
ISBN:
9781337671385
Author:
FARRELL
Publisher:
CENGAGE LEARNING - CONSIGNMENT