que funciones cumple

programas exel

1) Sub Programa10 ()
Dime A As String * 1
A = InputBox ("¿Quieres continuar (S/N)?")
If A = "S" Or A = "s" Then
MsgBox "Pepe"
End IfEnd Sub.
El programa pone una condición que si le muestra a pepe y si no lo muestra nada
 
2) Sub Programa11()
Dim nom As String * 7
nom = InputBox("Escribe tu nombre y apellidos")
MsgBox "Hola " & nom
End SubEl programa pone una condición de escribir el nombre si lo escribe le sale un mensaje “hola”

3)Sub Programa12()
Dim contador As I
 Do While contador <= 5 MsgBox "Pepe" contador = contador + 1 Loop End Sub 
El programa pone la condición de mostrar mensaje con un nombre 5veces en este caso


integer
contador = 1pepe 4)Sub Programa13() Dim pregunta As String * 1 pregunta = "S" Do While pregunta = "S" Or pregunta = "s" MsgBox "PEPE" pregunta = InputBox("¿Quieres continuar?") Loop End Sub El programa pone la condición de mostrar a pepe cuando si muestra a pepe y sigue continuando cuando no muestra nada Sub Programa14() Dim num As Integer, total As Integer total = 0 num = InputBox("Escribe un número") Do While num <> 0
total = total + num
num = InputBox("Escribe un nuevo valor")
Loop
MsgBox "La Suma total es " & total
End Sub
Pone la condición de escribir cual quier numero diferente de cero cuando oprime cero se hace la suma de los números que ingreso




Sub Programa15()
Dim indice As Integer
For indice = 1 To 10 Step 2
MsgBox "El valor del índice es = " & indice
Next
MsgBox "Lo siento se ha acabado. " & _
"El último valor del índice ha sido " & _
indice
End SubEn este programa pone a sacar los índices de hasta el numero que le pongan en este caso hasta once mostrando los impares
Sub Programa16()
Dim num As Integer, i As Integer
Dim nom As String
num = InputBox("¿Cuántas veces quieres que te salude?")
nom = InputBox("¿Cuál es tu nombre?")
For i = 1 To num
Debug.Print "Hola " & nom
Next
End Sub
En este programa le pone la condición de escribir cuantas veces quiere que lo salude y escribir el nombre y no sale nada

Sub Programa18()
Dim A(1 To 3) As Double
Dim i As Integer
For i = 1 To 3
A(i) = InputBox("Introduce un número")
Next
Debug.Print "Los números que hay en la matriz son: "
For i = 1 To 3
Debug.Print "A(" & i & ")= " & A(i)
Next
End Sub
No lo entiendo
Sub Programa21()
Dim A As String * 1
Dim i As Byte
For i = 1 To 100
A = InputBox("¿Quieres continuar?")
If A = "N" Or A = "n" Then
Exit For
End If
Next
MsgBox "Se acabó"
End Sub
Function Raiz4(n As Double) As Double
Raiz4 = Sqr(Sqr(n))
End FunctionEn este programa toca arreglarlo después le dice que si deseas continuar si si continua si no da un mensaje y dice se acabo

Sub Programa26()
Dim sexo As String
sexo = InputBox("Escribe VARÓN o HEMBRA, según tu sexo")
Select Case sexo
Case "VARÓN"
Debug.Print "¿Qué tal, guapo?"
Case "HEMBRA
Debug.Print "¿Qué tal, guapa?"
Case Else
Debug.Print "¿Qué tal, sexo ambiguo?"
End Select
End Sub


Pone la condición de escribir si es varon o embra después lo saluda que tal embra o varon