Guia De Programacion

Guía de Programación
1.-COMPLETE
¿Qué es visual Basic? Es un lenguaje de programación que ha sido empaquetado como un programa
de aplicación.
¿Qué es un objeto? Controles, formularios y objetos de base de datos.
¿Que es una propiedad? Son miembros de objetos de visual Basic.
¿Qué es un método? Sonprocedimientos definitivos de visual Basic para realizar operaciones.
¿Qué es un evento? Es un mensaje que envía un objeto anunciando ha sido sucedido algo.
2.-
Private Sub Command1_Click()
Dim base, are, al As Integer
base = txtbase.Text
al = txtal.Text
are = Val(base * al) / 2
txtare.Text = are
End Sub
3.-
Private Sub Command1_Click()
Dim num As Integer
Dim dia As String
num =txtnum.Text
If 1 = lunes Then
txtdia.Text = dia
ElseIf 2 = martes Then
txtdia.Text = dia
ElseIf 3 = miercoles Then
txtdia.Text = dia
ElseIf 4 = jueves Then
txtdia.Text = dia
ElseIf 5 = viernes Then
txtdia.Text = dia
ElseIf 6 = sabado Then
txtdia.Text = dia
ElseIf 7 = domingo Then
txtdia.Text = dia
End If
End Sub
4.-
Private Sub Command1_Click()
Dim num As Integer
Dim men As String
Ifnum > 0 Then
men = "positivo"
txtmen.Text = men
ElseIf num < 0 Then
men = "negativo"
txtmen.Text = men
ElseIf num = 0 Then
men = "nulo"
txtmen.Text = men
End If
End Sub
5.-
Private Sub Command1_Click()
Dim n1, n2, n3, may As Integer
n1 = txtn1.Text
n2 = txtn2.Text
n3 = txtn3.Text
If n1 > n2 And n1 > n3 Then
may = n1
ElseIf n2 > n1 And n2 > n3 Then
may = n2
ElseIf n3 > n1 And n3> n2 Then
may = n3
End If
txtmay.Text = may
End Sub
6.-
Private Sub Command1_Click()
Dim num, i As Integer
For i = 1 To 30 Step 5
num = num + 5
Combo1.AddItem num
Next i
End Sub

7.-
Private Sub Command1_Click()
Dim i As Integer
Num=txtnum.text
While i = 0
Num=i*num
wend
8.-
Private Sub cmdcalcular_Click()
Dim num, i, ta As Integer
num = txtnum.Text
For i = 4 To 1 Stepnum
ta = num * i
Next i
Combo1.AddItem ta
End Sub
9.-
Private Sub cmdcalcular_Click()
Dim num, mul, i As Integer
num = txtnum.Text
For i = 0 To num Step 12
mul = i + num
Next i
Combo1.AddItem mul
End Sub
Explorador de formulas
Barra de menus y barra de herramientas
Ventana de codificacion
10.-
Ventana de propiu
Cuadro de herramientas
Diseño de proyecto

11 ¿Cómo SE AÑADENCONTROLES DE FORMULARIOS?
Para añadir controles a un formulario tenemos dos métodos:
1. Haga clic sobre el ______en el cuadro de herramientas
2. Ubique el puntero del mouse (una cruz) sobre el formulario en la esquina superior izquierda donde desea colocar el control
3. Realice un _______ sosteniendo mientras arrastra el puntero a la esquina superior derecha donde colocara elcontrol
4. Suelte el botón del mouse
12 COMPLETE LOS CONTROLES
CONTROL BOTON COMMAND BOTTON
CONTROL CUADRO DE TEXTO
CONTROL LABEL


13.-
Private Sub Command1_Click()
Dim i, ex, r, po As Integer
i = 1
r = 1
While i = 300 Then
des = com * 0.15
pag = com - des
ElseIf com < 300 Then
des = 0
pag = com
End If
txtdes.Text = des
txtpag.Text = pag
End Sub
40.-
Private Subcmdcalcular_Click()
Dim b1, b2, b3 As Integer
Dim men As String
b1 = txtb1.Text
b2 = txtb2.Text
b3 = txtb3.Text
a = Val(b1) + Val(b2) + Val(b3)
If a >= 40 Then
men = "aprobado"
ElseIf a < 40 Then
men = "desaprobado"
End If
txtmen.Text = men
End Sub
41.-
Private Sub cmdcalcular_Click()
Dim ht, vh, suel As Integer
Dim nom As String
ht = txtht.Text
vh = txtvh.Text
suel = ht * vh
If suel>= 500 Then
suel = suel
nom = "fernando"
ElseIf suel < 500 Then
suel = 0
nom = "fernando"
End If
txtsuel.Text = suel
txtnom.Text = nom
End Sub
42.-
Private Sub cmdcalcular_Click()
Dim may, num1, num2, num3, num4 As Integer
num1 = txtnum1.Text
num2 = txtnum2.Text
num3 = txtnum3.Text
num4 = txtnum4.Text
If num1 > num2 Mod num1 > num3 Then
may = num1
ElseIf num1 > num4 Then
may...