みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

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

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

投稿日時 - 2018-12-24 00:51:55

QNo.9570778

困ってます

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(3)

ANo.3

ANo.2です。

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

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

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

投稿日時 - 2018-12-25 16:43:36

補足

お願いします。

投稿日時 - 2018-12-27 17:01:00

お礼

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

投稿日時 - 2018-12-25 20:38:39

ANo.2

変数宣言もエラー処理も無い手抜き版です。
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

投稿日時 - 2018-12-25 14:52:23

お礼

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

投稿日時 - 2018-12-25 15:47:11

ANo.1

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

A mod B
余りが0なら割り切れる=倍数


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

後は自分で考える

投稿日時 - 2018-12-24 01:23:07

お礼

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

投稿日時 - 2018-12-24 18:52:44

あなたにオススメの質問