vate Sub Command1_Click () T, S As Single a i, m As Integer Val (Text1. Text) Val (Text2.Text) 1: T - 0 Until ik= m T+ (S i + i)/ 3 * i -i + 1 p t3. Text -T 1 Sub O Form1 Input m: 4 Input S: 2 T = RUN Design a form to calculate the area of the circle with two text box labels to input and output all the required values. In addition, use button with title Go.

Database System Concepts
7th Edition
ISBN:9780078022159
Author:Abraham Silberschatz Professor, Henry F. Korth, S. Sudarshan
Publisher:Abraham Silberschatz Professor, Henry F. Korth, S. Sudarshan
Chapter1: Introduction
Section: Chapter Questions
Problem 1PE
icon
Related questions
Question
Choose the correct calculated value of T after executing this program
6
Private Sub Command1_Click ()
Dim T, S As Single
Dim i, m As Integer
m - Val (Text1.Text)
S = Val (Text2.Text)
i = 1: T = 0
Do Until k= m
T = T + (S i + i) / 3 * i
i - i + 1
Loop
Text3.Text = T
O Form1
Input m:
4
Input S:
T =
RUN
End Sub
*
Design a form to calculate the area of the circle with two text boxes and two
labels to input and output all the required values. In addition, use command
button with title Go.
Private Sub Comnnd1_elick()
Dim R As Single, A As Single
R=Val(Text1.Text)
3.2222
A-3.141593 • R:
Text2. Text Str(A)
End Sub
4 8888
ل لرجوع إلى مكالمتك على تطبيق Me et، يجب فتح
Gmail
Design a form to calculate the area of the circle with two text boxes and two
labels to input and output all the required values. In addition, use command
button with title Go.
Private Sub Commndi click()
Dim R As Single, A As Single
True
R-Val(Texti.Text)
A-3.141593 R
Text2. Text- Su(A)
False
End Sub
True
False
II
Transcribed Image Text:Choose the correct calculated value of T after executing this program 6 Private Sub Command1_Click () Dim T, S As Single Dim i, m As Integer m - Val (Text1.Text) S = Val (Text2.Text) i = 1: T = 0 Do Until k= m T = T + (S i + i) / 3 * i i - i + 1 Loop Text3.Text = T O Form1 Input m: 4 Input S: T = RUN End Sub * Design a form to calculate the area of the circle with two text boxes and two labels to input and output all the required values. In addition, use command button with title Go. Private Sub Comnnd1_elick() Dim R As Single, A As Single R=Val(Text1.Text) 3.2222 A-3.141593 • R: Text2. Text Str(A) End Sub 4 8888 ل لرجوع إلى مكالمتك على تطبيق Me et، يجب فتح Gmail Design a form to calculate the area of the circle with two text boxes and two labels to input and output all the required values. In addition, use command button with title Go. Private Sub Commndi click() Dim R As Single, A As Single True R-Val(Texti.Text) A-3.141593 R Text2. Text- Su(A) False End Sub True False II
Expert Solution
steps

Step by step

Solved in 2 steps

Blurred answer
Knowledge Booster
Form and its Elements
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
Recommended textbooks for you
Database System Concepts
Database System Concepts
Computer Science
ISBN:
9780078022159
Author:
Abraham Silberschatz Professor, Henry F. Korth, S. Sudarshan
Publisher:
McGraw-Hill Education
Starting Out with Python (4th Edition)
Starting Out with Python (4th Edition)
Computer Science
ISBN:
9780134444321
Author:
Tony Gaddis
Publisher:
PEARSON
Digital Fundamentals (11th Edition)
Digital Fundamentals (11th Edition)
Computer Science
ISBN:
9780132737968
Author:
Thomas L. Floyd
Publisher:
PEARSON
C How to Program (8th Edition)
C How to Program (8th Edition)
Computer Science
ISBN:
9780133976892
Author:
Paul J. Deitel, Harvey Deitel
Publisher:
PEARSON
Database Systems: Design, Implementation, & Manag…
Database Systems: Design, Implementation, & Manag…
Computer Science
ISBN:
9781337627900
Author:
Carlos Coronel, Steven Morris
Publisher:
Cengage Learning
Programmable Logic Controllers
Programmable Logic Controllers
Computer Science
ISBN:
9780073373843
Author:
Frank D. Petruzella
Publisher:
McGraw-Hill Education