未知题型
有如下程序： 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.在消息对话框中显示文件的创建日期
- A.FileSystemObject')
B.GetFile(file1)
C.DateCreated
D.创建一个新文件file1
B.在消息对话框中显示文件file1的内容
C.在消息对话框中显示文件的所有信息
【参考答案】
D
解析：本题主要考查了Cre ateObject(创建对象)、GetFile(获取文件)、 DateCreat......
(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)
点击查看答案
相关考题
-
单项选择题
声乐作品中不会用到变奏曲式。
A．对
B．错 -
未知题型
编写如下通用过程： Sub Proc(x As Single,y As Single) t=x x＝t/y y=t Mod y End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl Click() Dim a As Single Dim b As Single a＝5 b＝4 Proc a,b Print a,b End Sub 程序运行后，如果单击命令按钮，则输出结果为A.5 4B.1.25 1C.4 5D.1.25 5
A.5
B.1.25
C.4
D.1.25 -
未知题型
编写了如下事件过程： Private Sub Form_MouseDown(KeyCode As Integer,Shift As Integer) If (Button And 3)=3 Then Print'AAAA' End If End Sub 程序运行后，为了在窗体上输出“AAAA”，应按下的鼠标键是D.按什么键都不显示
A.左
B.右
C.同时按下左和右
