devo fare un programma in visual basic in cui devo inserire 100 numeri, poi inserire un numero in una text box, e vedre se il numero è presente tra i numeri inseriti prima o meno e scrivere in una label se c'è o non c'è. poi devo contare quante volte il numero c'è (se c'è) e scriverlo in una label
fino a ora ho fatto questo:
(generali)
Dim v(1 To 10) As Single
Dim i As Integer
Dim ricorrenze As Integer
Private Sub Command1_Click()
For i = 1 To 10
v(i) = InputBox("inserisci numero")
Next i
End Sub
Private Sub Command2_Click()
Dim numero As Single
numero = Val(txt1.Text)
For i = 1 To 10
If v(i) = numero Then
lbl1.Caption = "il numero è presente nell'elenco"
End If
Next i
If lbl1.Caption = "il numero è presente nell'elenco" Then
lbl1.Caption = "il numero è presente nell'elenco"
Else
lbl1.Caption = "il numero non è presente nell'elenco"
End If
End Sub
non so come fare nell'ultima parte (quella in cui devo contare le ricorrenze). ho creato un command button ma ora buio totale... perfavore aiutatemi o se ce l'avete anche un link che tratti questo argomento
grazie!