Q2/Rewrite the Programmed by using "spc" Private Sub Command1_Click() Font.Name = "times new roman": Font.Bold - True Font.Size = 12 T = 273 + Val(Combol) DI = Val(Combo2) k=1.38E-23 Eo 280000# NA = 6.02E+23 D = D1* (Exp((-Eo/NA)/(k * T))) Print; Tab(45); "Temperature T="; T; "(K)" Print; Tab(45); "Constant D1 ="; D1; "(m^2/sec)" Print; Tab(45); "Constant k="; k; "J/K" Print; Tab(45); "Activation energy Eo="; Eo; "(J/mol)" Print; Tab(45); "Avogadro number NA="; NA Print; Tab(45); "Diffusion coefficient D="; D; "(m^2/sec)" Print End Sub

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
Q2/Rewrite the Programmed by using "spc"
Private Sub
Command1_Click()
Font.Name = "times new roman": Font.Bold - True
Font.Size = 12
T=273 + Val(Combo1)
DI = Val(Combo2)
k=1.38E-23
Eo 280000#
NA 6.02E+23
D=D1* (Exp((-Eo/NA)/(k * T)))
Print; Tab(45); "Temperature T="; T; "(K)"
Print; Tab(45); "Constant D1 ="; D1; "(m^2/sec)"
Print; Tab(45); "Constant k="; k; "J/K"
Print; Tab(45); "Activation energy Eo="; Eo; "(J/mol)"
Print; Tab(45); "Avogadro number NA-"; NA
Print; Tab(45); "Diffusion coefficient D="; D; "(m^2/sec)"
Print
End Sub
Transcribed Image Text:Q2/Rewrite the Programmed by using "spc" Private Sub Command1_Click() Font.Name = "times new roman": Font.Bold - True Font.Size = 12 T=273 + Val(Combo1) DI = Val(Combo2) k=1.38E-23 Eo 280000# NA 6.02E+23 D=D1* (Exp((-Eo/NA)/(k * T))) Print; Tab(45); "Temperature T="; T; "(K)" Print; Tab(45); "Constant D1 ="; D1; "(m^2/sec)" Print; Tab(45); "Constant k="; k; "J/K" Print; Tab(45); "Activation energy Eo="; Eo; "(J/mol)" Print; Tab(45); "Avogadro number NA-"; NA Print; Tab(45); "Diffusion coefficient D="; D; "(m^2/sec)" Print End Sub
Expert Solution
steps

Step by step

Solved in 2 steps with 1 images

Blurred answer
Knowledge Booster
Image Element
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
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