更多"某人编写如下函数来判断a是否为素数，若是，则函数返回True；否则返回"的相关试题:
[填空题]某人编写如下函数来判断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
[填空题]某人编写了如下函数来判断a是否为素数，若是，则函数返回True；否则返回False。
Function Prime(a As Integer) AS Boolean
Dim k As Interger, isprime AS Boolean
If a＜2 Then
isprime=False
EIse
isprime=True
k=2
Do While k
If a Mod k=0 Then
iprime=False
ELSE
k=k+1
End IF
LOOP
End If
prime=isprime
End Function
在测试时发现有一个非素数也被判断为素数，这个错判的数是______。
[单项选择]某人编写了下面的程序：
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/
[单项选择]为计算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
[单项选择]某人编写了向随机文件中写一条记录的程序，代码如下：
Type RType
Name As String * 10
Tel As String * 20
End Type
Private Sub Command1_Click( )
Dim p As RType
p. Name = InputSox( "姓名" )
p. Tel = InputBox( "电话号" )
Open "Books. dat" For Random As # 1
Put # 1, , p
Close # 1
End Sub
该程序运行时有错误，修改的方法是( )。
A. 在类型定义“Type RType”之前加上“Private”
B. Dim P As RType必须置于窗体模块的声明部分
C. 应把Open语句中的For Random改为For Output
D. Put语句应该写为Put # 1, P. Name, P. Tel
[单项选择]
为了从当前文件夹中读入文件File1.txt，某人编写了下面的程序：
Private Sub Command1_C1ick（ ）
Open "File1.txt" For Output As #20
Do While Not EOF(20)
Line Input#20, ch$
Print ch
Loop
Close #20
End Sub
程序调试时，发现存错误，下面的修改方案中正确的是（）。
A. 在Open语句中的文件名前添加路径
B. 把程序中各处的“20”改为“1”
C. 把Prim ch语句改为Print #20, ch
D. 把Open语句中的Output改为Input
[单项选择]某人编写了一个能够返回数组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. 把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)
[单项选择]某人编写了如下程序，用来求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)
