发布时间 : 星期日 文章按键精灵开发者一到六级认证最全总结答案更新完毕开始阅读8c7322bba0116c175f0e48da
EndScript
'六、2、利用文本(TXT)模拟一个\数据库\数据库储存人物信息(编号|姓名|年龄|身高),需有对应的函数实现 查询/搜索/删除/增加 等功能(伪数据库),请写出代码
Dim 数据库路径, InputHome, Input查询, Input搜索, Input删除, Input增加, 查询结果, 搜索返回, 搜索结果, Show搜索, 删除结果 数据库路径 = \档案.txt\
InputHome = InputBox(\退出：Q 主页：H\查询：1 搜索：2 删除：3 增加：4\主页·请输入对应字符进行相关操作\Do While InputHome <> \ If InputHome = \
InputHome = InputBox(\退出：Q 主页：H\查询：1 搜索：2 删除：3 增加：4\主页·请输入对应字符进行相关操作\ ElseIf InputHome = \ Do
查询结果 = \
Input查询 = InputBox(\退出：Q 主页：H\查询·请输入编号进行查询\编号\
If Input查询 = \查询 = \ ElseIf Input查询 = \查询 = \ ElseIf IsNumeric(Input查询) = True Then
查询结果 = 查询(数据库路径, Input查询) End If
If 查询结果 <> \查询结果, 65, \查询结果\ Loop
ElseIf InputHome = \ Do
搜索返回 = \搜索 = \
Input搜索 = InputBox(\退出：Q 主页：H\可模糊搜索到编号、姓名、年龄、身高字段\搜索·请输入关键字进行搜索\关键字\
If Input搜索 = \搜索 = \ ElseIf Input搜索 = \搜索 = \ Else
搜索返回 = 搜索(数据库路径, Input搜索) End If
If 搜索返回 <> \
搜索结果 = Split(搜索返回, \
For i = UBound(搜索结果) - 1 To 0 Step - 1
Show搜索 = Show搜索 & 搜索结果(i) & vbCrLf Next
MsgBox Show搜索, 65, \搜索结果\ End If Loop
ElseIf InputHome = \ Do
查询结果 = \删除结果 = \
Input删除 = InputBox(\退出：Q 主页：H\删除·请输入编号进行删除\编号\
If Input删除 = \删除 = \ ElseIf Input删除 = \删除 = \ ElseIf IsNumeric(Input删除) = True Then
查询结果 = 查询(数据库路径, Input删除) End If
If 查询结果 <> \删除结果 = MsgBox(查询结果, 68, \确定要删除此条数据？\
If 删除结果 = 6 Then 删除 数据库路径, Input删除 Loop
ElseIf InputHome = \ Do
Input增加 = InputBox(\退出：Q 主页：H\格式：姓名|年龄|身高\例如：李雷|18|1.52\增加·请输入要增加的一条数据\
If Input增加 = \增加 = \ ElseIf Input增加 = \增加 = \ ElseIf UBound(Split(Input增加, \ 增加 数据库路径, Input增加 End If loop
ElseIf InputHome = \ Else
InputHome = InputBox(\退出：Q 主页：H\查询：1 搜索：2 删除：3 增加：4\主页·请输入对应字符进行相关操作\ End If Loop EndScript
Function 查询(文本路径, 编号) Dim fso, myfile, i, flag, tempp flag = 1
Set fso = CreateObject(\ If fso.FileExists(文本路径) Then
Set myfile = fso.openTextFile(文本路径, 1, false) Else
flag = 0 End If
For i = 1 To 编号 - 1
If Not myfile.AtEndOfLine Then myfile.SkipLine tempp = myfile.Line End If Next
If flag = 1 Then
If Not myfile.AtEndOfLine Then 查询 = myfile.ReadLine Else
查询 = \编号不存在！\ End If
myfile.close Else
查询 = \文件不存在！\ End If
Set fso = Nothing End Function
Function 搜索(文本路径, 关键字) Dim ForReading, ForWriting
ForReading = 1 : ForWriting = 2 : 搜索 = \ Dim objFSO, objFile, strLine, strNewFile
Set objFSO = CreateObject(\ Set objFile = objFSO.OpenTextFile(文本路径, ForReading) Do Until objFile.AtEndOfStream strLine = objFile.Readline
If Instr(1, strLine, 关键字) > 0 Then 搜索 = strLine & \搜索 TracePrint \搜索=\搜索
strNewFile = strNewFile & strLine & vbcrlf Loop
objFile.Close
Set objFile = objFSO.OpenTextFile(文本路径, ForWriting) objFile.Write strNewFile objFile.Close
Set objFSO = Nothing End Function
Sub 删除(文本路径, 编号)
Dim ForReading ,ForWriting ForReading = 1 ForWriting = 2
Dim objFSO,objFile,strLine,strNewFile
Set objFSO = CreateObject(\ Set objFile = objFSO.OpenTextFile(文本路径,ForReading) Do Until objFile.AtEndOfStream
strLine = objFile.Readline
If CInt(编号) = objFile.Line - 1 or CInt(编号) = 0 Then strNewFile = strNewFile Else
strNewFile = strNewFile & strLine & vbcrlf End If
Loop
objFile.Close
Set objFile = objFSO.OpenTextFile(文本路径,ForWriting) objFile.Write strNewFile objFile.Close
Set objFSO = Nothing End Sub
Sub 增加(文本路径, 文本内容) Dim ForReading ,ForWriting ForReading = 1 : ForWriting = 2
Dim objFSO, objFile, strLine, strNewFile
Set objFSO = CreateObject(\ Set objFile = objFSO.OpenTextFile(文本路径, ForReading) Do Until objFile.AtEndOfStream strLine = objFile.Readline
strNewFile = strNewFile & strLine & vbcrlf Loop
TracePrint objFile.Line
strNewFile = strNewFile & objFile.Line & \文本内容 & vbcrlf objFile.Close
Set objFile = objFSO.OpenTextFile(文本路径, ForWriting) objFile.Write strNewFile objFile.Close
Set objFSO = Nothing End Sub EndScript
'六、3、动态监控文本内容,当文本内容增加时(文本内容不会减少)自动输出增加的内容到所有标题包含\接收\关键字的文本(批量消息发送器),请写出代码
'六、4、写一个子程序,可以改变窗口内的某个子窗口的大小为特定值,子窗口大小随顶层窗口变化而比例变化(提示:改变顶层窗口,判断子窗口大小),请写出代码
'六、5、利用函数输出杨辉三角,需要的参数为杨辉三角的行数,请写出代码 '六、杨辉三角百度说明:http://baike.http://www.china-audit.com//view/7804.htm
'五：1、写出三种计算颜色相似度的算法,函数返回值为相似度.请写出代码 MsgBox 颜色相似度1(\颜色相似度1\MsgBox 颜色相似度2(\颜色相似度2\MsgBox 颜色相似度3(\颜色相似度3\Function 颜色相似度1(当前颜色, 对比颜色)
Call Plugin.Color.ColorToRGB(当前颜色, R1, G1, B1) Call Plugin.Color.ColorToRGB(对比颜色, R2, G2, B2)
颜色相似度1 = 1 - round((abs((R1 - R2) / 255) + abs((G1 - G2) / 255) + abs((B1 - B2) / 255)) / 3, 3) End Function
Function 颜色相似度2(当前颜色, 对比颜色)