单项选择题

下列可以打开随机文件的语句是( )。

A．Open"file 1．dat"For Input As#1
B．Open"file1．dat"For Append As#1
C．Open"file1．dat"For Output As#1
D．Open"file1．dat"For Randow As#1 Len=20

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Coinmand1 Click() Dim a$，b$，c$，k％ a= ABCD b= 123456 c= k=1 Do While k<=Len(a)Or k<=Len(b) If k<=Len(a)Then c=c＆Mid(a，k，1) End If If k<=Len(b)Then c=c＆Mid(a，k，1) End If k=k+1 Loop Print c End Sub 运行程序，单击命令按钮，输出结果是( )。

A．123456ABCD
B．ABCD123456
C．D6C584A321
D．A1B2C3D456

单项选择题

Fibonacci数列的规律是：前2个数为1，从第3个数开始，每个数是它前2个数之和，即1，1，2，3，5，8，13，21，34，55，89，…某人编写了下面的函数，判断大于1的整数X是否是Fibonacci数列中的某个数，若是，则返回True，否则返回False。 Function Isfab(x As Integer)As Boolean Dim ii As Integer，b As Integer，C As Integer，flag As Boolean flag=False a=1：b=1 Do While x 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 xb
D．把If x=b Then flag=True改为If x=a Then flag True

相关试题