Visualizzazione dei risultati da 1 a 10 su 40

Visualizzazione discussione

  1. #18
    Taglio la testa al toro e vediamo se è quello che ti serve. Uso le Liste che con un minimo di pratica sono più gestibili delle matrici:

    codice:
            Dim var As String  
            Dim Chiavi As New List(Of String), Contenuto As New List(Of String)
            Chiavi.Add("nomi")
            Chiavi.Add("animali")
            Chiavi.Add("fumetti")
            Contenuto.Add("Mario, Giorgio,Franco,......")
            Contenuto.Add("Cane,Gatto,Cavallo,......")
            Contenuto.Add("Pippo,Pluto,Paperino,......")
    
    
            'andata
            var = "animali"
            For x As Integer = 0 To Chiavi.Count - 1
                If Chiavi(x).Contains(var) Then
                    var = Contenuto(x)
                    MessageBox.Show(var)
                    Exit For  'se risposta univoca
                End If
            Next
    
    
            'ritorno
            var = "Paperino"
            For x As Integer = 0 To Contenuto.Count - 1
                If Contenuto(x).Contains(var) Then
                    var = Chiavi(x)
                    MessageBox.Show(var)
                    Exit For  'se risposta univoca
                End If
            Next

    Sappimi dire se ho capito il problema.
    Ultima modifica di eziogsv; 26-01-2018 a 16:52

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.