DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

Please Help!

Thread Solved

•

Join Date: Jul 2008

Posts: 161

Reputation: ryan311 has a little shameless behaviour in the past

Solved Threads: 1

ryan311

Offline

Junior Poster

Please Help!

Dec 16th, 2008

can anyone change this for next statement to do while statement?

Dim x, n, i As Integer
Dim Tot As Double
x = Val(Text1.Text)
n = Val(Text2.Text)
If n <= 1 Or x < 0 Then
MsgBox "Enter Proper Values", vbCritical
Exit Sub
End If
Tot = 0
For i = 1 To n
Tot = Tot + (x ^ i)
Next
Label1.Caption = Tot

•

Join Date: Aug 2008

Posts: 304

Reputation: aktharshaik is an unknown quantity at this point

Solved Threads: 37

aktharshaik aktharshaik is offline

Offline

Posting Whiz

Re: Please Help!

Dec 16th, 2008

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
    Dim x, n, i As Integer
    Dim Tot As Double
 
    x = Val(Text1.Text)
    n = Val(Text2.Text)
    If n <= 1 Or x <= 0 Then
        MsgBox "Enter Proper Values", vbCritical
        Exit Sub
    End If
 
    Tot = 0
    i = 1
    Do While i <=  n
        Tot = Tot + (x ^ i)
        i = i + 1
    Loop
    Dim x, n, i As Integer
    Dim Tot As Double

    x = Val(Text1.Text)
    n = Val(Text2.Text)
    If n <= 1 Or x <= 0 Then
        MsgBox "Enter Proper Values", vbCritical
        Exit Sub
    End If

    Tot = 0
    i = 1
    Do While i <=  n
        Tot = Tot + (x ^ i)
        i = i + 1
    Loop