请输入或粘贴题目内容
搜题
拍照、语音搜题，请扫码下载APP
题目内容
（请给出正确答案）
A．源程序
B．目标程序
C．算法
D．技术文档
答案
更多“● 某人利用某种算法编写了程序，并写出了相应的技术文档，在申请软件著作权保护时，根据计算机软件”相关的问题
第3题
为了从当前文件夹中读人文件Filel．txt，某人编写了下面的程序：
Private Sub Commandl_Click()
Open“Filel．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．把Print ch语句改为Print#20，ch
D．把Open语句中的Output改为Input
第4题
为丫从当前文件夹中读入文件File1．txt，某人编写了下面的程序：
Private Sub Command1_Click（）
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.把Print ch语句改为Print#20，ch
D.把Open语句中的0utput改为Input
第5题
为从当前文件夹中读入文件File1．txt，某人编写了下面的程序：
Private Sub Command1_Click（）
Open"File1．txt"For Output As20
Do While Not EOF(20)
Line Input20，ch$
Print ch
Loop
Close20
End Sub
程序调试时，发现有错误，下面的修改方案中正确的是（）。
A.在Open语句中的文件名前添加路径
B.把程序中各处的“20”改为“1”
C.把Print ch语句改为Print20，ch
D.把Open语句中的0utput改为Input
第6题
（34）为计算 a 的值，某人编写了函数 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^n
C）把 For k=1 To n 改为 For k=1 To n-1
D）把 p=a 改为 p=1
第7题
设a、b都是自然数，为求a除以b的余数，某人编写了以下函数：
Function fun(a As Integer，b As Integer)
While a＞b
a=a-b
Wend
fun=a
End Function
在调试时发现函数是错误的。为使函数能产生正确的返回值，应做的修改是
A．把a=a-b改为a=b-a
B．把a=a-b改为a=a＼b
C．把While a＞b改为While a＜b
D．把While a＞b改为While a＞=b
第8题
Function Isfab(x As Integer)As Boolean
Dim a As Integer,b As Integer,c As Integer,flag As Boolean
flag=False
a=1：b=1
Do While X＜b
c=a+b
a=b
b=c
If x=b Then flag=True
Loop
Isfab=flag
End Function
测试时发现对于所有正整数x，函数都返回False，程序需要修改。下面的修改方案中正确的是()。
A．把a=b与b=c的位置互换
B．把c=a+b移到b=c之后
C．把Do While x＜b改为Do While x＞b
D．把If x=b Then flag=True改为If x=a Then flag=True
