USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  tamanho de Matrizes
Coelho349
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 06/10/2005 13:09 hs         
Boa tarde, tenho uma matriz de [n,n] preciso saber quantas linhas e colunas existem para eu poder utilizar no controle do for.
 
se alguem puder ajudar,
 
obrigado,
 
anderson
   
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 06/10/2005 13:24 hs            
pra vc saber o tamanho é assim:
 
Matriz de 1 dimensão: Ubound(matriz)
Matriz de 2 dimensões: Ubound(Matriz,2)
Matriz de 3 dimensões: Ubound(Matriz,3)
 
e assim por diante.
 
Exemplo
dim Matriz(5,3,6) as string
 
Ubound(matriz) retorna 5
Ubound(matriz,2) retorna 3
Ubound(matriz,3) retorna 6
 
blz??
 
qq coisa é só postar
 
t+
   
Daniel
Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 06/10/2005 13:27 hs            
Não entendi bem a sua dúvida mas não seria:
 
[n,m]
 
for t=1 to n
     for x=1 to m
          matriz(t,x)="878787"
     next x
next t
 
Se voce necessita saber quantas vezes ele irá passar pela matriz e n*m
 
espero ter ajudado
 
 

dsmn
   
VACA
LIMEIRA
SP - BRASIL
ENUNCIADA !
Postada em 06/10/2005 15:44 hs            
Matemática ZERO

"Quando estou fraco, aí então é que sou Poderoso"
   
Martini
Pontos: 2843 Pontos: 2843
PAROBÉ
RS - BRASIL
Postada em 07/10/2005 08:13 hs         
Private Sub Command1_Click()
  Dim matriz()
  ReDim matriz(1 To 3, 1 To 5)
  'para cada elemento da dimensão 1
  For i = 1 To UBound(matriz, 1)
    'para cada elemento da dimensão 2
    For j = 1 To UBound(matriz, 2)
      matriz(i, j) = i * j
    Next
  Next
  'imprimir todos os elementos
  For i = 1 To UBound(matriz, 1)
    For j = 1 To UBound(matriz, 2)
      Debug.Print matriz(i, j)
    Next
  Next
End Sub
 
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página