Visualizzazione dei risultati da 1 a 10 su 33

Hybrid View

  1. #1
    .................

    Else

    Try

    Dato2
    = Val(InputBox("Inserire la base del rettangolo","Messaggio per l'utente"))
    Dato23 = Val(InputBox("Inserire l'altezza del rettangolo","Messaggio per l'utente"))
    Debug.Print("Dato2: " & Dato2.ToString & " -Dato23: " & Dato23.ToString)

    Risultato 2
    = Dato2*Dato23
    Debug.Print("Risultato2: " & Risultato2.ToString)

    TextBox2.Text = Risultato2.ToString

    Catch ex as Exception
    Debug.Print(ex.ToString)
    End Try

    End If

  2. #2
    Quote Originariamente inviata da eziogsv Visualizza il messaggio
    .................

    Else

    Try

    Dato2
    = Val(InputBox("Inserire la base del rettangolo","Messaggio per l'utente"))
    Dato23 = Val(InputBox("Inserire l'altezza del rettangolo","Messaggio per l'utente"))
    Debug.Print("Dato2: " & Dato2.ToString & " -Dato23: " & Dato23.ToString)

    Risultato 2
    = Dato2*Dato23
    Debug.Print("Risultato2: " & Risultato2.ToString)

    TextBox2.Text = Risultato2.ToString

    Catch ex as Exception
    Debug.Print(ex.ToString)
    End Try

    End If
    Ok ho aggiunto i valori, ora come procedo?

  3. #3
    In che senso come procedi? Dicci (copia/incolla) i valori che leggi nella finestra di controllo immediato...
    Ultima modifica di eziogsv; 23-05-2014 a 19:22

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 © 2026 vBulletin Solutions, Inc. All rights reserved.