Alinhamento

[Ganhei]

FALA PESSOAL beleza???

TENHO ESSE CODIGO DENTRO DE UM BOTAO

For I = 1 To 15
valor(I) = InputBox("Entre com o " & I & " º numero:")

Next I

For J = 14 To 2 Step -1
For I = 1 To J
If valor(I) > valor(I + 1) Then
AUX = valor(I)
valor(I) = valor(I + 1)
valor(I + 1) = AUX
End If
Next I
Next J
Cls
For I = 1 To 15
Print valor(I)
Next I

SÓ QUE O PRINT COLOCA OS NUMEROS NA ESQUERDA COLADO A MARGEM E EM PÉ.

COMO FAÇO PARA DESCOLAR OS NUMERO , LEVALOS PARA O MEIO DO FORM E DEIXAR OS NUMEROS DEITADOS?!

[Graymalkin]

Coloque espaços na frente (com a função Space()) ou utilize as propriedades CurrentX e CurrentY para determinar as coordenadas antes de utilizar o método Print.

E, como assim colocar os "números deitados"?

Abraços,

Graymalkin

[Ganhei]

ELES APARECEM ASSIM 1 (VERTICAL) EU QUERIA NA HORIZONTAL ( 1,2,3,4..)

2

3

4

SEU EU COLOCAR O CODIGO DENTRO DO BOTÃO ELE APARECE NO FORM , CASO EU COLOQUE N OFORM ELE NÃO APARECE.

EU QUERIA QUE ELE MOSTRASSE EM UM LABEL OS NUMERO EM ORDEM CRESCENTE.

DEU PRA ENTENDER????

[Graymalkin]

Então, acumule-os em uma variável e depois coloque o conteúdo da variável na propriedade Caption da label. Por exemplo:

texto = ""
for i=1 to 10
  texto = texto & i & ", "
next i
label1.caption = texto

Ok?

Graymalkin