I-Cloud程式攻略

'讓電腦發出聲音利用Console.Beep()

Module Module1
      Sub Main()
          
             Console.Beep(262,500)      'C(Do)
             Console.Beep(294,500)      'D(Re)
             Console.Beep(330,500)      'E(Me)
             Console.Beep(349,500)      'F(Fa)
             Console.Beep(392,500)      'G(So)
             Console.Beep(440,500)      'A(Ra)
             Console.Beep(494,500)      'H(Si)
             Console.Beep(523,500)      'C(Do)

      End Sub
End Module