- 163 名前：デフォルトの名無しさん mailto:sage [2009/10/08(木) 13:45:39 ]
- >>162
宿題スレにいけ。ぼけ。
Sub test()
Dim inputNum As Integer
Dim count As Integer
Dim divNums As Integer
inputNum = InputBox("整数入力してね")
For count = 1 To inputNum
If inputNum Mod count = 0 Then
divNums = divNums + 1
End If
Next
Debug.Print divNums
End Sub
ちなみにサンプル例が間違えてるからなｗ
松前高等学校のプログラム担当の先生に言っといて。
