有如下程序： 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在消息对话框中显示文件的创建日期
问题
有如下程序： Sub Filelnfo(file1) Dim f1,{f,s
参考解析：
解析：本题主要考查了Cre ateObject(创建对象)、GetFile(获取文件)、 DateCreated(创建日期)和消息对话框Msg Box四个函数。题中执行语句s＝f.DateCre ated后，s就保存了文件{的创建日期。最后执行语句MsgBox s在消息对话框中显示文件的创建日期。
分类：其他
相关推荐
-
1、下列程序执行后，变量S的值为 Dim s As Long,x As Inte
下列程序执行后，变量S的值为 Dim s As Long,x As Integer s=0 For x＝1 To 10 Step 2 s＝s+x Next x Text1.Text＝sA10B25C50D100
-
2、对窗体编写如下代码： Option Base1 Private Sub F
对窗体编写如下代码：Option Base1Private Sub Form_Key Press（Key Ascii AsInteger）a=Array（237，126，87，48，498）m1=a（1）m2=1IfKey Ascii=13ThenForI=2To5Ifa（...
-
3、设有如下程序： Option Base 0 Private Sub For
设有如下程序：Option Base 0Private Sub Form_Click()Dim aDim i As Integera = Array(1,2,3,4,5,6,7,8,9)For i = 0 To 3Print a(5 – i);Next End S...
-
4、某人设计了如下程序用于计算并输出7!(7的阶乘)： Private Sub
某人设计了如下程序用于计算并输出7!(7的阶乘)： Private Sub Command1_Click t = 0 For k = 7 To 2 Step -1 t = t * k Next Print t End Sub 执行程...
-
5、设有如下程序： Private Sub Form_Click() A=1 F
设有如下程序： Private Sub Form_Click() A=1 For i＝1 To 3 Select Case i Case 1,3 A＝A+1 Case 2,4 A＝A+2 End Select Next i Print A End Sub 程序运行后，单击窗体，则在窗体上显示的内容是A6B5C4D3
-
6、有如下VB程序段： Private Sub Command1_Click（
有如下VB程序段：Private Sub Command1_Click（）Dim a As Longa=Val（Text1.Text）Print aEnd Sub其中"Private Sub Command1_Click（）"的作用是（）。A定义一个数据...