>>39 新規テキストに以下を貼って 拡張子を.vbsに ━━━━━━━━━━━━ s = "素数="
x = inputbox("計算範囲入力!(10000以上はきつい)",,"100")
For i = 2 To x isPrime = True For j = 2 To i - 1 If i Mod j = 0 Then isPrime = False exit For End If Next If isPrime Then s = s & "," & CSTr(i) Next Wscript.echo(s)