SlideShare a Scribd company logo
INSTITUTO  TECNOLOGICO PUBLICO - ACORA SUPERIOR COMPUTACION E INFORMATICA  (III) VISUAL BASIC 6.0 PINO CONDORI EDSON
 
SOLUCIONES DE CADENAS DE TEXTO INGRESAR “COLORES ” VISUALIZAR SALIR LIST1 CLIK AQUI
Private sub command.clik() Dim color (1 to 8) as etring color (1) = “amarillo” color (2) = “verde” color (3) = “azul” color (4) = “naranja” color (5) = “celeste” color (6) = “rojo” color (7) = “blanco” color (8) = “negro” For i=i to 8 step1 List1.add item color(i) End sub
 

More Related Content

PPT
edson richard
PDF
DOCX
Pdp course contents
PDF
Social Graces
PPTX
Social etiquette Sree
PPTX
Social Graces at Home
PPTX
Social Etiquette
PPTX
Social Etiquettes
edson richard
Pdp course contents
Social Graces
Social etiquette Sree
Social Graces at Home
Social Etiquette
Social Etiquettes

Recently uploaded (20)

PDF
IGGE1 Understanding the Self1234567891011
PDF
RTP_AR_KS1_Tutor's Guide_English [FOR REPRODUCTION].pdf
PDF
Weekly quiz Compilation Jan -July 25.pdf
PDF
Indian roads congress 037 - 2012 Flexible pavement
PDF
Practical Manual AGRO-233 Principles and Practices of Natural Farming
PPTX
202450812 BayCHI UCSC-SV 20250812 v17.pptx
PDF
Empowerment Technology for Senior High School Guide
PPTX
A powerpoint presentation on the Revised K-10 Science Shaping Paper
PPTX
Virtual and Augmented Reality in Current Scenario
PDF
CISA (Certified Information Systems Auditor) Domain-Wise Summary.pdf
PDF
AI-driven educational solutions for real-life interventions in the Philippine...
PDF
Vision Prelims GS PYQ Analysis 2011-2022 www.upscpdf.com.pdf
PPTX
CHAPTER IV. MAN AND BIOSPHERE AND ITS TOTALITY.pptx
PDF
My India Quiz Book_20210205121199924.pdf
PDF
1.3 FINAL REVISED K-10 PE and Health CG 2023 Grades 4-10 (1).pdf
PPTX
Computer Architecture Input Output Memory.pptx
PPTX
TNA_Presentation-1-Final(SAVE)) (1).pptx
PDF
احياء السادس العلمي - الفصل الثالث (التكاثر) منهج متميزين/كلية بغداد/موهوبين
PDF
advance database management system book.pdf
PDF
MBA _Common_ 2nd year Syllabus _2021-22_.pdf
IGGE1 Understanding the Self1234567891011
RTP_AR_KS1_Tutor's Guide_English [FOR REPRODUCTION].pdf
Weekly quiz Compilation Jan -July 25.pdf
Indian roads congress 037 - 2012 Flexible pavement
Practical Manual AGRO-233 Principles and Practices of Natural Farming
202450812 BayCHI UCSC-SV 20250812 v17.pptx
Empowerment Technology for Senior High School Guide
A powerpoint presentation on the Revised K-10 Science Shaping Paper
Virtual and Augmented Reality in Current Scenario
CISA (Certified Information Systems Auditor) Domain-Wise Summary.pdf
AI-driven educational solutions for real-life interventions in the Philippine...
Vision Prelims GS PYQ Analysis 2011-2022 www.upscpdf.com.pdf
CHAPTER IV. MAN AND BIOSPHERE AND ITS TOTALITY.pptx
My India Quiz Book_20210205121199924.pdf
1.3 FINAL REVISED K-10 PE and Health CG 2023 Grades 4-10 (1).pdf
Computer Architecture Input Output Memory.pptx
TNA_Presentation-1-Final(SAVE)) (1).pptx
احياء السادس العلمي - الفصل الثالث (التكاثر) منهج متميزين/كلية بغداد/موهوبين
advance database management system book.pdf
MBA _Common_ 2nd year Syllabus _2021-22_.pdf
Ad
Ad

visual basic 6.0

  • 1. INSTITUTO TECNOLOGICO PUBLICO - ACORA SUPERIOR COMPUTACION E INFORMATICA (III) VISUAL BASIC 6.0 PINO CONDORI EDSON
  • 2.  
  • 3. SOLUCIONES DE CADENAS DE TEXTO INGRESAR “COLORES ” VISUALIZAR SALIR LIST1 CLIK AQUI
  • 4. Private sub command.clik() Dim color (1 to 8) as etring color (1) = “amarillo” color (2) = “verde” color (3) = “azul” color (4) = “naranja” color (5) = “celeste” color (6) = “rojo” color (7) = “blanco” color (8) = “negro” For i=i to 8 step1 List1.add item color(i) End sub
  • 5.