倍数を探すプログラムを教えて下さい。

質問

指定した範囲の整数の中から(2つのテキストボックス)、テキストボックス(元の数値)で検索実行(検索実行ボタンもあり)した際に、その個数(倍数の数)と倍数全てを表示するプログラムを教えて下さい。
検索実行した際に、倍数の数のテキストボックスと倍数の表示のテキストボックスに数を表示させる必要があります。また、倍数の表示は、/で区切らないといけません。お願いします。

回答No.3

mt2015

ANo.2です。

> 回答ありがとうございます。すみません。Versionは、AccessVBAです。AccessVBAでも動きますか？

VBですら無かったんですね。
まぁそのままでは動かないと思いますが、考え方はそのまま使えます。

Accessなら、Accessのバージョンを示した方が回答は付きやすいと思いますよ。

お礼

良ければAccessVBAのプログラムを教えていただけないでしょうか？

補足

お願いします。

回答No.2

mt2015

変数宣言もエラー処理も無い手抜き版です。
VBのVersionの指定が無かったので、VB6でも動くように作ってみました。
＃VB.NetだとMath.Ceilingが使えるのでもっとシンプルにできます。
ご参考まで

Private Sub Command1_Click()
　　nStart = CInt(Text1.Text) '範囲開始
　　nLast = CInt(Text2.Text)　　'範囲終了
　　nMult = CInt(Text3.Text)　　'元の整数

　　nWork = nStart / nMult
　　nLoopS = IIf(nWork - Int(nWork) = 0, nWork, Int(1 + nWork)) * nMult '倍数最初の値
　　For i = nLoopS To nLast Step nMult
　　　　sString = sString & Format(i, "0") & " "
　　　　nCount = nCount + 1
　　Next i
　　Text4.Text = nCount '倍数の個数
　　Text5.Text = Replace(Trim(sString), " ", "/") '倍数一覧
End Sub

お礼

回答ありがとうございます。すみません。Versionは、AccessVBAです。AccessVBAでも動きますか？

回答No.1

hahaha8635

https://msdn.microsoft.com/ja-jp/library/dd314346.aspx?f=255&MSPPError=-2147217396

A mod B
余りが０なら割り切れる＝倍数

何倍か求める
int(A/B)

後は自分で考える

お礼

ありがとうございました。