Varias duvidas

[mlg]

Boas

Tenhos algumas duvidas neste cod passo a explicar a baixo

Private Structure pessoa
        Dim nome As String
        Dim numero As Integer
        Dim idade As Integer
        Dim disciplina As String
        Dim nota1 As Single
        Dim nota2 As Single
    End Structure
    Dim aluno(20) As pessoa
---------------------------------------
Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click

        Dim search As String
        Dim i As Integer
        search = InputBox("Introduza o nome do aluno a procurar")

        If search = aluno(i).nome Then
            Label6.Text = aluno(i).nome
            Label7.Text = aluno(i).idade
            Label8.Text = aluno(i).nota1
            Label9.Text = aluno(i).nota2
        Else
            MsgBox("Aluno não encontrado")
        End If

    End Sub

    Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click
        Dim search As String
        Dim i As Integer
        For i = 1 To 20
            aluno(i).nome = InputBox("Introduza um nome")
            aluno(i).numero = InputBox("Introduza o numero")
            aluno(i).idade = InputBox("Introduza a idade")
            aluno(i).disciplina = InputBox("Introduza a Disciplina")
            aluno(i).nota1 = Val(InputBox("Introduza a nota do 1º Teste"))
            aluno(i).nota2 = Val(InputBox("Introduza a nota do 2º Teste"))


        Next
    End Sub
End Class

As minhas duvidas são as seguintes...

Na parte do search .. eu tenho o code mal qualquer maneira ke meta akilo dá me sempre "aluno não encontrado " não sei ke fazer alguma dica ?

Outra era como faço para que eu posso introduzir alunos até 20 no maximo mas que n seja obrigado a introduzir os 20 .. pode ser 10 ou 17 por exemplo para akilo n tar smp a pedir

tks

[NuGuN]

no evento "MenuItem6_Click" metes :

Dim search As String
Dim i As Integer

search = InputBox("Introduza o nome do aluno a procurar")

For i = 0 To NAlunos - 1
    If search = aluno(i).nome Then
        Label6.Caption = aluno(i).nome
        Label7.Caption = aluno(i).idade
        Label8.Caption = aluno(i).nota1
        Label9.Caption = aluno(i).nota2
        Exit Sub
    End If
Next i

MsgBox ("Aluno não encontrado")

e no evento MenuItem7_Click :

Dim search As String
aluno(NAlunos).nome = InputBox("Introduza um nome")
aluno(NAlunos).numero = InputBox("Introduza o numero")
aluno(NAlunos).idade = InputBox("Introduza a idade")
aluno(NAlunos).disciplina = InputBox("Introduza a Disciplina")
aluno(NAlunos).nota1 = Val(InputBox("Introduza a nota do 1º Teste"))
aluno(NAlunos).nota2 = Val(InputBox("Introduza a nota do 2º Teste"))
NAlunos = NAlunos + 1

Agora tenta ver o que estava mal, não te limites a fazer CTRL+C & CTRL+V 😄

[Jf_Br]

Ola!. . .

tenho uma pequena grande duvida!...    🙂

qual é a função do vb.net?

Se alguem m podesse explicar agradicia.

boa continuação e boas festas!  👍

___________

  Joel ferreira