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

环式碎煤机启动前的检查内容有那些？

答案

参考答案：

（1）检查电动机、碎煤机各部件紧固螺栓无松动，脱落现象。（2）碎煤机机体内和除铁室内不应有积煤及铁件等物，锤环应无损坏、脱落。（3）电动机接线完好无损。（4）筛板位置正确，调节螺母无松动和损坏。（5）上部落煤管无开焊、破损、漏煤等现象。（6）操作动力箱上各按钮、指示灯完好无损。（7）测温、测振等保护装置应完好。

问答题

[说明]
下图是一个简易文本编辑器程序的运行界面：


用户打开磁盘上的某个文件后，可以直接对文本进行编辑，也可以利用界面提供的按钮完成相应操作。主要操作介绍如下：
(1)打开文件：打开文件对话框，其中仅显示“*.txt”类型的文件。用户选中某一文件后，其内容将呈现于界面文本框内；
(2)查找：提示用户输入要查找的内容，将首次出现的查找内容以蓝色高亮标记；
(3)替换：若文本框中已选中某段文本，则提示用户输入要替换的内容，在文本框中完成替换。
在开发过程中，文本框名为Text1，“打开文件”、“保存文件”、“查找”、“替换”、“退出”按钮分别命名为Command1至Command5。
[Visual Basic代码]
Dim fileName As String
Dim fso As New (1) , ts As Object
’打开文本文件
Private Sub Command1_Click()
CommonDialog1.Filter = "*.txt"
CommonDialog1.ShowOpen
fileName = (2) ’保存所打开的文件名
Set fso=CreateObjeet("Scripting.FileSystemObject")
Set ts=fso.OpenTextFile(fileName, ForReading)
If Not ts.AtEndOfStream Then
Text1.Text = (3)
End If
ts. Close
End Sub
’保存文本文件
Private Sub Command2_Click()
Set ts = fso.OpenTextFile(fileName, ForWriting)
(4)
ts.Close
End Sub
’查找字符串
Private Sub Command3_Cliek()
Dim search As String, position As Integer
search = InputBox("输入要查找的字符串:")
position = InStr(Text1.Text, search) ’在文本中查找字符串
If position ＞0 Then ’若找到指定的字符串
Text1.SelStart = position - 1 ’设置选定文本的起始位置
Text1.SelLength = Len(search) ’设置选定文本的长度
Else
MsgBox "没有发现要查找的字符串"
End If
End Sub
’替换选中的字符串
Private Sub Command4_Click()
Dim object As String
If (5) ＞0 Then’若已经选中了要替换的文本
object = InputBox("输入要替换的字符串:")
Text1.SelText = object ’替换文本
Else
MsgBox "请先选中要替换的文本!"
End If
End Sub
’退出程序
Private Sub Command5_Click()
End
End Sub
查看答案
单项选择题 A1/A2型题

既能清肺热，可治疗肺热咳嗽，又能泻胃火，治疗胃火牙痛的药物是（）

A.知母

B.竹叶

C.芦根

D.栀子

E.石膏
查看答案