Advertisement
Guest User

Untitled

a guest
Nov 14th, 2019
91
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.46 KB | None | 0 0
  1. For i As Integer = 0 To Convert.ToInt32(txt_linhas.Text) - 1
  2. For j As Integer = 0 To Convert.ToInt32(txt_colunas.Text) - 1
  3. txt_display.Text += mat(i, j) & " "
  4. Next
  5. txt_display.Text += vbNewLine & vbNewLine
  6. 'Acrescenta duas novas linhas na caixa de texto depois de cada linha percorrida
  7. 'Duas para os números não ficarem muito juntos e conseguir identificar melhor
  8. Next
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement