none
Aiuto

    Domanda

  • Salve, ho un problema con questo codice visual basic, il codice dovrebbe calcolare massimo, minimo e media ma ho un errore nella compilazione per mancanza end sub.

    Private Sub CommandButton5_Click()

    Dim n, somma, cont, max, min As Integer

    Private Sub cmdcalcola_click()

    n = Val(txtn.Text)

    max = -9999

    min = 9999

    somma = 0

    cont = 1

    Do While cont <= n

    num = Val(InputBox("dammi num", num))

    list num add item num

    Do While num > max

    somma = somma + num

    cont = cont + 1

    Loop

    media = somma / n

    txtsomma.Text = CStr(somma)

    txtmax.Text = CStr(max)

    txtmin.Text = CStr(min)

    txtmedia.Text = CStr(media)

    End sub

    Ho studiato il visual basic 6 anni fa e ad oggi non ricordo molto bene il suo funzionamento, sto programmando tramite excel.

    martedì 15 maggio 2018 21:30

Tutte le risposte

  • Ciao ale187

    1) il titolo della discussione deve descrivere il problema, leggi il regolamento

    2) impara a indentare il codice, diventa più comprensibile ed aiuta a trovare gli errori, se tu lo avessi fatto ti saresti accorto di non aver chiuso il primo Do

    3)  Hai messo 2 sub una dentro l'altra

    Private Sub CommandButton5_Click()
    Dim n, somma, cont, max, min As Integer
    Private Sub cmdcalcola_click() ' <<< da eliminare

    4) non capisco la riga

    list num add item num

    5) il secondo Do non ha senso e va in loop infinito, cosa dovrebbe fare ?







    • Modificato patel45 mercoledì 16 maggio 2018 09:43
    mercoledì 16 maggio 2018 07:57