求一个VB程序,()乘以100除以90,取余数,在1和余数之间取所有的素数 Function IsSushu(N)As BooleanDim I As IntegerFor I=2 To N-1If N Mod I=0 Then Exit For '如果能被2 N-1中任何一个数整除,则不是素数,跳出For循环Next IIf I>;=N Then '如果正常跳出For循环,则I跳出循环F.
VB中的 \ 是整除,直接去掉余数.
求一个VB程序,()乘以100除以90,取余数,在1和余数之间取所有的素数 Function IsSushu(N)As BooleanDim I As IntegerFor I=2 To N-1If N Mod I=0 Then Exit For '如果能被2 N-1中任何一个数整除,则不是素数,跳出For循环Next IIf I>;=N Then '如果正常跳出For循环,则I跳出循环F.
VB中的 \ 是整除,直接去掉余数.