有如下程序： Sub Filelnfo(file1) Dim f1,{f,s Set f1＝CreateObject("Scripting.FileSystemObject") Set f＝f1.GetFile(file1) s＝f.DateCreated MsgBox s End Sub 这个子程序的作用是

A．创建一个新文件file1

B．在消息对话框中显示文件file1的内容

C．在消息对话框中显示文件的所有信息

D．在消息对话框中显示文件的创建日期

[单选题]有如下程序:Private Sub Form_Click()E．=1:F=1F．or j=1 To 3E．=E+F:F=F+ENextPrint E;FE．nd Sub该程序的输出结果是A．6 6B．5 8C．13 21D．34 55

[单选题]有如下程序： Private Sub Form_Click() E=1:F=1 For j=1 To 3 E=E+F:F=F+E Next Print E:F End Sub 该程序的输出结果是A． 6 6B． 5 8C．13 21D．34 55

[单选题]有如下程序： Private Sub Form_Click() E=1：F=1 For i=1 To 3 E=E+F:F=F+E Next Print E；F End Sub 该程序的输出结果是A．6 6B．5 8C．13 21D．34 55

[单选题]有如下程序：Private Sub Form_C1ick()E．=1:F=1F．or j=1 To 3E．=E+F:F=F+ENextPrint E;FE．nd Sub该程序的输出结果是A．6 6B． 5 8C． 13 21D．34 55

[单选题]有如下程序。Private Sub Command1_Click()D．im a As SingleD．im b As Singlea=5: b=4C．all Sub1(a, b)E．nd SubSub Sub1(x As Single, y As Single)t=xx=t / yy=t Mod yE．nd Sub在调用运行上述程序后,a和b的值分别为A．0 0B．1 1C．2 2D．1 2

[单选题]有如下程序： Private Sub Command1_Click() Dim a As Single Dim b As Single a=5:b=4 Call Sub1(a,b) End Sub Sub Sub1(x As Single，y As Single) t=X X=t/Y Y=t Mod y End Sub 在调用运行上述程序后，a和b的值分别为A．0 0B． 1 1C．2 2D．1 2

[单选题]有如下的命令：$ddif=f1of=f2。其中if=f1表示（）A . 以f1作为源文件，代替标准输入B . 以f1作为目标文件，代替标准输出C . 当条件满足f1的时候，执行真正的拷贝D . 拷贝的过程中，不转化文件

[单选题]有如下的程序。Private Sub Command1_Click()D．im k As Integer, m As IntegerD．im P As Integerk=4: m=1P=Fun(k, m) : Print P;P=Fun(k, m) : Print PE．nd SubPrivate Function Fun(a As Integer, b As Integer)Static m As Integer, i As Integerm=5: i=2i=i + m + 1m=i + a

[单选题]有如下程序。Private Sub Command1_Click()D．im k As Integer, m As IntegerD．im op As Integerk=4: m=1op=PPC(k, m) : Print op;op=PPC(k, m) : Print opE．nd SubPrivate Function PPC(a As Integer, b As Integer)Static m As Integer, i As Integerm=0: i=2i=i + m + 1m=i

[单选题]设有如下程序 Private Sub Command1_Click() Dim sum As Double, x As Double sum=0 n=0 For i=1 To 5 x=n/i n=n+1 sum=sum +x Next i End Sub 该程序通过For循环来计算一个表达式的值，这个表达式是______。A．1+1/2+2/3+3/4+4/5B．1+1/2+1/3+1/4+1/5C．1/2+2/3+3/4+4/5D．1/2+1/3+1/4+1/5