【2/17】今年は「濃厚」技術トーク！＠ITメールセミナー スラッシュドット    はてなブックマーク  Yahoo!ブックマークに登録  印刷
　 　
基礎解説
チェック式 WSH入門　第8回

3．SubプロシージャとFunctionプロシージャの組み合わせ例

Microsoft MVP
Visual Developer - Scripting
牟田口 大介
2007/01/12
Page1 Page2 Page3

　最後に1つ、今回のまとめとしてSubプロシージャとFunctionプロシージャを組み合わせたものを例題として出題する。与えられた数値が素数（prime number）かどうかを判定し、ブール値を返すFunctionプロシージャIsPrimeと、IsPrimeを呼び出すことで、指定した数値の範囲に含まれる素数を求め、表示するSubプロシージャShowPrimeを作成してみよう。なお、素数とは、1およびその数自身のほかに約数を持たない自然数のことである。整数aが整数bで割り切れるとき、bをaの約数という。

マーカーで隠れたところを、１つずつクリックしてチェックしてみよう。 マーカーで隠れたところを、１つずつクリックしてチェックしてみよう。
Option Explicit

'1から100までの間に含まれる素数を表示
 '1000から2000までの間に含まれる素数を表示
'*********************************************************
 '用途: 与えられた数値の範囲に含まれる素数を表示する
 '受け取る値: intStart: 開始する数値(Integer)
 '            intEnd: 終了する数値(Integer)
 '戻り値: なし
 '*********************************************************
     '開始と終了の値の大きさが逆だったら終了
     If intStart > intEnd Then
    End If

    Dim intCounter, intPrimeCount, strPrime
    strPrime = ""
    intPrimeCount = 0

    '開始の数値から終了の数値までループする
     For intCounter = intStart To intEnd
        ' intCounterが素数なら
             '出力文字列にその値を加える
             strPrime = strPrime & intCounter & ","
            '素数の数をインクリメント
             intPrimeCount = intPrimeCount + 1
            '整形のため、10個ごとに改行コードを入れる
             If intPrimeCount Mod 10 = 0 Then
                strPrime = strPrime & vbCrLf
            End If
        End If
    Next

    MsgBox intStart & "から" & intEnd & "までの素数：" & vbCrLf & _
           strPrime & vbCrLf & _
           "（" & intPrimeCount & "個）"

'*********************************************************
 '用途: 与えられた数値が素数かどうかを判定する
 '受け取る値: intNumber: 判定する数値(Integer)
 '戻り値: 与えられた数値の階乗(Boolean)
 '*********************************************************
     '引数が1未満なら終了
     If intNumber < 1 Then
'Falseを返す
    End If

    Dim intCounter, intFactorCount
    intFactorCount = 0

    '1から引数の数値まで繰り返す
     For intCounter = 1 To intNumber
        '引数がカウンターの数値で割り切れる場合は
         If intNumber Mod intCounter = 0 Then
            '約数の数をインクリメントする
             intFactorCount = intFactorCount + 1
        End If
    Next

    '約数の数が2つならTrue、それ以外ならFalseを返す
     If intFactorCount = 2 Then
    Else
    End If

　このスクリプトを実行すると、次のようなメッセージ・ボックスが連続して表示される。
SubプロシージャShowPrimeとFunctionプロシージャIsPrimeの実行例
指定範囲の素数をピックアップして表示するSubプロシージャShowPrimeと、与えられた数値が素数であるかどうかを判定するFunctionプロシージャIsPrimeを分離して記述している。

　このスクリプトにおいては、素数かどうかを判定するFunctionプロシージャと、素数を表示するSubプロシージャをそれぞれ分けて記述することで、それぞれのプロシージャの持つ役割を明確に分離している。スクリプトが長くなるにつれ、スクリプト・レベルに記述する量が増えると、スクリプトが読みにくくなり、保守性も下がる。そのため、処理をプロシージャごとに細かく分けて記述していくのがよい方法である。

■

　今回はSubプロシージャおよびFunctionプロシージャについて取り上げた。両者の違いは値を返すか返さないかであるが、本質は同じで、同じ処理を繰り返して行えるようにすることと、処理を細分化することであることをよく頭に入れておいてほしい。

　今回までで、VBScriptの基本的な構文などについては一通り説明が終わった。次回からはVBScript基本編の最後として、オブジェクトの話題について取り上げる。End of Article


　INDEX
　 ［基礎解説］チェック式 WSH入門
　 第8回　Functionプロシージャでユーザー独自の関数を定義する
　   1．Functionプロシージャとは
　   2．関数の引数とDoステートメントによるループ
  3．SSubプロシージャとFunctionプロシージャの組み合わせ例
　
　基礎解説

ホワイトペーパー（TechTargetジャパン）

Windows Server Insider フォーラム 新着記事

＠ITメールマガジン　新着情報やスタッフのコラムがメールで届きます（無料）

RSSフィード

＠IT 新着記事

スキルアップ／キャリアアップ（JOB@IT）

- PR -
＠IT Special -PR-
操作もマニュアルも分かりやすい！
ユーザー視点で開発されたPC管理ツール
New！
【CTC事例】約30の基幹システムを統合！
膨大なバッチジョブを制御した方法は？
「どこでもオフィス」で業務効率アップ！
PHP研究所モバイルシンクライアント事例
コスト削減・信頼性向上をまとめて満たす
“高信頼Linux”を構築する方法とは？
世界に通用するストレージの作り方とは？
製品に込めた思いを富士通の開発者に聞く
急速に広がるHyper-Vでのサーバ仮想化
そのベストプラクティスをデルが解説
＠IT「Windows 7」 特設サイトオープン！
最新情報・移行ノウハウを公開しています

→＠IT Special ヘ

- PR -

お勧め求人情報

キャリアアップ　〜JOB＠IT
＠IT Special -PR-
◆ 　 企業の仮想化に足りない“発想”とは？
仮想化運用管理のキモは意外なところに！
New！
◆ 　 操作もマニュアルも分かりやすい！
ユーザー視点で開発されたPC管理ツール
New！
◆ 　 仮想化すればコストは削減できるか？
仮想化に必要な「3つの視点」を解説する

◆ 　 セキュリティを知り尽くす上野氏が登壇！
＠ITメールソリューションLive! in Tokyo
◆ 　 運用管理の課題を“2つの観点”から分析
ユーザー満足度の高い「仮想環境」とは？
◆ 　 世界に通用するストレージの作り方とは？
製品に込めた思いを富士通の開発者に聞く

◆ 　 OSSで手間も時間も、障害も減った――
「マピオンの事例」オープンソース活用法
◆ 　 「ノートPCの持ち出し禁止」で大丈夫？
情報漏えいを防ぐ管理手法とインフラは？
◆ 　 1日の処理を1秒に――MySQLの達人が語る
「コスト削減」できるチューニング

◆ 　 ドキュメント作成を自動化して、SEの作業
効率を大幅アップ！ Visio 2007の魅力
◆ 　 急速に広がるHyper-Vでのサーバ仮想化
そのベストプラクティスをデルが解説
◆ 　 ＠IT主催セミナーで語られた、「担当者に
求められるセキュリティ対策」をレポート

◆ 　 ＠IT「Windows 7」 特設サイトオープン！
最新情報・移行ノウハウを公開しています

→＠IT Special ヘ