0votos

iMPLEMENTACION DE fUNCIONES EN C# en Gambas

por Guizans hace 13 días

Mi solución en Gambas.

Funciones con C#

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
' Gambas module file 
 
Private lista As Integer[] = [1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 2, 3, 4, 5, 6, 7, 8, 9] 
 
Public Sub Main() 
   
  Dim devolver As New Integer[] 
  Dim a As Integer 
   
  devolver = listaEnteros(lista, 3) 
   
  For Each a In devolver 
    Print a 
  Next 
End 
 
Private Function listaEnteros(list As Integer[], valor As Integer) As Integer[] 
   
  Dim a As Integer 
  Dim devolver As New Integer[] 
   
  For Each a In list 
    If a <> valor Then 
      devolver.Add(a) 
    Endif 
  Next 
   
  Return devolver 
   
End 

Comenta la solución

Tienes que identificarte para poder publicar tu comentario.