下列程序是判断一个整数(>=3)是否为素数，请补充完整。　　Dim n As Integer　　n=InputBox("请输入一个整数(>=3)")　　k=Int(Sqr(n))　　i=2　　swit=0　　While i<=k And swit=0　　　　If n Mod i=0 Then　　　　【】 　　　　Else　　　　【】 　　　　End If　　Wend　　If swit=0 Then　　　　Print n；"是一个素数。"　　Else　　　　Print n；"不是一个素数。"　　End If

近年，我国沿海经常发生大面积的“赤潮”，造成养殖业重大损失．

（1）赤潮的发生主要是与因为藻类的疯狂生长，与藻类疯长密切相关的元素是 _________ 等．（填元素符号）

（2）海水中资源丰富，海水中含量最多的分子是 _________ （填符号）．

（3）盐场海水晒盐的原理是 _________ （填“A”或“B”）．

A、氯化钠的溶解度受温度影响较大

B、因氯化钠溶解度受温度影响不大，故采取蒸发水分的方法．