搜题请搜索小程序“爱下问搜题”
问题 问答题 简答题

脚手架的立杆布设有什么要求？

答案

参考答案：

脚手架的立杆应垂直。钢管立杆应设置金属底座或垫木。竹、木立杆应埋入地下30cm-50cm，杆坑底部应夯实并垫以砖石；

遇松土或无法挖坑时应绑扫地杆。横杆应平行并与立杆成直角搭设。

问答题

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


在开发过程中，驱动器列表框名为Drivel，目录列表框名为Dir1，文件列表框名为File1，图片的显示由Image控件对象Image1来实现，文件信息文本框名为Text1，按钮“删除文件”和“复制到…”分别名为CmdDel和CmdCpy。
[Visual Basic代码]
Dim filename As String
Dim fso As New (1) , file As file
Private Sub Form_Load()
Set fso = CreateObject("Scripting.FileSystemObject")
Drivel.Drive = "F:"
End Sub
Private Sub Dir1_Change()
File1.path=Dirl.path ’更新文件列表框的路径
End Sub
Private Sub Drive1_Change()
Dir1.path = (2) ’更新目录列表框的路径
End Sub
Private Sub File1_Click()’文件列表框的单击事件响应代码
If Right(Dir1.path, 1) ＜＞"\" Then
filename = Dir1.path & "\" & Filel.filename
Else
filename = 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. DateLastModified
End Sub
Private Sub CmdCpy_Chck()’按钮“复制到…”的单击事件响应代码
Dim path As String
path = InputBox("请输入目标路径(含文件名):")
(4)
End Sub
Private Sub CmdDel_Click()’按钮“删除文件”的单击事件响应代码
(5)
End Sub
查看答案
判断题

《红楼梦》里有句话说：“一个是阆苑仙葩，一个是美玉无瑕”，其中“阆苑仙葩”指的是贾宝玉，“美玉无瑕”指的是林黛玉。
查看答案