BASICサンプル

もしあなたがある会社の株価チャートを見たければ、毎日ブラウザーを立ち上げてYahooに行って株価情報を表示させ、それをテーブルに手作業でコピーすることで実現できます（訳注：チャートですから、毎日毎日のデータの積み重ねが必要です）。あるいは、これらを全部自動で行うプログラムを使うこともできます。 以下の例は、シート・モジュールを利用するものです。それは、現在の株価を URL を使って得て、会社ごとのシートにして表示します。各々のシートではこの会社の株価の折線グラフと数値を表示します。機能は３つのサブルーチン、GetValue(), UpdateValue(), そして UpdateChart() に隠されています。 Option Explicit Const STOCK_COLUMN = 2 Const STOCK_ROW = 6 Sub UpdateAll Dim sName As Str