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

New Perspectives on HTML5, CSS3, and JavaScript
6th Edition
ISBN:9781305503922
Author:Patrick M. Carey
Publisher:Patrick M. Carey
Chapter9: Getting Started With Javascript: Creating A Countdown Clock
Section: Chapter Questions
Problem 11RA
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
New Perspectives on HTML5, CSS3, and JavaScript
New Perspectives on HTML5, CSS3, and JavaScript
Computer Science
ISBN:
9781305503922
Author:
Patrick M. Carey
Publisher:
Cengage Learning
Programming Logic & Design Comprehensive
Programming Logic & Design Comprehensive
Computer Science
ISBN:
9781337669405
Author:
FARRELL
Publisher:
Cengage
Np Ms Office 365/Excel 2016 I Ntermed
Np Ms Office 365/Excel 2016 I Ntermed
Computer Science
ISBN:
9781337508841
Author:
Carey
Publisher:
Cengage