tutorial de lenguaje básico

VB es la abreviatura de Visual Basic

Basic es un lenguaje informático y la abreviatura de código de instrucción universal para principiantes. Se puede decir que es un lenguaje diseñado para principiantes.

Por supuesto, solo aprendí el código cuando estaba aprendiendo VB. Aunque el código está en inglés, sigue siendo relativamente simple, después de todo, este lenguaje está diseñado para principiantes.

El siguiente es el. Código de programa de una calculadora No explicaré en detalle las operaciones de suma, resta, multiplicación, división, división de enteros y resto.

¿Opción?Explícita

¿Privada?Sub? Command1_Click()

Texto2 .Texto?=?Texto1.Text

Texto3.Text?=?"+"

Texto1.Texto?=?""

Text1.SetFocus

Fin?Sub

Privado?Sub?Command2_Click()

Texto2.Text?=?Text1.Text

Text3.Text? =?"-"

Text1.Text?=?""

Text1.SetFocus

¿Fin? Sub

¿Privado?Sub ?Command3_Click()

Texto2.Text?=?Text1.Text

Texto3.Text?=?"*"

Text1.Text?=?" "

Text1.SetFocus

Fin?Sub

Privado?Sub?Command4_Click()

Text2.Text?=?Text1. Text'El texto en el texto 2 es igual al texto en el texto 1

Text3.Text?=?"/"?'El contenido del texto 3 es cambiado a "/"

Text1.Text ?=?""'Borrar texto 1

Text1.SetFocus?'El texto 1 obtiene el foco

End?Sub

Private?Sub?Command5_Click()

Dim?a?As?Double'Definir a como un tipo de doble precisión

Seleccionar?Case?Text3.Text ?'Juzgar el contenido del texto 3

Caso?"+"?'Si es "+"

a?=?Val(Text2.Text)?+?Val( Text1.Text)' luego el texto 1 se agrega al texto 2 y se asigna su valor Asignar a al texto 1

Text1.Text?=?a?'Asignar a al texto 1

Case?"-"?'Si es "-"

a?=?Val(Text2.Text)?-?Val(Text1.Text)' Luego reste el texto 2 del texto 1, y asignar su valor a

Text1.Text?=?a?' ¿Se asignará a al texto 1

Case?"*"?'Si es "*"

a?=?Val(Text2.Text)?*?Val(Text1.Text) 'Luego el texto 1 se multiplica por el texto 2 y su valor se asigna a

Texto1. .Text?=?a?'

Caso?"/"?'Si es "/"

a?=?Val(Text2.Text)?/?Val( Text1.Text)' Luego el texto 1 se divide por el texto 2 y su valor se asigna a un

Text1.Text? =?a?'

Case?"\"? 'Si es "\"

a?=?Val(Text2.Text)?\?Val(Text1.Text) 'Entonces el texto 1 divide el texto 2 y su valor se asigna a a

Texto1.Texto?=?a?'

Caso?"Mod"

?'Si es "Mod"

a?=?Val(Text2.Text)?Mod?Val(Text1.Text)?' Luego divida el texto 1 por el texto 2 para encontrar el resto y asígnelo. su valor a un

Text1.Text?=?a'

End?Select'end juicio

End?Sub

Privado ?Sub?Command6_Click ()

Texto2.Texto?=?Texto1.Texto

Texto3.Texto?=?"\"

Texto1.Texto?= ?""

Text1.SetFocus

Fin?Sub

Privado?Sub?Command7_Click()

Texto2.Text?=? Texto1.Texto

Texto3.Texto?=?"Mod"

Texto1.Texto?=?""

Texto1.SetFocus

End?Sub

Private?Sub?CXDM_Click()

Form2.Show

End?Sub

Si desea obtener Comencé, te sugiero que leas ?Hong En Kaitianpidi 5: Introducción a la programación, que contiene VB (nivel de entrada), luego puedes buscar otros tutoriales de Kaitianpidi eMule, y eMule es algo bueno. Encontré muchos tutoriales e información. , y materiales en él...