VBAで素因数分解


fx-5800P素因数分解でEXCELのVBAで作った素因数分解プログラムは一瞬で結果が出ると書いた。
 ⇒ fx-5800P で素因数分解

このVBAのプログラムは、fx-5800Pで作ったプログラムとの比較が目的なので、同じロジックで作った。記録をかねて紹介する。


Fctorizing_VBA 


fx-5800P のプログラムと同じロジックなので、高精度なルーチンを入れておらず、Long型変数のまま計算に使用。従って10桁までしか扱えず、11桁以上はエラーとなる。



以下がソースコード:

'==============================
'Microsoft Excel 2007
'VBAで素因数分解

'
' ボタンクリック
'
Sub Start_Click()

    Factorizing
End Sub


Sub Factorizing()
'
' Factorizing Macro
'
    Dim S As Variant, K As Variant
    Dim C As Long, D As Long, X As Long, Y As Long, A As Long, f As Long

    C = 0
    D = 2
    f = 0

    Range("B7") = ""
    A = Range("B4").Value
    X = A

    Do
        Y = X / D
        If (X Mod D) = 0 Then
            X = Y
            C = C + 1
        Else
            If C <> 0 Then
                f = f + 1
                If f > 1 Then
                    S = S & " x "
                End If
                S = S + Str(D)
                If C > 1 Then
                    S = S + "^" + Str(C)
                End If
                C = 0
            End If
            If D = 2 Then
                D = D + 1
            Else
                D = D + 2
            End If
        End If
    Loop While Y >= 1

    Range("B7") = S

End Sub
'==============================





応援クリックをお願いします。励みになるので...

人気ブログランキングへ


FC2ブログランキングへ


keywords: fx-5800PVBA素因数分解プログラム関数電卓

リンク集 | ブログ内マップ
関連記事

テーマ : プログラム関数電卓
ジャンル : コンピュータ

コメントの投稿

非公開コメント

最新記事
最新コメント
カテゴリ
C# (3)
検索フォーム
Visitors
Online Counter
現在の閲覧者数:
プロフィール

やす (Krtyski)

Author:やす (Krtyski)
since Oct 30, 2013


プログラム関数電卓は、プログラムを作り・使ってナンボ!

実際に触って気づいたこと、自作プログラム、電卓プログラミングについて書いています

おもしろい・役に立つならクリックしてください。励みになります。

人気ブログランキングへ


FC2ブログランキングへ


写真: 「4駆で泥んこ遊び@オックスフォード郊外」

リンク
月別アーカイブ
Sitemap

全ての記事を表示する

RSSリンクの表示
最新トラックバック
ブロとも申請フォーム

この人とブロともになる

QRコード
QR