glinのプロフィール

こんばんは。 住宅を建築する際に擁壁が必要となる場合は、擁壁にも意外と費用が掛かるようですね。 ところで、RC擁壁を独立に作らずに、住宅の基礎（深基礎とかいう方法）で兼ねる形で作れば総費用は安くなる？ という話を聞きました。 設計が難しいとか、物事にはきっとメリットとデメリットがあるのでは、と思うのですが。 どうなんでしょうか？

こんにちは １から入力された数（N）までの素因数を数えるプログラムを 作成したいのですが、うまくいきません。 たとえば10と入力すると２と表示されてしまいます。 どこがおかしいのかわかりません。 どなたか教えてください。おねがいします。 N個の配列を用意し、１を入れていき、 素因数でない数の要素には０をいれて、 最終的に１が入っている配列の数を数えて１～Nまでの 素因数の数を数える方法を考えています。 Dim M As Integer Dim N As Integer Dim i As Integer Dim j As Integer Dim sum As Integer Dim L(1000) As Double N = Val(TextBox1) M = N i = 1 Do Until i > N L(i) = 1 i = i + 1 Loop i = 2 Do Until i > M j = i * 2 Do Until j > M L(j) = 0 j = j + 1 Loop i = i + 1 Loop sum = 0 For i = 2 To N If L(i) = 1 Then sum = sum + 1 End If Next i