搜题请搜索小程序“爱下问搜题”
问题 单项选择题

下列工作中，不属于数据库管理员DBA的职责是

A．建立数据库

B．输入和存储数据库数据

C．监督和控制数据库的使用

D．数据库的维护和改进

答案

参考答案：B

解析： 数据库管理员DBA主要负责全面管理数据库系统的工作。具体地说，是定义数据库，对数据库的使用和运行进行监督、控制，并对数据库进行维护和改进。因此，不属于他们职责的就是选项B)。

单项选择题 A1/A2型题

下列眼膏剂的检查项目错误的是（）

A.装量

B.金属性异物

C.颗粒细度

D.微生物限度

E.溶解度
查看答案
问答题

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

用户打开磁盘上的某个文件后，可以直接对文本进行编辑，也可以利用界面提供的按钮完成相应操作。主要操作介绍如下： (1)打开文件：打开文件对话框，其中仅显示“*.txt”类型的文件。用户选中某一文件后，其内容将呈现于界面文本框内； (2)查找：提示用户输入要查找的内容，将首次出现的查找内容以蓝色高亮标记； (3)替换：若文本框中已选中某段文本，则提示用户输入要替换的内容，在文本框中完成替换。 在开发过程中，文本框名为Text1，“打开文件”、“保存文件”、“查找”、“替换”、“退出”按钮分别命名为Command1至Command5。[Visual Basic代码]Dim fileName As StringDim 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. CloseEnd Sub’保存文本文件Private Sub Command2_Click() Set ts = fso.OpenTextFile(fileName, ForWriting) (4) ts.CloseEnd 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) ’设置选定文本的长度 ElseMsgBox "没有发现要查找的字符串" End IfEnd Sub’替换选中的字符串Private Sub Command4_Click() Dim object As String If (5) ＞0 Then’若已经选中了要替换的文本 object = InputBox("输入要替换的字符串:") Text1.SelText = object ’替换文本 Else MsgBox "请先选中要替换的文本!" End IfEnd Sub’退出程序Private Sub Command5_Click() EndEnd Sub
查看答案