We stayed at the lab ___ our teacher ret

[说明] 本程序实现的功能是查看磁盘上的图片及其基本信息。程序运行界面如下图所示，用户只要逐步选择适当的驱动器、目录和图片文件，图片内容随即显示在界面中央，文件的基本信息则呈现于右侧文本框中。用户还可以删除或复制选中的图片文件。

在开发过程中，驱动器列表框名为Drivel，目录列表框名为Dir1，文件列表框名为File1，图片的显示由Image控件对象Image1来实现，文件信息文本框名为Text1，按钮“删除文件”和“复制到…”分别名为CmdDel和CmdCpy。[Visual Basic代码]Dim filename As StringDim fso As New (1) , file As filePrivate Sub Form_Load() Set fso = CreateObject("Scripting.FileSystemObject") Drivel.Drive = "F:"End SubPrivate Sub Dir1_Change() File1.path=Dirl.path ’更新文件列表框的路径End SubPrivate Sub Drive1_Change() Dir1.path = (2) ’更新目录列表框的路径End SubPrivate Sub File1_Click()’文件列表框的单击事件响应代码 If Right(Dir1.path, 1) ＜＞"\" Thenfilename = Dir1.path & "\" & Filel.filename Elsefilename = Dir1.path & Filel.filename End If Image1.Picture = (3) Set file = fso.GetFile(filename) Text1. Text = "文件名称:" & file.Name & vbCrLf & _"文件大小:" & file. Size & "字节" & vbCrLf & _ "文件类型:" & file.Type & vbCrLf & _ "创建日期:" & file. DateCreated & vbCrLf & _ "修改日期:" & file. DateLastModifiedEnd SubPrivate Sub CmdCpy_Chck()’按钮“复制到…”的单击事件响应代码 Dim path As String path = InputBox("请输入目标路径(含文件名):") (4) End SubPrivate Sub CmdDel_Click()’按钮“删除文件”的单击事件响应代码 (5) End Sub

各个矿种开采安全生产的立法属于矿山安全立法的()。

A．普通法

B．特别法

C．综合性法

D．单行法

违反《动物防疫法》规定，屠宰、经营、运输动物或者生产、经营、加工、贮藏、运输动物产品的，由动物卫生监督机构责令改正、采取补救措施，没收违法所得和动物、动物产品，并处同类检疫合格动物、动物产品货值金额______罚款( )。

A．25倍以下

B．10%以上20%以下

C．1倍以上5倍以下

D．1000元以上1万元以下

E．3000元以下

氟芬合剂（依诺伐）的禁忌证中，除外（）。

A.婴幼儿麻醉

B.产妇行剖宫产术

C.帕金森患者

D.颅脑外伤患者

E.严重呼吸功能不全伴哮喘患者

患者带下增多，色黄绿，质黏稠，有臭气，伴阴部瘙痒，胸闷心烦，口苦咽于，头晕头痛，小便黄少，大便秘结；舌边红，苔黄腻，脉弦滑。其治法是( )

A．清热利湿，杀虫止痒

B．清热凉血，祛风止痒

C．清肝利湿止带

D．健脾除湿，止带止痒

E．清热利湿，疏风化浊