Ayuda con programita de Visual Basic 2005

[endoh69]

Muy buenas a todos hace poco me dejaron una tarea en mi clase de programacion, la cual es esta:

Desarrollar una aplicación en Visual Basic 2005 que muestre la siguiente serie
*2, *4,*6,*8,*10…..*100


El código q use es este :

Public Class Form1
Dim numerotope As Long
Dim Nro As Long
Dim pares As String

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Nro = 0
numerotope = 100
pares = ""
For Nro = "*1" To numerotope
If Nro Mod "*2" = "*0" Then
pares = pares & CStr(Nro) & vbCrLf

End If
Next
MsgBox("Serie de numeros" & vbCrLf & pares)
End Sub
End Class

Por logica el ejercicio pide a Gritos mostrar numeros pares, asi q con ese codigo muestra exactamente los numeros pares, pero no se como hacer para q muestre el asterisco en cada uno, tiene q llevar los asteriscos a fuerza porq a un amigo le dejaron uno parecido solo q la serie de el tiene q ir -2, -4, -6, -8, … -100, entonces por fuerza tiene q llevar los asteriscos, mi pregunta era si deberia modificar el codigo para mejor darle un valor a un variable “i” digamos para despues poner un print "(“*”, i) o algo asi."

Creo q el codigo podria ir mucho mas sencillo y talvez yo me estoy complicando mucho, pero es q esto de la progra no es mi campo y ps como esta es tarea me reurge hacerla si me pueden ayudar con el codigo se los agradeeria mucho, como les decia creo q talvez no es el gran codigo el q hay q hacer, de antemano muchas gracias

[fradve]

Puedes Hacerlo de esta manera:

Código vb:

Public Class Form1
     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
          Dim numero as Integer
          Dim pares as String
 
          For numero = 2 To 100 Step 2
              pares = pares & "*" & numero & ","
          Next
          
          MsgBox("Serie de numeros" & vbCrLf & pares)
    End Sub
End Class
 

[endoh69]

Weee Me sirvio de las milvaravillas, Muchas Gracias No te imaginas de q manera tan grande me has ayudado man !!! Muchas Muchas Gracias