VBA PROGRAMMING
VBA PROGRAMMING                    .pptx
Private Sub CommandButton1_Click()
If TextBox1.Text = "0" Then
TextBox1.Text = "1"
Else
TextBox1.Text = TextBox1.Text + "1"
End If
End Sub
Private Sub CommandButton12_Click()
TextBox1.Text = ""
End Sub
Private Sub COmmandButtonAdd_Click()
firstnum = TextBox1.Text
TextBox1.Text = ""
operators = "+"
End Sub
Private Sub COmmandButtonMinus_Click()
firstnum = TextBox1.Text
TextBox1.Text = ""
operators = "-"
End Sub
Private Sub
COmmandButtonMultiple_Click()
firstnum = TextBox1.Text
TextBox1.Text = ""
operators = "*"
End Sub
Private Sub COmmandButtonDivide_Click()
firstnum = TextBox1.Text
TextBox1.Text = ""
operators = "/"
End Sub
Private Sub COmmandButtonPercentage_Click()
firstnum = TextBox1.Text
TextBox1.Text = ""
operators = "%"
End Sub
Private Sub COmmandButtonEqual_Click()
secondnum = TextBox1.Text
If operators = "+" Then
answer = firstnum + secondnum
TextBox1.Text = answer
ElseIf Operators = "-" Then
answer = firstnum - secondnum
TextBox1.Text = answer
ElseIf Operators = "*" Then
answer = firstnum * secondnum
TextBox1.Text = answer
ElseIf Operators = "/" Then
answer = firstnum / secondnum
TextBox1.Text = answer
ElseIf Operators = "%" Then
answer = firstnum Mod secondnum
TextBox1.Text = answer
End If
End Sub
Private sub UserForm_Click()
userform1.show
End Sub
Option Explicit
Dim firstnum as double
Dim secondnum as double
Dim answer as double
Dim operators as string

More Related Content

DOC
DOC
PDF
19.Advanced Visual Basic Lab.pdf
PDF
19.Advanced Visual Basic Lab.pdf
PDF
Rakesh Bijawat , BCA Third Year
PDF
Rakesh Bijawat , BCA Third Year
PDF
Pooja Sharma , BCA Third Year
PDF
Pooja Sharma , BCA Third Year
19.Advanced Visual Basic Lab.pdf
19.Advanced Visual Basic Lab.pdf
Rakesh Bijawat , BCA Third Year
Rakesh Bijawat , BCA Third Year
Pooja Sharma , BCA Third Year
Pooja Sharma , BCA Third Year

Similar to VBA PROGRAMMING .pptx (20)

DOCX
DOCX
PDF
Kajal Gaharwal , BCA Third Year
PDF
Kajal Gaharwal , BCA Third Year
PDF
Harendra Singh,BCA Third Year
PDF
Harendra Singh,BCA Third Year
DOCX
Lenguaje de programación
DOCX
Lenguaje de programación
PDF
VB net lab.pdf
PDF
VB net lab.pdf
PDF
Membuat aplikasi penjualan buku sederhana
PDF
Membuat aplikasi penjualan buku sederhana
PDF
Bhanu Pratap Singh Shekhawat, BCA Third Year
PDF
Akshay Sharma , BCA Third Year
PDF
Bhanu Pratap Singh Shekhawat, BCA Third Year
PDF
Akshay Sharma , BCA Third Year
PDF
Ravi Prakash Yadav , BCA Third Year
PDF
Ravi Prakash Yadav , BCA Third Year
DOCX
DOCX
Kajal Gaharwal , BCA Third Year
Kajal Gaharwal , BCA Third Year
Harendra Singh,BCA Third Year
Harendra Singh,BCA Third Year
Lenguaje de programación
Lenguaje de programación
VB net lab.pdf
VB net lab.pdf
Membuat aplikasi penjualan buku sederhana
Membuat aplikasi penjualan buku sederhana
Bhanu Pratap Singh Shekhawat, BCA Third Year
Akshay Sharma , BCA Third Year
Bhanu Pratap Singh Shekhawat, BCA Third Year
Akshay Sharma , BCA Third Year
Ravi Prakash Yadav , BCA Third Year
Ravi Prakash Yadav , BCA Third Year
Ad

More from AgripinoVerderaJr2 (20)

PPTX
electronic LONG QUIZ AND answer key.pptx
PPTX
2nd sem LONG QUIZ MIL LESSON 3 AND 4.pptx
PPTX
2nd Quarter MIL LESSON 1 LONG QUIZ #1.pptx
PPTX
calculate for Lesson 4 Empower ment.pptx
PPTX
gamedevelopment-devbatch-slideshare-160523134658 (1).pptx
PPTX
mediaandinformationliteracycommunication-160628234720.pptx
PPTX
MIL PART5mnbkn.,mn,nkjn,mbvjvkjkjblklk.pptx
PPTX
INVENTING THE AVANT GARDEeeeeeeeeee.pptx
PPTX
Graphic Designer VS Graphic FOR COLLEGE ONLY Artist.pptx
PPTX
ELEMENTS-OF-DES-WPS-Office.ppt for collx
PPTX
FFP CONTINUES for Senior high school sub.
PPTX
Sterio operationSTEREO-OPERATION-IN-THE-STUDIO.ppt
PPTX
ANIMATION 2_1.pptx
PPTX
film and video production.pptx
PPTX
LESSON 1 3D.pptx
PPTX
htmltag-140317152334-phpapp01.pptx
PPTX
DSP 3rd Year.pptx
PPTX
BCD3RD YEAR.pptx
PPTX
mediaandinformationliteracycommunication-160628234720.pptx
PPTX
Server.pptx
electronic LONG QUIZ AND answer key.pptx
2nd sem LONG QUIZ MIL LESSON 3 AND 4.pptx
2nd Quarter MIL LESSON 1 LONG QUIZ #1.pptx
calculate for Lesson 4 Empower ment.pptx
gamedevelopment-devbatch-slideshare-160523134658 (1).pptx
mediaandinformationliteracycommunication-160628234720.pptx
MIL PART5mnbkn.,mn,nkjn,mbvjvkjkjblklk.pptx
INVENTING THE AVANT GARDEeeeeeeeeee.pptx
Graphic Designer VS Graphic FOR COLLEGE ONLY Artist.pptx
ELEMENTS-OF-DES-WPS-Office.ppt for collx
FFP CONTINUES for Senior high school sub.
Sterio operationSTEREO-OPERATION-IN-THE-STUDIO.ppt
ANIMATION 2_1.pptx
film and video production.pptx
LESSON 1 3D.pptx
htmltag-140317152334-phpapp01.pptx
DSP 3rd Year.pptx
BCD3RD YEAR.pptx
mediaandinformationliteracycommunication-160628234720.pptx
Server.pptx
Ad

Recently uploaded (20)

PDF
AI Guide for Business Growth - Arna Softech
PPTX
AMADEUS TRAVEL AGENT SOFTWARE | AMADEUS TICKETING SYSTEM
PDF
iTop VPN Crack Latest Version Full Key 2025
PPTX
Advanced SystemCare Ultimate Crack + Portable (2025)
PDF
Top 10 Software Development Trends to Watch in 2025 🚀.pdf
PPTX
Cybersecurity: Protecting the Digital World
DOCX
How to Use SharePoint as an ISO-Compliant Document Management System
PPTX
CNN LeNet5 Architecture: Neural Networks
PDF
Website Design Services for Small Businesses.pdf
PPTX
Tech Workshop Escape Room Tech Workshop
PPTX
Computer Software - Technology and Livelihood Education
PPTX
Trending Python Topics for Data Visualization in 2025
PPTX
Oracle Fusion HCM Cloud Demo for Beginners
PDF
DNT Brochure 2025 – ISV Solutions @ D365
PDF
AI/ML Infra Meetup | LLM Agents and Implementation Challenges
PDF
How to Make Money in the Metaverse_ Top Strategies for Beginners.pdf
PDF
Wondershare Recoverit Full Crack New Version (Latest 2025)
PDF
The Dynamic Duo Transforming Financial Accounting Systems Through Modern Expe...
PDF
How AI/LLM recommend to you ? GDG meetup 16 Aug by Fariman Guliev
PPTX
WiFi Honeypot Detecscfddssdffsedfseztor.pptx
AI Guide for Business Growth - Arna Softech
AMADEUS TRAVEL AGENT SOFTWARE | AMADEUS TICKETING SYSTEM
iTop VPN Crack Latest Version Full Key 2025
Advanced SystemCare Ultimate Crack + Portable (2025)
Top 10 Software Development Trends to Watch in 2025 🚀.pdf
Cybersecurity: Protecting the Digital World
How to Use SharePoint as an ISO-Compliant Document Management System
CNN LeNet5 Architecture: Neural Networks
Website Design Services for Small Businesses.pdf
Tech Workshop Escape Room Tech Workshop
Computer Software - Technology and Livelihood Education
Trending Python Topics for Data Visualization in 2025
Oracle Fusion HCM Cloud Demo for Beginners
DNT Brochure 2025 – ISV Solutions @ D365
AI/ML Infra Meetup | LLM Agents and Implementation Challenges
How to Make Money in the Metaverse_ Top Strategies for Beginners.pdf
Wondershare Recoverit Full Crack New Version (Latest 2025)
The Dynamic Duo Transforming Financial Accounting Systems Through Modern Expe...
How AI/LLM recommend to you ? GDG meetup 16 Aug by Fariman Guliev
WiFi Honeypot Detecscfddssdffsedfseztor.pptx

VBA PROGRAMMING .pptx