🚀 go-pugleaf

On Fri, 01 Nov 2002 01:15:03 GMT, "Christian"
<Christian.Rosseel@pandora.be> wrote:

>Deze oefening is geschreven in de ConsoleApplication van VB.Net.
>
>Als resultaat van de uitvoering hiervan verkrijgt men op het scherm, onder
>elkaar drie tabellen waarin deze getallen staan geschreven :
>
>1 2 3 4 5 6 7 8 9 10
>
>10 9 8 7 6 5 4 3 2 1
>
>10 9 8 7 6 6 7 8 9 10
>
>Het probleem is echter dat bij de laatste tabel de getallen niet mogen
>geschreven worden zoals ik het gedaan heb, maar dat de waarden vanuit de
>tabel tblTABELA(intXA) en tblTABELB(intXB)moeten worden afgeleidt. Dit lukt
>echter niet, heeft iemand soms wat advies aub?


imports system

class Mainclass
	
  public shared sub Main
	
    dim a(9) as integer, b(9) as integer, c(9) as integer
    dim i as integer
 
    a = new integer(){1,2,3,4,5,6,7,8,9,10}
    b = new integer(){10,9,8,7,6,5,4,3,2,1}
    
    for i=0 to 9:console.write(" " & a(i)):next:console.writeline()
    for i=0 to 9:console.write(" " & b(i)):next:console.writeline()
    for i=0 to 9:console.write(" " & c(i)):next:console.writeline()

    for i=0 to 9
       if a(i)>=b(i) then c(i)=a(i) else c(i)=b(i)
    next
    
    for i=0 to 9:console.write(" " & c(i)):next:console.writeline()

  end sub
	
end class

HTH