Új hozzászólás Aktív témák

• #7385 4ron senior tag 4ron #7384

  Új Válasz 2013-09-23 23:36:20 #7385

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  4ron

  senior tag

  válasz 4ron #7384 üzenetére

  Nagy nehézségek árán, de megküzdöttem az első feladattal Íme a kód, ha valakit érdekelne:
  Module Module1
  
  Sub Main()
  Dim strSzoveg1, strSzoveg2 As String
  Dim intEredmeny As Integer
  
  Console.WriteLine("Első szöveg:")
  strSzoveg1 = Console.ReadLine
  Console.WriteLine("Második szöveg:")
  strSzoveg2 = Console.ReadLine
  
  intEredmeny = Ellenorzes(strSzoveg1, strSzoveg2)
  
  Console.WriteLine(vbCrLf & "A megadott szövegben a számok mennyisége: " & intEredmeny)
  
  Console.ReadLine()
  End Sub
  
  Function Ellenorzes(ByRef strElso As String, ByRef strMasodik As String) As Integer
  
  Dim intCifre As Integer
  Dim chrKarakter, chrKarakter2 As Char
  Dim i, j As Integer
  
  For i = 1 To Len(strElso)
  chrKarakter = Mid(strElso, i, 1)
  
  If Asc(chrKarakter) <= Asc("9") And Asc(chrKarakter) >= Asc("0") Then
  intCifre += 1
  End If
  
  Next
  
  For j = 1 To Len(strMasodik)
  chrKarakter2 = Mid(strMasodik, j, 1)
  
  If Asc(chrKarakter2) <= Asc("9") And Asc(chrKarakter2) >= Asc("0") Then
  intCifre += 1
  End If
  Next
  
  Return (intCifre)
  
  End Function
  
  End Module

Új hozzászólás Aktív témák