某人编写如下函数来判断a是否为素数，若是，则函数返回True；否则返回False。Function prime(a As Integer)As BooleanDim k As Integer，isprime As BooleanIf a＜2Thenisprime=FalseElseisprime=Truek=2Do While k＜a／2And isprimeIf a Mod k=0Thenisprime=FalseElsek=k+1End IfLoopEnd Ifprime=isprimeEnd Function在测试时发现有1个非素数也被判断为素数，这个错判的数是( )。

单项选择题有如下函数过程：Function f1(x As Integer)As LongDim s As Long，i As Integers=0For i=1To xs=s+iNext if1=sEnd Function在窗体上添加一个命令按钮，名为Command1，并编写事件过程调用该函数，则输出结果为( )。Private Sub Command1_Click()Dim i As Integer，sum As LongFor i=1To5sum=sum+f1(i)Next iPrint sumEnd Sub

单项选择题为达到把a、b中的值交换后输出的目的，某人编程如下：Private Sub Command1_Click()a％=10：b％=20Call swap(a，b)Print a，bEnd SubPrivateSub swap(ByVal a As Integer，ByVal b As Integer)c=a：a=b：b=cEnd Sub在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的是( )。