更多"某人编写了如下函数来判断a是否为素数，若是，则函数返回True；否则返"的相关试题:
[填空题]
某人编写如下函数来判断a是否为素数，若是，则函数返回True；否则返回False
Function prime(a As Integer) As Boolean
Dim k As Integer,ispfime As Boolean
If a＜2 Then
isprime=False
Else
isprime=Tme
k=2
Do While k＜a/2 And isprime
If a Mod k=0 Then
isprime=False
Else
k==k+1
End If
Loop
End If
End Function
在测试时发现有一个非素数也被判断为素数，这个错判的数是（）。
[填空题]某人编写如下函数来判断a是否为素数,若是,则函数返回True；否则返回False。
Function prime(a As Integer)As Boolean Dim k As Integer,isprime As Boolean
If a<2 Then
isprime=False
E1se
isprime=True
k=2
Do While k
[单项选择]为计算an的值，某人编写了函数power如下：
Private Function power(a As Integer, n As Integer) As Long
Dim p As Long
p=a
For k=1 To n
p=p*a
Next k
power=p
End Function
在调试时发现是错误的，例如Print power(5, 4)的输出应该是625，但实际输出是3125，程序需要修改。下面的修改方案中有3个是正确的，错误的是
A. 把For k=1 To n改为For k=2 to n B)把p=p*a改为p=p^nC)把For k=1 To n改为For k=1 To n-1 D)把p=a改为p=1
[单项选择]
为计算a"的值，某人编写了函数power如下：
Private Function power(a As Integer，n As Integer)As Long
Dim s As Long
p=a
For k=1 To n
p=p*a
Next k
power=p
End Function
在调试时发现是错误的，例如Print power(5，4)的输出应该是625，但实际输出是3125。程序需要修改。下面的修改方案中有3个是正确的，错误的一个是（）。
A. 把For k=1 To n改为For k=2 To n
B. 把p=p*a改为p=p^n
C. 把For k=1 To n改为For k=1 To n-1
D. 把p=a改为p=1
[单项选择]某人编写了下面的程序：
Private Sub Command1_Click（ ）
Dim a As Integer,b As Integer
a=InputBox("请输入整数")
b=InputBox("请输入整数")
pro a
pro b
Call pro(a+b)
End Sub
Private Sub pro(n As Integer)
While(n＞0)
Print n Mod 10：
n=n/10
Wend
Print
End Sub
此程序功能是：输入2个正整数，反序输出这2个数的每一位数字，再反序输出这2个数之和的每一位数字。例如，若输入123和234，则应该输出：
3 2 1
4 3 2
7 5 3
但调试时发现只输出了前2行(即2个数的反序)，而未输出第3行(即2个数之和的反序)，程序需要修改。下面的修改方案中正确的是______。
A. 把过程pro的形式参数"n As Integer"改为"ByVal n As Integer"
B. 把"Call pro(a+b)"改为"pro a+b"
C. 把"n=n/10"改为"n=n/10"
D. 在pro b语句之后增加语句c%=a+b，再把"Call pro(a+b)"改为"pro c/
[单项选择]某人编写了下列程序，用来求10个整数(整数从键盘输入)中的最大值：
Private Sub Command1_Click（ ）
Dim a(10) As Integer, max As Integer
For k=1 To 10
a(k)=InputBox("输入一个整数")
Next k
max=0
For k=1 To 10
If a(k)＞max Then
max=a(k)
End If
Next k
Print max
End Sub
运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的。程序需要修改。下列修改中可以得到正确运行结果的是( )。
A. 把Ifa(k)＞max Then 改为 If a(k)＜max Then
B. 把max=a(k)改为a(k)=max
C. 把第2个循环语句For k=1 To 10改为For k=2 To 10
D. 把max=O改为max=a(10)
[单项选择]某人编写了一个能够返回数组a中10个数中最大数的函数过程，代码如下：
Function MaxValue(a（ ）As integer)As Integer
Dim max%
max=1
For k=2 To 10
If a(k)＞a(max)Then
max=k
End If
Next k
MaxValue=max
End Function
程序运行时，发现函数过程的返回值是错的，需要修改，下面的修改方案中正确的是 ( )。
A. 语句max=1应改为max=a(1)
B. 语句For k=2 To 10应改为For k=1 To 10
C. If语句中的条件a(k)＞a(max)应改为a(k)＞max
D. 语句MaxValue=max应改为MaxValue=a(max)
[单项选择]某人编写了下列程序，用来求10个整数(整数从键盘输入)中的最大值： Private Sub Command1_Click（ ） Dim a(10) As Integer, max As Integer For k=1 To 10 a(k)=InputBox("输入一个整数") Next k max=0 For k=1 To 10 If a(k)＞max Then max=a(k) End If Next k Print max End Sub 运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的。程序需要修改。下列修改中可以得到正确运行结果的是( )。
A. 把If a(k)>max Then 改为 If a(k)＜max Then
B. 把max=a(k)改为a(k)=max
C. 把第2个循环语句For k=1 To 10改为For k=2 To 10
D. 把max=0改为max=a(10)
[单项选择]某人编写了如下程序，用来求10个整数(整数从键盘输入)中的最大值：
Private Sub Command1_Click（ ）
Dim a(10) As Integer，max As Integer
For k=1 To 10
a(K)=InputBox("输入一个整数")
Next k
Max=0
For k=1 To 10
If a(k)＞max Then
Max＝a(k)
End If
Next k
Print max
End Sub
运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的，程序需要修改，下面的修改中可以得到正确运行结果的是( )
A. 把If a(k)＞max Then改为If a(k)＜max Then
B. 把max＝a(k)改为a(k)＝max
C. 把第2个循环语句For k＝1 TO 10改为For k=2 TO 10
D. 把max=0改为max=a(10)
[单项选择]某人编写了下面的程序，希望能把Text1文本框中的内容写到out.tXt文件中：
Private Sub Command1_Click（ ）
Open"out.txt"For Output As # 2
Print"Text1"
Close # 2
End Sub
调试时发现没有达到目的，为实现上述目的，应做的修改是( )
A. 把Print"Text1"改为Print # 2,Text1
B. 把Print"Text1"改为Print Text1
C. 把Print"Text1"改为Write"Text1"
D. 把所有#2改为#1
