help
 

hi can anyone help me? because i dont know how to use for next loop i want to make a sample program in vb i have 1 textbox

if i inputted value of 3 in text1.text

it will come up in this answer

1
2
3

then if i click my command button next the next answer should this

4
5
6

next

7
8
9

how can i came up this answeR? using for next loop?

thanks god bless

Re: help
 

Dim LastNum As Integer



Private Sub Command1_Click()

Dim NewNum As Integer

Dim I As Integer



If Text1.Text = vbNullString Then

    MsgBox "Enter A Value"

    Exit Sub

End If



NewNum = LastNum + Val((Text1.Text) - 1)



Text2.Text = vbNullString

For I = LastNum To NewNum

    Text2.Text = Text2.Text & I & " "

Next I



LastNum = I



End Sub



Private Sub Form_Load()

LastNum = 1

End Sub

Re: help
 

ahm only 1 textbox sir and if the number reach in 100 it will stop :)

Re: help
 

I'm certain that with what you have been provided, you can make the necessary modifications for it to fit your needs. Secondly, how are you meant to show the numbers, if not for a second textbox? A Label?

Re: help
 

comatose can u help me about this i have only 1 textbox and 2 command button

this is my code in command1 button

Private Sub Command1_Click()

Dim x, n

n = Val(Text1.Text)

For x = 1 To n

Print x

Next x

command1.enabled = false

End Sub

the output of my command1 is for example i inputted a value of 3 in my textbox the output should come w/ this

1
2
3

this is the code in my 2nd button

Private Sub Command2_Click()

Dim x, n

n = Val(Text1.Text)

For x = n + 1 To n * 2

Print x

Next x

End Sub

the output of this is

4
5
6

if i click once again in my 2nd command button the answer is still 456 i want is like this if i click once again my second command button the answer should like this

7
8
9

if i click again

10
11
12

until he reach in 100.

Re: help
 

If you check the code I posted, you'll notice that I keep track of the LastNum (Last number) that X had been. You are not doing this. For x = n + 1 To n * 2 If n is always 3, x will always be from 3 to 6. Try it.. replace n with the number in the textbox. The for loop will always produce the same result. You need to somehow keep track of the last number that X was.... sort of like:

For I = LastNum To NewNum

     print  I 

Next I



LastNum = I

Then, you will have to calculate "NewNum" so you know how far you are supposed to loop until NewNum = LastNum + Val((Text1.Text) - 1). Furthermore, LastNum needs to be public (or static, but public is easier in this case).

Re: help
 

because the requirements is only 1 textbox :( thats why it so hard :(
if i inputted 5 in textbox the output should like this

1
2
3
4
5

:( then if i click once again it should be like this

6
7
8
9
10

so on. .

Re: help
 

That is what my initial post does. How about removing the second textbox, and changing it from text2.text = text2.text & i & " " to something like print i

Re: help
 

ive tried your code making a 2 texboxt but it still wrong for example in the text1 value = 5

1
2
3
4
5

then if i click once again the answer in the text2 should

6
7
8
9
10

but in your code is still

1
2
3
4
5

Re: help
 

Then you put Dim LastNum as Integer in the wrong spot Brosive.