プログラムの組み方について

ウインドウズ９８とエクセルとワードを使っていますが、
かつてのＢＡＳＩＣのようなプログラムを組んで実行
させることは可能なのでしょうか？例えば
１０　Ａ＝１
２０　Ａ＝Ａ＋１：ＩＦ　Ａ＞９　ＴＨＥＮ　５０
３０　ＦＯＲ　Ｂ＝１　ＴＯ　Ａ：ＰＲＩＮＴ　Ｂ
４０　ＧＯＴＯ　２０
５０　ＰＲＩＮＴ　Ａ
６０　ＥＮＤ
というような簡単なものでいいのですが・・・。
どなたか教えて下さい。よろしくお願いします。

No.1 回答者： hequil 回答日時： 2001/01/07 23:41

WordやExcelでは従来のBASICプログラムは動作させることは出来ません。

どうしてもWord/Excel上で動かしたいのでしたら、VBAで従来のBASICプログラムを動作させるマクロ等を作成すれば出来なくもないですが、現実的ではありません。

単にWindows98上で従来のBASICのプログラミングを動かしたいのであれば、以下のようなソフトがあります。

ActiveBasic
http://www2s.biglobe.ne.jp/~yamadai/

N88互換BASIC for Windows
http://www.vector.co.jp/soft/win95/prog/se055956 …

参考まで

No.2 ベストアンサー 回答者： arata 回答日時： 2001/01/08 00:11

可能です。

Excel、WordともにVBA(Visual Basic for Applications)と言うマクロ環境を持っています。

実際にどのように使うかですが、Excel2000を例に答えます。
なお、下記は、質問でご提示のプログラムを動作するようにExcelのVBAで動くように手直ししたものです。

□例
１．ワークシートを新規作成
２．メニューの[ツール]-[マクロ]-[Visual Basic Editor]でVisual Basic Editorを起動
３．メニューの[挿入]-[標準モジュール]で標準モジュールを挿入
４．メニューの[挿入]-[プロシージャの挿入]でプロシージャ挿入のダイアログを出す。
５．プロシージャ挿入のダイアログで「名前」をTEST、「種類」をSubプロシージャ、「適用範囲」をPublicプロシージャにしてOKボタンを押す。
６．Publuc Sub TESTからEnd Subの間を下記のように記述

Public Sub TEST()
　　Dim A As Integer
　　Dim B As Integer
　　A = 1
　　Do
　　　A = A + 1
　　　If A > 9 Then
　　　　Exit Do
　　　End If
　　　For B = 1 To A
　　　　MsgBox B
　　　Next
　　Loop
　　MsgBox A
End Sub

（上記のプログラムは見やすくするために全角のスペースを使用しています。実際に動かす場合は、全角のスペースは半角のスペースに変えてください。）

７．Public Sub TESTとEnd Subの間のいずれかの位置にカーソルを置いた状態でF5キーを押してプログラムを実行する。

Excelのシートからマクロを起動することなども出来ますが、回答欄ではとてもご紹介できないので、ご勘弁ください。

No.3 回答者： ykymtkt 回答日時： 2001/01/08 14:12

VBScriptを使用したらいかがでしょうか。

アプリを起動する必要もなく単体での動作も可能です（スクリプトエンジンはインストールしておく必要があります）。
ソースも普通のテキストエディタで作成し拡張子をVBSにして保存します。
下記URLを参考にしてください（ドキュメント等のダウンロードも出来ます）。

参考URL：http://www.microsoft.com/japan/developer/scripti …