- 締切済み
倍数を探すプログラムを教えて下さい。
指定した範囲の整数の中から(2つのテキストボックス)、テキストボックス(元の数値)で検索実行(検索実行ボタンもあり)した際に、その個数(倍数の数)と倍数全てを表示するプログラムを教えて下さい。 検索実行した際に、倍数の数のテキストボックスと倍数の表示のテキストボックスに数を表示させる必要があります。また、倍数の表示は、/で区切らないといけません。お願いします。
- kaitou29
- お礼率100% (20/20)
- Visual Basic
- 回答数3
- ありがとう数3
- みんなの回答 （3）
- 専門家の回答
みんなの回答
- mt2015
- ベストアンサー率49% (258/524)
ANo.2です。 > 回答ありがとうございます。すみません。Versionは、AccessVBAです。AccessVBAでも動きますか？ VBですら無かったんですね。 まぁそのままでは動かないと思いますが、考え方はそのまま使えます。 Accessなら、Accessのバージョンを示した方が回答は付きやすいと思いますよ。
- mt2015
- ベストアンサー率49% (258/524)
変数宣言もエラー処理も無い手抜き版です。 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でも動きますか？
- hahaha8635
- ベストアンサー率22% (800/3609)
https://msdn.microsoft.com/ja-jp/library/dd314346.aspx?f=255&MSPPError=-2147217396 A mod B 余りが０なら割り切れる＝倍数 何倍か求める int(A/B) 後は自分で考える
お礼
ありがとうございました。
関連するQ&A
- 3つほどプログラムをおしえてください。
(1)100までの整数をいくつか入力し、１０刻みでの個数を表示し、負の数が入力されると整数の入力を終わるプログラムです。各範囲の個数は配列に格納する。 実行結果 65 30 21 95 5 -1 0--- 9 : 1 10--- 19 : 0 20--- 29 : 1 30--- 39 : 1 40--- 49 : 0 50--- 59 : 0 60--- 69 : 1 70--- 79 : 0 80--- 89 : 0 90---100 : 1 (2)数字の文字列を入力し、その文字列に含まれる各数字（文字）'0','1',～'9'の個数を表示するプログラムの作成。 実行結果 1231234567 0: 0 1: 2 2: 2 3: 2 4: 1 5: 1 6: 1 7: 1 8: 0 9: 0 (3) 変数xは、0～1までの0.01刻みの値（101個）を取るとする。このとき、2次関数 f(x)=3x^2+2x+1の値が2.0<f(x)<3.0となるxの値をの個数を求めるプログラムの作成。ただし、xを引数としf(x)の値を返す関数を作成して、それを使用する。 実行結果 number=21 やってるうちにわけがわからなくなってしまいます。どなたかよろしくおねがいします。
- ベストアンサー
- C・C++・C#
- 倍数の個数の求め方で質問です。
3ケタの自然数のうち、4の倍数は、 999÷4=249 余り3 99÷4=24余り3 であるから、249－24=225 とありますが、 もし、4ケタの自然数だった場合、999 9÷4の商と、999÷4の商を、 引けばいいのでしょうか？ 100から200までの整数について4の倍数の個数を求めるには、200÷4の商－99÷4の商とありますが、 なぜ100ではないのですか？ 教えてください。
- 締切済み
- 数学・算数
- 偶数、奇数、倍数、約数について
いろいろ調べたんですが、人によって違っていたりして分からず困っています・・・。 高校までの範囲では ［１］偶数と奇数は負の範囲も含めて良いのでしょうか？。自分が調べた教科書や参考書によると、算数では、０以上の整数において偶数・奇数を定義しているのですが、中学・高校の数学では偶数・奇数についての定義は触れられていません。 ［２］倍数に０は含めても良いのでしょうか？。算数の参考書などには、「ある整数に整数をかけてできる数のことを倍数、０の倍数やある数の０倍は考えないことにする」と書いてあります。人によっては、含めるだったり、含めないだったり・・・一体どうすれば・・・？。 ［３］倍数・約数は負の範囲まで考えていいのでしょうか？。 ［４］０の約数というのは考えても良いのでしょうか？。 以上４点です。どなたか詳しい方、教えてください。お願いしますm(__)m。
- ベストアンサー
- 数学・算数
- javaの初心者向けプログラムの宿題です
「指定された値の倍数を10個表示するプログラム」 です。 選択授業で取ったjavaプログラミングの宿題ですが行き詰ってしまいました。 部分的にはなんとなく理解できるのですが、全体像がつかめません。 流れだけでもご教示願います。 (1)値の入力を促す「数値入力」メッセージを表示し、文字列入力を待機する。 (2)その入力から文字列を取得して文字列をint型の数値に変換。 (3) 入力された文字列が数値以外の場合は、例外(NumberFormatException)が発生した場合に、メッセージ「半角数字で数値指定」を表示してアプリケーションを終了。 (4) 倍数を表示できる数値の範囲は、2以上100未満、範囲外の数値が入力された場合にはメッセージ「[入力から取得した数値]の倍数は表示できません。0から100までの数値を指定してください。」を表示してアプリケーションを終了。 注） 処理を開始するメッセージを表示し、入力された数値の倍数を標準出力に10個表示する。 各数値は、タブ(¥t)で区切り、5個表示毎に改行。 倍数は、0を含めて表示。 よろしくおねがいします。
- 締切済み
- その他（学問・教育）
- "DO LOOP"
テキストボックスに数値を入れると Do Loopでその数値の整数部分が何桁かを計算して、 ラベルに表示させるプログラムを作りたいです。 その時の、終了条件がわかりません。 （出来れば繰り返し実行されるステートメントお願いします。） 教えてください。お願いします。
- 締切済み
- Visual Basic
- プログラム実行時の確認は
今まではコンボボックス内をセレクトしたあとすぐに計算を実行して表示するプログラムだったのですが、テキストボックスにデータを入力後ボタンを押したときに計算を行うように変更しようとして、新規に作成したボタンの「Private sub Command1_Click()」にコンボボックス内に書いていたプログラムをコピーして実行したのですが、ボタンを押してもエラーで止まるわけでもなく、しかし、実行結果を表示するでもなく、まるでループにでも入っているようなのですが、実行中にどこでどうしているか確認する方法を教えてください。
- ベストアンサー
- Visual Basic
- ４の倍数を論理演算で表す。。
/*Prog32.cキーボードから整数型変数ａへデータを入力し、ａの値が４の倍数のときは“４の倍数です”と表示し、そうでないときは、“４の倍数ではありません”と表示する。ただし、整数データのビット数はわからないものとし、計算にはビットごとの論理演算のみを用いる。*/ #include <stdio.h> int main(void) { int a; printf("整数を入力して下さい! "); scanf("%d", &a); (a % 4 ) ? printf("４の倍数ではありません。\n", a) :printf("４の倍数です。\n", a); return(0); } 4の倍数を論理演算で表す方法がわかりません。。 自分では上記のように算術を使うやりかたしかわかりませんでした。 よろしくお願いします!
- ベストアンサー
- C・C++・C#
- プログラミングなんですが。。
次のようなプログラムはどのようにして作成したらいいのでしょうか。 [1]２つの整数aとbを作成します [2]２数が一致すれば”a=b=(入力した数値)” と表示させます [3]２数がともに10より小さければ”２数とも10未満です”と表示させます [4]２数のうちどちらかが5で割り切れれば”どちらかが5で割り切れます”と表示させます [5]bが0でまければa/bを表示させます また、１文字を入力してその文字が小文字なら大文字に、大文字なら小文字に変換するプログラムを作成するためにはどのようにすればいいのでしょうか。 そして最後に０以上の整数をキーボードから入力し、その数が以下のどれにあたるかを判定し適当なメッセージをさせたいのですが [1]0ではない [2]4の倍数で、かつ7の倍数である [3]4の倍数であるか、もしくは7の倍数である [4]上の[2][3]のいずれにもあてはまらない 長くなってすみません。if文の使い方もよくわからないので教えていただけると嬉しいのですが （＾＾；）
- 締切済み
- C・C++・C#
- あるプログラムから別のをプログラムを操作する方
Windows XPにおいて、ソフトAがあるとします。 このソフトAは実行時に、テキストボックスと実行ボタンからなるウィンドウから構成され、 実行ボタンを押すと、テキストボックスの入力に応じた、特別なファイルを生成します。 現在、「テキストボックスへの入力」「実行ボタンのクリック」を手動で行っているのですが、作業量が多いため、自動で行いたいと考えています。 具体的には、テキストボックスに入力したい文をあらかじめテキストファイルにまとめて作成しておき、自動で次々とファイルを生成したいと思います。 キーボードやマウスの操作を記憶するフリーソフトを試してみましたが、ウィンドウの位置を合わせなくてはならない、実行中他の操作が一切できない、実行中の進行具合が見づらい、テキストファイルのエラーチェックができないなど、こまごまとした点で不満が残ります。 そこで、自分でプログラムを作成し、ソフトAを操作するようなプログラムを作りたいと思うのですが、どのようなものが必要でしょうか？
- ベストアンサー
- その他（プログラミング・開発）
- ４つのＪａｖａファイルについての質問
この4つのプログラムを実行するためのtera padへの入力表記（？）が分かりません、分かる方どうか教えてください！（１つだけでも嬉しいです！） (1.)コマンドラインから整数値を入力して、入力された数値が 10 かそれより大きいかを判断し、メッセージを表示します。 (入力された数値が 10 かそれより大きい場合は okメッセージを出力し、それ以外の場合はNGメッセージを出力します。)このプログラムを作成してください。 (2.)1から200までの数値の中の７の倍数を表示させるプログラムを作成してください。 (3.)1から100までの数値の総和を計算・表示するプログラムを作成してください。 (4)実行結果が 出力したいアスタリスク（*）の数を入力してください： 10 10を入力されました。 **********となるプログラムを作成してください。
- 締切済み
- Java
お礼
良ければAccessVBAのプログラムを教えていただけないでしょうか？
補足
お願いします。