单项选择题

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

A．Open"file1.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 Command1_Click() Dim a$,b$,c$,k% a= ABCD b= 123456 c= k=1 Do White 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．A182C3D456
单项选择题
请阅读程序： Sub subP(b()As Integer) For i=1 To 4 b(i)=2*i Next i End Sub Private Sub Command1_Click() Dim a(1 To 4)As Integer a(1)=5:a(2)=6:a(3)=7:a(4)=8 subP a() For i=1 To 4 Print a(i) Next i End Sub 运行上面的程序，单击命令按钮，则输出结果是( )
A．2
4
6
8
B．5
6
7
8
C．10
12
14
16
D．出错
相关试题