Programacion Visual Basic

VERSION 5.00
Begin VB.Form Ejercicio1
Caption = "Taller Ciclo While - Ejercicio 1"
ClientHeight = 3030
ClientLeft = 120
ClientTop = 450
ClientWidth= 4560
LinkTopic = "Form1"
ScaleHeight = 3030
ScaleWidth = 4560
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton cmdcalcularCaption = "Calcular"
Height = 375
Left = 1920
TabIndex = 0
Top = 1200
Width = 975
End
EndAttribute VB_Name = "Ejercicio1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdcalcular_Click()
Dimn As Integer, m As String, s As Integer
m = InputBox("digite un numero para calcular la sumatoria hasta dicho numero")
If IsNumeric(m) Then
If m > 0 Then
While m > nn = n + 1
s = s + n
Wend
Else
While m < n
n = n - 1
s = s + n
Wend
End If
Else
MsgBox ("digite un valor numerico no letras")m = InputBox("digite un numero para calcular la sumatoria hasta dicho numero")
If IsNumeric(m) Then
If m > 0 Then
While m > n
n = n + 1
s = s + nWend
Else
While m < n
n = n - 1
s = s + n
Wend
End If
End If
End If
MsgBox ("la sumatoria hasta dicho numero es: " & s)
End Sub

VERSION 5.00Begin VB.Form ejercicio2
Caption = "Taller Ciclo While - Ejercicio 2"
ClientHeight = 2325
ClientLeft = 120
ClientTop = 450
ClientWidth = 4095LinkTopic = "Form1"
ScaleHeight = 2325
ScaleWidth = 4095
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton Command1
Caption =...