ulvis.paste.net

Paste Search Dynamic
Recent pastes
test
  1. imports System
  2.  
  3. public class Test
  4.         public Shared sub Main()
  5.                 '20635陳全安
  6.         dim a, b, c, d as Short
  7.         Console.write("請輸入矩形的長:")
  8.         a = val(Console.ReadLine())
  9.         Console.write("請輸入矩形的寬:")
  10.         b = val(Console.ReadLine())
  11.         c = a * b
  12.         d = 2 * (a + b)
  13.         Console.write("矩形面積為:")
  14.         Console.WriteLine(c)
  15.         Console.write("矩形周長為:")
  16.         Console.WriteLine(d)
  17.         end sub
  18. end class
Parsed in 0.005 seconds