Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Programma per il calcolo della potenza
Forum - Visual Basic 6 - Programma per il calcolo della potenza

Avatar
RN (Normal User)
Newbie


Messaggi: 1
Iscritto: 22/04/2011

Segnala al moderatore
Postato alle 15:09
Venerdė, 22/04/2011
Dovrei scrivere un programma che determini la potenza intera di un numero utilizzando solo il prodotto. L'esponente e la base devono essere immessi dall'utente e bisogna utilizzare la struttura "do loop while". Potreste gentilmente aiutarmi poichč ho le idee un po' confuse? Grazie in anticipo!! :)

PM
Avatar
Sal47 (Normal User)
Pro


Messaggi: 96
Iscritto: 05/02/2009

Up
1
Down
V
Segnala al moderatore
Postato alle 18:42
Venerdė, 22/04/2011
Ciao, se ho ben compreso la tua richiesta, il problema potrebbe essere risolto come indicato nel listato seguente, anche se la soluzione forse non č molto elegante (sono anche io alle prime esperienze di VB6):
___________
Option Explicit
Dim base, check, esp, n, temp

Private Sub Command1_Click()
check = True
base = Val(txtBase): esp = Val(txtEsp)
n = 1
temp = 1
Do
Do While n <= (esp + 1)
n = n + 1
temp = temp * base
If n = esp + 1 Then
check = False
Exit Do
End If
Loop
Loop Until check = False
txtRisultato = temp
End Sub

Private Sub Form_Load()
base = Val(txtBase): esp = Val(txtEsp)
Label4 = base & " ^ " & esp & " = "
End Sub

Private Sub txtBase_Change()
Correggi
txtRisultato = ""
End Sub

Private Sub txtEsp_Change()
Correggi
txtRisultato = ""
End Sub

Public Sub Correggi()
Label4 = Val(txtBase) & " ^ " & Val(txtEsp) & " = "
End Sub
____________
Saluti.
Sal47

Ti ringrazio moltissimo per l'aiuto. Cercavo qualcosa di semplice quindi l'ho alleggerito un po' :) Forse troppo! Ecco il codice: _______________________________________ Dim base, esponente, potenza, n Private Sub cmd_calcola_Click() esponente = Val(InputBox("Inserisci l'esponente")) base = Val(Inp - RN - 23/04/11 10:53
Mi scuso per la confusione ma non riesco a rispondere al post! :/ - RN - 23/04/11 11:00
PM