Problem in visual basic......????

Question

I want to print the numbers 1 to 99.
i have written the following code:

private sub cmdCommand1_click()
dim i as integer
for i = 1 to 99
print i
next i
end sub

what's wrong with this coding??? The output of above is all the numbers from 1 to 16??????

Answer 1

You are viewing the window in its default size and there is only room for the display to show the first 16 numbers. Maximize the window or start it full size and there will be more room to show additional lines that have been printed.

You may need to add code to scroll the window using a scroll bar control OR print to a list box which allows scrolling a longer list. Printing to a list box is really adding items to the listbox collection.

Answer 2

It looks like it should work, perhaps it is a screen size problem. Try putting a space after print I to seperate the numbers by a space instead of a carriage return, use a semi-colon after print i for no space, or a comma for a tab

private sub cmdCommand1_click()

dim i as integer

REM One Space only after print i
for i = 1 to 99
print i; " ";
next i
end sub



private sub cmdCommand1_click()

dim i as integer

REM One tab only after print i
for i = 1 to 99
print i,
next i
end sub

Answer 3

im not so sure but I think
you are printing on a form so you need to set the size of the form
or print them side by side

private sub cmdCommand1_click()
dim i as integer
for i = 1 to 99
print i & " " ;
if currentx >= height then
currenty = currenty + 10 ' value Depends on if you are using pixels inches or twips
end if


next i
end sub

Answer 4

I know nothing but I would have thought you would code it something like this

private sub cmdCommand1_click()
dim i as integer
for i = 1 to 99
print i
i=i+1
next i
end sub

If that works I'll eat my modem.
the fact that you are getting an output 1 to 16 suggests that you are operating in hex and of course 16 is 1 in hex. I am so far out of my depth now that my saliva is boiling due to brain overheat.

Answer 5

isnt it sql+ ???

private sub cmdCommand1_click()
dim i as integer
for i = 1 to 99;
print i;
i=i+1;
next i;
end sub

Answer 6

Do coding on Me.Resize Event, which will change the size of web browser as the size of form change. WebBrowser.Width= Me.ScaleWidth WebBrowser.Height= Me.ScaleHeight

Answer 7

try this
dim i as integer
if i<=99 then
i=i+1
print i
end sub
i like to share vb knowladge e-mail me for if you want to share knowladge
[e-mail]