编辑代码

Module Module1

   const space =" "
   dim numberofspace as integer
   dim numberofsymbol as integer
   dim maxnumberofsymbols as integer
   dim thissymbol as char
   sub inputmaxnumberofsymbols(byref number as integer)
     do 
          console.writeline("how many symbols make this bases?")
          console.write("input an odd number:")
     loop until (number mod 2 = 1)
    end sub
    sub setvalues(byref symbol, byref maxsymbols, byref spaces, byref symbols)
        console.write("what symbol do you want to use?")
        symbol = console.readline()
        inputmaxnumberofsymbols(maxsymbols)
        spaces = (maxsymbols+1)\2
        symbols = 1
    end sub
    sub outputchars(byval number, byval symbol)
       dim count as integer
       for count = 1 to number
       console.write(symbol)
       next
    end sub
    sub adjustvaluesfornextrow(byref space, byref symbols)
      spaces = spaces -1
      symbol = symbol + 2
    end sub
    Sub Main()
    setvalues(thissymbol,maxnumberofsymbols,numberofspace,numberofsymbols) 
        
    End Sub

End Module