《医药信息技术基础实践指导》答案(作者晏峻峰)

1、根据信息加工的层次，可将文献划分为不同等级，一般将文献综述、词典工具、专题评述等归为__________。

(三次文献)2、国际疾病分类（ICD）是依据疾病的病因、部位、病理和_______4个主要特征来分类疾病，并用编码的方法来表示。

(临床表现)3、根据信息的来源不同，信息系统中的信息收集工作通常分为______收集和二次信息收集两种。

(原始数据)4、数据挖掘是从存放_数据库、数据仓库或其他信息库中的大量数据中挖掘有用知识的过程。

5、根据信息加工的层次，可将文献划分为不同等级，一般将专利文献、科技报告、学位论文等归为_____________。

(一次文献)6、ICD采用的分类的编码方法是四轴三层。

三层是_____________、亚目和细目，下一层分类从属于上一层，是上一层的细分。

(类目)7、以_____________为核心，以网络为技术支撑环境是信息系统的基本特点之一。

(数据库)8、数据挖掘是从存放在数据库、数据仓库或其他信息库中的大量数据中挖有用知识的过程9、根据信息加工的层次，可将文献划分为不同等级，一般将文献目录、文献摘要、文献索引等归为___________。

(二次文献)10、ICD采用的分类的编码方法是四轴三层。

三层是类目、____________和细目，下一层分类从属于上一层，是上一层的细分。

(亚目)11、目前信息系统在医学领域的应用主要有三方面：__________、医学信息数据库及其应用和计算机辅助诊断治疗。

(计算医学)12、数据挖掘是从存放在数据库、________________或其他信息库中的大量数据中挖掘有用知识的过程。

(数据仓库)13、根据应用领域对医学信息的划分，护理信息属于________信息，医学教育信息属于________信息。

( 临床医疗 ) ( 医学管理 )14、根据信息的来源不同，信息系统中的信息收集工作通常分为原始数据收集和_二次信息收集两种。

1、数据管理技术发展过程中，文件系统与数据库系统的重要区别是数据库系统具有数据的可供共享性。

对错错误参考答案：错2、作为HIS的组成部分，联机事务分析（OLAP）属于HIS结构中的第二层次。

对错错误参考答案：对3、在远程医学应用中，保密性和安全性是关键问题之一。

对错错误参考答案：对4、ICD作为一种信息标准，属于信息交换标准。

对错错误参考答案：错5、电子健康档案系统记录了有关个人的终身健康信息和医疗保健行为信息。

对错错误参考答案：对6、人体外信息是医学信息学研究的主要对象。

对错错误参考答案：对7、在Access中，窗体或报表事件可以有两种方法来响应：宏和事件过程。

对错错误参考答案：对8、在Access中，书写查询准则时，文本值应该用一对方括号进行界定。

对错错误参考答案：错9、建立决策支持的关键是应对决策问题所依据的原则，在什么情况下、在多大氛围内和要求采取什么样的行动等问题进行分析。

本质就是系统分析。

对错错误参考答案：错10、在Access中，若在一个窗体中使用多个表或查询为数据源，则应首先建立一个由多个表或查询组成的新的查询。

对错错误参考答案：对保存判断题阅卷二、单选题保存单选题阅卷1、决策支持系统的作用是______。

只支持高层管理人员决策只支持专业人员进行决策辅助各层管理人员决策代替一般人员进行决策错误参考答案：C2、利用ACCESS创建的数据库文件，其扩展名为_______。

DBFACCDTACCDPACCDB错误参考答案：D3、在ACCESS提供的报表类型中，以多列方式显示的是______。

纵栏式报表表格式报表图表报表标签报表错误参考答案：D4、支持管理信息系统的数据库系统由_____等几部分组成。

应用程序模式和子模式数据库和数据库管理系统以上全是错误参考答案：D5、在医学图像成像技术中，CR的中文含义是_______。

核磁共振成像放射性核素图象X线成像技术计算机断层照相术错误参考答案：C6、在VBA中，定义了二维数组B(2 to 6，4)，则该数组的元素个数为______。

医药信息检索题库文献信息检索课上机考试：单选、多选、判断题，共100道题。

第一页1. 在特定的时间为了特定的目的二传递的有使用价值的信息可称之为（D）A信息B文献C知识D情报2. 通过（D ）能将知识容与物质载体统一成为文献。

A知识容B信息符号C物质载体D记录方式3. 根据国家相关标准，文献的定义是指“记录有(C )的一切载体”。

A情报B信息C知识D数据4. 以作者本人取得的成果为依据而创造的论文、报告等，并经过公开发表或出版发表的各种文献，称为（B）A零次文献B一次文献C二次文献D三次文献5. 文摘、题录、目录等属于(B)：A一次文献B二次文献C零次文献D三次文献6. 从信息检索角度看，文献类型中一般不作为主要检索对象的是:（A）A图书B期刊C科技报告D会议文献7. 文献是记录知识的载体，因此各种光盘数据库、网络数据库也属于文献的畴。

此说法是否正确？（√）8. 情报可能是知识，可能是文献，但文献、知识不一定是情报，此说确吗？（√）9.文献是知识，但知识不一定是文献，此说确吗？（√）10.知识是信息，但信息不一定是知识，此说确吗？（√）11.情报是信息，但信息不一定是情报，此说确吗？（√）12.文献是记录知识的载体，因此各种光盘数据库、网络数据库也属于文献的畴。

此说法是否正确。

（√）13.信息符号是赖以揭示和表达知识容的标识符号（√）14. 知识是人类社会实践经验的总结，是人的主观世界对于客观世界的概括和如实反映。

（√）15．知识容是文献的灵魂所在（√）16. —切事物包括自然界和人类社会都会产生信息（√）17.情报具有传递性、效用性和知识性的特点（√）18.信息、知识、情报的关系是信息包含知识、知识包含情报、知识来源于信息（√）19.文献由知识容、信息符号和载体材料三个不可分割的基本要素构成（×）20.文献知识的容与其记录方式、载体材料无关（√）21.文献是记录知识的一切载体，即用文字、图像、符号等手段记录人类知识的各种载体（√）22.文献是记录有知识的（A）A.载体B.纸C.光盘D.磁盘23.人类从改造世界的实践中所获得的知识和经验总结可称为（C）A.信息B.文献C 知识D情报24.在公开出版物中，当前的（D）反应的信息容可能最新A学位论文B标准文献C期刊论文D报纸文献25.(A)类型的专业文献出版周期最短、发行量最大、报道最迅速及时。

2023年-2024年《医学信息学》理论知识考试题库（含答案）一、单选题1.基本医疗保险网络覆盖地域广，一般采用()A、广域网B、城域网C、局域网D、以太网参考答案：A2.区域卫生服务是()的一个典型实例A、数据共享B、数据存储C、数据传输D、数据采集参考答案：A3.()是信息的源泉A、数据B、物质C、知识D、事实参考答案：B4.信息的()是指信息存在老化、过时的问题，需要不断收集和补充新的信息A、更替性B、可存储性C、共享性D、可传递性参考答案：A5.社区信息不包括()A、自然环境信息B、社区保健信息C、社会人文环境信息D、社区资源信息参考答案：B6.预警平台基于移动百分位数法计算参比数据，实现以()为单位滚动A、时B、日C、周D、月参考答案：B7.一般来说，IRM可分为三个层次，不包括以下哪个层次()A、国家的B、个人的C、组织的D、社会的参考答案：A8.自2000到2004年度，美国医学信息学的毕业生人数增长了()倍A、5B、7C、8D、9参考答案：B9.我国的医学信息学发展，起步于医学图书和()专业。

A、情报管理B、信息管理C、生物学D、计算生物学参考答案：A10.ICD的主要分类编码主要有三个层次，其中“亚目”是()数编码A、两位B、三位C、四位D、五位参考答案：C11.新型农村合作医疗制度遵循以下原则建立不包括()A、政府组织，农民自愿B、多方筹资，封闭运行C、以收定支，保障适度D、强制要求参考答案：D12.中医通过望闻问切()等手段，获取患者数据A、手段B、载体C、方式D、诊断参考答案：B13.医院信息系统的英文缩写为()A、PACSB、HISC、RISD、IIS参考答案：B14.临床术语大致可以分为三种类型，不包括()A、数据术语B、应用程序术语C、界面术语D、参考术语参考答案：A15.二进制的发明人是()。

A、冯诺依曼B、香农C、莱布尼茨D、图灵参考答案：C16.美国医药信息学会的简称是()A、AMIAB、AIMAC、AMID、MIA参考答案：A17.在采集临床数据方面，其数据特点是以定性的()为主A、模糊数据B、统计数据C、精确数据D、逻辑数据参考答案：A18.第一代电子计算设备问世时间是()A、20世纪30年代B、20世纪40年代C、20世纪50年代D、20世纪60年代参考答案：B19.载体就是指承载()的媒体A、数据B、知识C、信息D、消息参考答案：C20.医学信息与管理系统协会成立于()年在芝加哥初创A、1961B、1916C、1962D、1926参考答案：A21.生物大分子不包括()A、DNAB、RNAC、蛋白质D、氨基酸参考答案：D22.数据挖掘的核心技术不包括()A、人工智能B、机器学习C、统计学D、大数据分析参考答案：D23.1959年，ISO决议将每年()定为“国际标准日”A、10月14日B、10月15日C、10月16日D、10月17日参考答案：A24.()是应用最为广泛的局域网A、以太网B、令牌环网C、FDDI网D、AIM网参考答案：A25.信息系统安全可以从三个维度来考虑，其中不包括()A、OSI网络参考模型B、安全保护C、安全机制D、安全服务参考答案：B26.ICD的主要分类编码主要有三个层次，其中“类目”是()数编码(类目，亚目，细目)A、两位B、三位C、四位D、五位参考答案：B27.局域网的特点不包括()A、连接范围宽B、用户少C、配置容易D、连接范围窄参考答案：A28.我国现有的公共卫生体系应该履行的十项基本职能不包括()A、检测人群健康相关状况B、疾病或健康危害事件的预防和控制C、发展健康的公共政策和规划D、传播公共卫生相关知识参考答案：D29.医院信息系统为医院的整体运行提供全面的、()的管理及各种服务的信息系统A、自动化B、共享C、人工化D、机械化参考答案：A30.电子病历的设计原则不包括()A、以病人为中心的设计原则B、以问题为核心的设计原则C、以时间为顺序的设计原则D、以医生为中心的设计原则参考答案：DN的中文名称为()A、互联网B、局域网C、以太网D、广域网参考答案：B32.对医学信息学进行分类的方法不包括()A、信息与知识的表达B、信息与知识处理C、经验性研究D、信息和知识整合参考答案：D33.借助于PACS，医院就可以实现医学影像的()管理A、无片化B、共享化C、系统化D、规范化参考答案：A34.由两个或多个原子概念组合而成的复合概念能够极大地增强词汇的表达能力，这种复合概念被称之为()A、配合性B、组配性C、共享性D、匹配性参考答案：B35.()是一种最新最热的一种局域网A、以太网B、FDDI网C、无线局域网D、ATM网参考答案：C36.我国于()年开始参加世界医药信息学大会。

《医学信息技术基础》测试题（附参考答案）1、下列关于操作系统的叙述，错误的是( )。

A、操作系统是系统软件的核心B、Linux 操作系统是开放的32 位操作系统C、UNIX 操作系统属于单用户单任务操作系统D、操作系统具有：处理机、存储、设备、文件和作业等五大管理功能答案：C2、用高级语言编写的程序称为( )。

A、源程序B、连接程序C、编辑程序D、编译程序答案：A3、PowerPoint 2010 中可以对幻灯片进行移动、删除、添加、复制、设置切换效果，但不能编辑幻灯片中具体内容的视图是( )。

A、幻灯片浏览视图B、幻灯片放映视图C、普通视图D、阅读视图答案：A4、Windows 7 桌面小工具中无法添加的小工具是( )。

A、日历B、CPU 仪表盘C、天气D、屏保程序答案：D5、有关磁盘分区的正确说法是( )A、在 Windows7 中以管理员身份登录后可管理磁盘分区B、在 Windows7 中以任一身份登录都可管理磁盘分区C、不能在 Windows7 中管理磁盘分区D、在 Windows7 中以来宾账户身份登录可管理磁盘分区答案：A6、20 世纪 80 年代，国际标准化组织颁布了( )，促进了网络互联的发展。

A、FTPB、OSI/RMC、TCP/IPD、SNMP答案：B7、计算机病毒是一种( )。

A、特殊细菌B、特殊程序C、有害生物D、生物病毒答案：B8、如果要在第三张幻灯片之前插入新幻灯片，则应选择( ) 幻灯片为当前幻灯片。

A、第一张B、第四张C、第三张D、第二张答案：D9、在 SQL 查询语句中，( )子句用于指明要选取的字段。

A、order byB、SelectC、fromD、where答案：B10、在 Windows 7 中，下列叙述正确的是( )。

A、按 Shift+Delete 组合键删除的文件，可以从“回收站”中恢复B、删除 U 盘上的文件可以从“回收站”中恢复C、“回收站”和“剪贴板”都是内存的一部分D、当重启计算机后，“回收站”中的文件不会消失答案：D11、数据管理技术的发展经历了人工管理、文件系统管理和 ( ) 三个阶段。

《医药信息技术基础实践指导》作者：晏峻峰练习答案答案由“晓英振辉奇葩计算机”提供（红色加粗是检索词，绿色是备注）Public Class Form1Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ClickDim var1 As Integer, var2 As Stringvar1 = 12345var2 = InputBox("输入Var2=", "输入对话框")MsgBox(var2 & Chr(13) + Chr(10) & "var1=" & Str(var1))'MsgBox(var2 & vbCrLf & "var1=" & Str(var1))End SubEnd Class定义不同变量Public Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim a As Short ‘短型Dim b As Single ‘单精度Dim c As Integer ‘整型Dim d As DateDim e1 As StringDim f As Boolean ‘判断Dim g As StringDim h As Double ‘双精度Dim i As SingleDim j(4, 3) As Integera = 3.25b = 546.2c = 5383149d = #12/31/2003#e1 = "ABCDEF"f = Falseg = "123456"h = 3.24E+100i = 1.2563E+15j(0, 0) = 456MsgBox(a & vbCrLf & b & vbCrLf & c & vbCrLf & d & vbCrLf & e1 & vbCrLf & f & vbCrLf & g & vbCrLf & h & vbCrLf & i & vbCrLf & j(0, 0))End Sub分析不同表达式，定义并输出结果Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickDim x21, x22, x23, x24 As SingleDim x25, x27, x28 As BooleanDim x26 As Stringx21 = Sqrt(3 ^ 2 / (2 * 4)) ‘开方x22 = +Abs(0.123 - 3) ‘绝对值x23 = -Sin(30)x24 = Exp(6) + Log(2.135) ‘e的6次方x25 = 89 & 12 <> 8912x26 = "AB" + Str(32.56) + "CD"'x27 = Mid("student", 5) = "ent" And (5 > 2) ‘右边数三位x27 = Microsoft.VisualBasic.Right("student", 3) = "ent" And (5 > 2)x28 = Not (6 > 2) Or (7 < 9)MsgBox(x21 & vbCrLf & x22 & vbCrLf & x23 & vbCrLf & x24 & vbCrLf & x25 & vbCrLf & x26 & vbCrLf & x27 & vbCrLf & x28)End Sub一百以内随机数Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickDim y As Integery = Int(Rnd() * 100)MsgBox(y)End Sub任意字符串测长度Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.ClickDim y As StringDim y1 As Integery = "VB程序设计语言"y1 = Len(y)MsgBox(y & "长度为" & y1)End Sub给出字符串查片段位置Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.ClickDim y As Integery = InStr("abc student", "stu")MsgBox(y)End Sub除去字符串两边空格Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.ClickDim y As Stringy = Trim(" Visual C ++ ")MsgBox("去除左边空格" & y & "去除右边空格")End Sub测字符串所占字节数Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.ClickDim y As StringDim y1 As Integery = "VB程序设计语言"y1 = Len(y) * 2 ‘字符串长度×2MsgBox(y & " 字节数为" & y1)End Sub字符串反序排列Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.ClickDim y, y1 As Stringy = "我去资料室查资料"y1 = StrReverse(y)MsgBox(y1)End Sub从字符串中截取字符Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.ClickDim y, y1 As Stringy = "我去资料室查资料"y1 = Mid(y, 3, 3) ‘左边数第三个，数三个MsgBox(y1)End Sub截取字符Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.ClickDim y, y1 As Stringy = "我去资料室查资料"y1 = Mid(y, 7, 2)'y1 = Microsoft.VisualBasic.Right(y, 2)MsgBox(y1)End Sub在字符串中插入空格Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.ClickDim y, y1 As Stringy = "Thisisabook"y1 = Mid(y, 1, 4) & Space(1) & Mid(y, 5, 2) & Space(1) & Mid(y, 7, 1) & Space(1) & Mid(y, 8)MsgBox(y1)End Sub求字母ASCII码Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.ClickDim y As Integery = Asc("Z")MsgBox(y)End Sub计算日期间隔Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.ClickDim y As DateDim y1, y2, y3 As Integery = "2013-1-1"y1 = DateDiff(DateInterval.Month, y, Today())y2 = DateDiff(DateInterval.WeekOfYear, y, Today())y3 = DateDiff(DateInterval.Day, y, Today())MsgBox(y1 & "个月" & y2 & "个星期" & y3 & "天")End Sub字符串转化为数值Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.ClickDim y As StringDim a As IntegerDim y1 As Integery = "42897"y1 = Val(y)a = MsgBox(y1, vbOKCancel)If vbOK = a ThenMsgBox(a)End IfEnd Sub改变数值的输出形式（小数位数）Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.ClickDim y As Singley = 3287.153MsgBox(Format(y, "000.00"))End Sub输出数据（每行四个，数据间隔四格，数值型00000.00，字符型@@@@@@@@，日期型ddddddPrivate Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.ClickDim z1, z2, z3, z4 As SingleDim z5, z6, z7 As StringDim z8 As Datez1 = 45.632z2 = 8246.25z3 = 123.8z4 = 45627z5 = "student"z6 = "permanence"z7 = "teachers"z8 = #4/5/2004#MsgBox(Format(z1, "00000.00") & " " & Format(z2, "00000.00") & " " & Format(z3, "00000.00") & " " & Format(z4, "00000.00") & vbCrLf & Format(z5, "{0,-8}") & " " & Format(z6, "{0,-8}") & " " & Format(z7, "{0,-8}") & " " & Format(z8, "d")) ‘换行End SubEnd ClassIf语句，select语句进行有条件的计算，成绩排名，大小排序Public Class Form1数学公式计算格式，含平方根Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim a As String, b As String, c As StringDim x1 As Single, x2 As Singlea = InputBox("输入A", "输入数据Y", , 500, 500)b = InputBox("输入B", "输入数据Y", , 500, 500)c = InputBox("输入C", "输入数据Y", , 500, 500)x1 = -b +Math.Sqrt(b ^ 2 - 4 * a * c) / 2 / ax2 = -b - Math.Sqrt(b ^ 2 - 4 * a * c) / 2 / aMsgBox("x1=" & Format(x1, "###.###") & " x2=" & Format(x2, "###.###")) End Sub公式计算Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickDim x As IntegerDim y As IntegerDim z As Singlex = 5y = 9z = (x ^ 3 + x * y + y ^ 3) / (2 * x * y)MsgBox("(x ^ 3 + x * y + y ^ 3) / (2 * x * y)=" & z)End Sub公式计算，含对数，绝对值Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickDim x As SingleDim y As Singlex = InputBox("输入x")y = Math.Log(20) + Math.Abs(x - 16)MsgBox("Math.Log(20) + Math.Abs(x - 16)=" & y)End SubPrivate Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.ClickDim x As SingleDim y As Singlex = InputBox("输入x")y = 0.231 * x + 1.36MsgBox("0.231 * x + 1.36=" & y)End Sub公式计算，角度转换Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.ClickConst g As Single = 9.81Dim v As Single, o As Single, t As Single, s As Singlev = InputBox("输入初速度")o = InputBox("输入角度")t = 2 * v * Math.Sin(o * Math.PI / 180) / gs = v * Math.Sin(2 * o * Math.PI / 180) / gMsgBox("落地所需时间" & t & " 落地时运动的射程" & s)End SubEnd ClassPublic Class Form1If语句，随机函数产生奇，偶数，Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim x As Integerx = Int(Rnd() * 100)If x Mod 2 = 0 ThenMsgBox(x & "是偶数")ElseMsgBox(x & "是奇数")End IfEnd SubIf语句找出a，b，c中最大最小数Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickDim a As Single, b As Single, c As Single, x As Single, y As Singlea = InputBox("请输入a")b = InputBox("请输入b")c = InputBox("请输入c")If a > b Thenx = ay = bElsex = by = aEnd IfIf c > a Thenx = cElseIf c < b Theny = cEnd IfEnd IfMsgBox("最大数" & x & " 最小数" & y)End SubIf 语句进行有条件的计算Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickDim t As Single, f As Singlet = InputBox("请输入t")If t < 120 Thenf = 0.06 * t + 2MsgBox("f = 0.06 * t + 2=" & f)Elsef = 0.06 * t * 0.85MsgBox("f = 0.06 * t * 0.85=" & f)End IfEnd SubIf语句排成绩等级Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.ClickDim x As SingleDim y As Stringx = InputBox("请输入成绩")If x >= 90 Theny = "A"ElseIf x >= 80 Theny = "B"ElseIf x >= 70 Theny = "C"ElseIf x >= 60 Theny = "D"Elsey = "E"End IfMsgBox("成绩" & x & "等级为" & y)End SubSelect语句进行有条件的计算Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.ClickDim x As Single, y As Singlex = InputBox("请输入x")Select Case xCase Is <= -1y = x - 1Case Is <= 2y = 2 * xCase Is <= 10y = x * (x + 2)Case Elsey = 0End SelectMsgBox("y=" & y)End SubPrivate Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.ClickDim a As String, b As String, c As StringDim x1 As Single, x2 As Single, x As Singlea = InputBox("输入A", "输入数据Y", , 500, 500)b = InputBox("输入B", "输入数据Y", , 500, 500)c = InputBox("输入C", "输入数据Y", , 500, 500)x = b ^ 2 - 4 * a * cIf x >= 0 Thenx1 = -b + Math.Sqrt(x) / 2 / ax2 = -b - Math.Sqrt(x) / 2 / aMsgBox("x1=" & Format(x1, "###.###") & " x2=" & Format(x2, "###.###")) Elsex1 = Math.Sqrt(-x) / 2 / ax2 = -Math.Sqrt(-x) / 2 / aMsgBox("x1=" & -b / 2 / a & x1 & "i x2=" & -b / 2 / a & x2 & "i") End IfEnd SubPrivate Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.ClickDim x As Single, y As Singlex = InputBox("请输入x")If x <= -1 Theny = x - 1ElseIf x <= 2 Theny = 2 * xElseIf x <= 10 Theny = x * (x + 2)End IfMsgBox("y=" & y)End SubEnd Class1.计算1/(1*2)+1/(2*3)+...+1/(n*n+1)Public Class Form1Dim a(19) As IntegerPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim i As IntegerDim n As IntegerDim s As Singles = 0n = InputBox("请输入n")For i = 1 To ns = s + 1 / (i * (i + 1))NextMsgBox("s=" & s)End Sub2.10个元素的数据，计算下标为奇数的元素和为偶数的元素和Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickDim a(10) As IntegerDim i As IntegerDim x As IntegerDim y As Integerx = 0y = 0For i = 1 To 10InputBox("请输入第" & i & "个数")If i Mod 2 = 0 Thenx = x + a(i)Elsey = y + a(i)End IfNextMsgBox("下标为奇数的元素和为" & y & "下标为偶数的元素和为" & x) End Sub3.正三角*Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickDim r As Integer, s As Integer, c As Integer, y(5) As String, j As Integer, ys As Stringys = ""r = 1Do While r <= 4c = 10 - r : s = 1y(r) = y(r) & Space(c + s)Do While s <= 2 * r - 1y(r) = y(r) & "*"s = s + 1Loopr = r + 1LoopFor j = 1 To 4ys = ys & y(j) & Chr(10)NextMsgBox(ys)End Sub4.倒三角*Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.ClickDim r As Integer, s As Integer, c As Integer, y(5) As String, ys As Stringys = ""r = 4Do While r >= 1c = 10 - r : s = 1ys = ys & Space(c + s)Do While s <= 2 * r - 1ys = ys & "*"s = s + 1Loopr = r - 1ys = ys & Chr(10)LoopMsgBox(ys)End SubPrivate Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.ClickEnd Sub5.随机函数产生0-100间正整数，统计50万元以上的人数Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.ClickDim s As StringDim i As IntegerDim x As IntegerDim y As Integerx = 0y = 0s = ""For i = 0 To 19a(i) = Int(Rnd() * 100)s = s & a(i) & ","If a(i) > 50 Thenx = x + 1ElseIf a(i) < 10 Theny = y + 1End IfNextMsgBox(s & vbCrLf & "50万元以上的业务人数为" & x & ",10万元以下的业务人数为" & y)End Sub6.20个数据从高到低排序Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click'Dim a(19) As IntegerDim t As IntegerDim i As IntegerDim j As IntegerDim x As StringDim y As Stringx = ""y = ""'For i = 0 To 19' a(i) = Int(Rnd() * 100)' x = x & a(i) & ","'NextFor i = 0 To 19For j = 19 To i + 1 Step -1If a(j) < a(j - 1) Thent = a(j)a(j) = a(j - 1)a(j - 1) = tEnd IfNexty = y & a(i) & ","NextMsgBox(x & vbCrLf & y)End Sub7.8位数的整数，0-9这10个数字出现次数Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.ClickDim a As IntegerDim b(9) As IntegerDim s As IntegerDim u As StringDim i As IntegerRandomize()a = Int(Rnd() * 90000000 + 10000000)For i = 0 To 7s = Mid(a, i + 1, 1)b(s) = b(s) + 1Nextu = "8位数为：(" & a & ")" & vbCrLfFor i = 0 To 9u = u & i & "出现次数：" & b(i) & vbCrLfNextMsgBox(u)End Sub8.产生20个8位整数Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.ClickDim b(19) As IntegerDim i As IntegerDim s As Strings = ""For i = 0 To 19b(i) = Int(Rnd() * 90000000 + 10000000)s = s & b(i) & vbCrLfNextMsgBox(s)End Sub9.Do while 做第1题，且当1/(n*n+1)<10＾-6才结束计算Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.ClickDim i As IntegerDim t As SingleDim s As Integeri = 1t = 1 / (i * (i + 1))s = 0Do While t >= 0.000001s = s + ti = i + 1t = 1 / (i * (i + 1))LoopMsgBox("s=" & s)End Sub10.Do until ……loopPrivate Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.ClickDim t As SingleDim s As Singlei = 1t = 1 / (i * (i + 1))s = 0Dos = s + ti = i + 1t = 1 / (i * (i + 1))Loop While t >= 0.000001MsgBox("s=" & s)End Sub11.动态数组Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.ClickDim a() As IntegerDim i As IntegerDim n As IntegerDim x As IntegerDim y As Integerx = 0y = 0n = InputBox("请输入数组的数量")ReDim a(n)For i = 1 To na(i) = InputBox("请输入第" & i & "个数")If i Mod 2 = 0 Thenx = x + a(i)Elsey = y + a(i)End IfNextMsgBox("下标为奇数的元素和为" & y & "下标为偶数的元素和为" & x) End Sub12.输入字符串，递减排序Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.ClickDim s As StringDim y As StringDim t As StringDim i As IntegerDim j As IntegerDim l As Integert = ""y = ""s = InputBox("请输入要排序的字符串")l = Len(s)ReDim a(l)For i = 1 To la(i) = Mid(s, i, 1)NextFor i = 1 To lFor j = l To i + 1 Step -1If a(j) < a(j - 1) Thent = a(j)a(j) = a(j - 1)a(j - 1) = tEnd IfNexty = y & a(i)NextMsgBox(s & vbCrLf & y)End Sub13.N阶魔方阵（不会考啦）Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.ClickDim n As IntegerDim i As IntegerDim j As IntegerDim s As StringDim t As StringDim i_0 As IntegerDim j_0 As IntegerDim mfz_bz(9, 9) As StringDim mfz(9, 9) As Stringn = InputBox("请输入魔方阵阶数N")If n < 3 Or n > 9 Or n Mod 2 <> 1 ThenMsgBox("您输入的魔方阵阶数N 不在范围内，请输入3-9之间的奇数") Exit SubEnd If'初始化For i = 1 To 9For j = 1 To 9mfz_bz(i, j) = 0mfz(i, j) = ""Next jNext imfz(1, n \ 2 + 1) = 1mfz_bz(1, n \ 2 + 1) = 1i_0 = 1j_0 = n \ 2 + 1For ysz = 2 To n * nIf mfz(i_0, j_0) > n And (mfz(i_0, j_0) Mod n = 0) Theni = i_0 + 1j = j_0ElseIf i_0 = 1 Theni = nj = j_0 + 1ElseIf j_0 = n Theni = i_0 - 1j = 1Elsei = i_0 - 1j = j_0 + 1End IfIf mfz_bz(i, j) = 1 Theni = i_0 + 1j = j_0End Ifmfz(i, j) = yszmfz_bz(i, j) = 1i_0 = ij_0 = jNext yszMsgBox("魔方阵排列完毕")s = ""For i = 1 To 9For j = 1 To 9t = mfz(i, j)s = s & Format(t, "{0,4}")Nexts = s & vbCrLfNextMsgBox(s)End SubEnd Class1 汽油收费计算的程序窗体Public Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim t As Integer, f As Single, x As Stringt = Val(TextBox1.Text)f = 7.69 * tx = Str$(f) + "元"Label2.Text = xTextBox1.Focus()End SubPrivate Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LoadTextBox1.Text = ""Label2.Text = ""End SubEnd Class2 检测体重是否超标的程序Public Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim x As IntegerIf TextBox1.Text = "" ThenTextBox1.Focus() '在文本框1输入身高MsgBox("请输入身高")Exit SubEnd IfIf TextBox2.Text = "" ThenTextBox2.Focus() '在文本框2输入体重MsgBox("请输入体重")Exit SubEnd If'选择性别If RadioButton1.Checked = False And RadioButton2.Checked = False Then '此种情况不会发生MsgBox("请选择被检测者性别")Exit SubEnd IfIf RadioButton1.Checked = True Thenx = Val(TextBox1.Text) - 100 '计算男性体重ElseIf RadioButton2.Checked = True Thenx = Val(TextBox1.Text) - 105 '计算女性体重End If'判断体重是否超标，并显示If Val(TextBox2.Text) > x ThenLabel3.Text = "体重超标，请注意饮食与运动！"ElseLabel3.Text = "体重正常"End IfEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click'清除计算体重和超标提示Label3.Text = "" : TextBox1.Text = "" : TextBox2.Text = ""RadioButton1.Checked = False : RadioButton2.Checked = FalseEnd SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickEnd '结束工程运行End SubPrivate Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LoadMe.Show()TextBox1.Focus()End SubEnd Class3医生录入病人信息和病案信息Public Class Form1Dim x As Integer, varstring As StringPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadTextBox3.Enabled = FalseButton1.Enabled = FalseTextBox3.Font = New Font("宋体", 10, FontStyle.Regular)End SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickEndEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickSelect Case TrueCase CheckBox1.Checked = True And CheckBox2.Checked = FalseTextBox3.Font = New Font("宋体", 10, FontStyle.Bold)Case CheckBox2.Checked = True And CheckBox1.Checked = FalseTextBox3.Font = New Font("宋体", 10, FontStyle.Italic)Case CheckBox1.Checked And CheckBox2.CheckedTextBox3.Font = New Font("宋体", 10, FontStyle.Bold Or FontStyle.Italic) Case CheckBox1.Checked = False And CheckBox2.Checked = FalseTextBox3.Font = New Font("宋体", 10, FontStyle.Regular)End SelectEnd SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickTextBox3.Enabled = TrueTextBox3.Text = TextBox1.Text & TextBox2.TextIf RadioButton1.Checked = True ThenTextBox3.Text = TextBox3.Text & RadioButton1.TextElseIf RadioButton2.Checked = True ThenTextBox3.Text = TextBox3.Text & RadioButton2.TextEnd IfPrivate Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocusx = Len(TextBox1.Text)If x <> 6 ThenBeep()TextBox1.Text = ""TextBox1.Focus()TextBox3.Clear()TextBox3.Text = "病历号为6位数字"ElseTextBox3.Clear()Button1.Enabled = TrueEnd IfEnd SubPrivate Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChangedEnd SubPrivate Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ShownEnd SubEnd Class4、图书馆借书程序Public Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickListBox1.Items.Add(ComboBox1.Text)End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickIf ListBox1.SelectedIndex = -1 ThenMsgBox("请选择要删除的书!")Exit SubEnd IfListBox1.Items.RemoveAt(ListBox1.SelectedIndex)Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickListBox1.Items.Clear()End SubPrivate Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.ClickDim num As Integernum = ListBox1.Items.CountFor i = 0 To num - 1If ListBox1.Items(i) = "内科学" Or ListBox1.Items(i) = "外科学" ThenMsgBox("您已经借阅了一本期刊,不能再借阅期刊!")Exit SubEnd IfNext iIf RadioButton1.Checked = True ThenListBox1.Items.Add("内科学")ElseIf RadioButton2.Checked = True ThenListBox1.Items.Add("外科学")End IfEnd SubEnd ClassPublic Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickListBox1.Items.Add(ComboBox1.Text)End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickWhile ListBox1.SelectedIndex > -1ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)End WhileEnd SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickListBox1.Items.Clear()End SubPrivate Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.ClickDim num As Integernum = ListBox1.Items.CountFor i = 0 To num - 1If ListBox1.Items(i) = "内科学" Or ListBox1.Items(i) = "外科学" ThenMsgBox("您已经借阅了一本期刊,不能再借阅期刊!")Exit SubEnd IfNext iIf RadioButton1.Checked = True ThenListBox1.Items.Add("内科学")ElseIf RadioButton2.Checked = True ThenListBox1.Items.Add("外科学")End IfEnd SubPrivate Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load'设置列表框多项选择ListBox1.SelectionMode = SelectionMode.MultiSimpleEnd SubEnd Class5、门诊诊病开方的应用程序Public Class Form1Dim Var As String, Hx As Integer, Vx As IntegerPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickVar$ = ComboBox1.Text + ComboBox2.Text + ComboBox3.Text + ComboBox4.TextSelect Case Var$Case Is = "肿痛轻度38度干咳"TextBox1.Text = "咽炎"Case Is = "化脓中度39度早起咳"TextBox1.Text = "扁桃体发炎"Case Is = "化脓重度40度有痰"TextBox1.Text = "肺炎"Case ElseTextBox1.Text = "重选"End SelectEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickMe.Close()End SubPrivate Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClickListBox2.Items.Add(ListBox1.Text)End SubPrivate Sub ListBox2_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox2.DoubleClick'首先判断列表框中的项是否大于0If (ListBox2.Items.Count > 0) Then'移出选择的项()'ListBox2.Items.Remove(ListBox2.SelectedItem)ListBox2.Items.RemoveAt(ListBox2.SelectedIndex)End IfEnd SubEnd ClassPublic Class Form1用组合框控件，标签，图片框附加图片Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadComboBox1.Items.Add("一")ComboBox1.Items.Add("二")ComboBox1.Items.Add("三")ComboBox1.Items.Add("四")ComboBox1.SelectedIndex = 0End Sub（根据组合框的名称选择图片）Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChangedSelect Case ComboBox1.SelectedIndexCase 0'PictureBox1.Load("xiamen1.jpg")PictureBox1.Image = My.Resources.xiamen1Case 1'PictureBox1.Load("xiamen2.jpg")PictureBox1.Image = My.Resources.xiamen2Case 2'PictureBox1.Load("xiamen3.jpg")PictureBox1.Image = My.Resources.xiamen3Case 3'PictureBox1.Load("xiamen4.jpg")PictureBox1.Image = My.Resources.xiamen4End SelectEnd SubEnd Class求三角函数的命令按钮事件Public Class Form1Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadTextBox1.Text = "" '初始化输入文本框Label2.Text = "" '初始化输出标签框End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim a, b As DoubleDim c As String '定义一个可存放部分输出结果的字符串变量c = ""If TextBox1.Text = "" ThenTextBox1.Focus() '如果没有输入任何时间,则强制返回文本框等待输入MsgBox("请输入计算数据") '提示用户输入时间Exit Sub '控制如果没有输入时间,不进行下面的计算,直接结束“计算”按钮的Click事件过程End IfIf RadioButton4.Checked = True Thenb = Val(TextBox1.Text) * Math.PI / 180 '判断是否输入角度?若是,进行弧度转换,否则不转换ElseIf RadioButton5.Checked = True Thenb = Val(TextBox1.Text)End If'判断进行何种计算,并进入对应的计算If RadioButton1.Checked = True Thena = Math.Sin(b)c = "Sin(" & TextBox1.Text & ")=" '将显示何种计算的内容转换为字符串ElseIf RadioButton2.Checked = True Thena = Math.Cos(b)c = "Cos(" & TextBox1.Text & ")=" '将显示何种计算的内容转换为字符串ElseIf RadioButton3.Checked = True Thena = Math.Tan(b)c = "Tan(" & TextBox1.Text & ")=" '将显示何种计算的内容转换为字符串。

《医学信息技术基础》模拟题含参考答案一、单选题（共100题，每题1分，共100分）1、在颜色模式 RGB 中,RGB(255,255,0)产生的是 ( )。

A、白色B、红色C、蓝色D、黄色正确答案：D2、将鼠标指针移至( )上拖曳, 即可移动窗口位置。

A、菜单栏B、格式栏C、标题栏D、状态栏正确答案：C3、在 Excel 2010 中， B1 单元格设定其格式为保留 0 位小数，当输入“44.51” 时，则可以显示 ( )。

A、44.51B、45C、44D、ERROR正确答案：B4、在 Excel 2010 中，“A2：D2 B1 ：C3”表示选中的单元格是 ( )。

A、A2 ，B1 ，C3 ，D2B、B1 ，C1 ，A2 ，B2 ，C2 ，D2 ，B3 ，C3C、B2 ，C2D、B1 ，C2 ，A2 ，D2 ，B3 ，C3正确答案：C5、在 Power Point 中,需同时移动多个图片时,可先选取多个图片后进行( )A、组合B、插入文本框C、插入对象D、取消组合正确答案：A6、在 Excel 2010 中，打印财务报表时，对所有负数用另一种颜色显示，利用的命令是 ( )。

A、条件格式B、数据筛选C、查找D、定位正确答案：A7、存放 512 个16×16 点阵的汉字，需要占用的存储空间为( )。

A、128KBB、16MBC、128MBD、16KB正确答案：D8、万维网引进了超文本的概念，超文本指的是( )。

A、包含图片的文本B、包含多种颜色的文本C、包含链接的文本D、包含多种文字的文本正确答案：C9、香农是( )的创始人。

A、信息论B、存储程序原理C、图灵机D、现代计算机理论正确答案：A10、插入影片操作应该在“插入”选项卡中单击“( ) ”按钮。

A、图片B、新幻灯片C、视频D、特殊符号正确答案：C11、如要关闭演示文稿,但不想退出 Power Point,可以( )A、选择“文件”选项卡,选择“关闭”选项B、关闭窗口C、单击窗口左上角的“控制菜单”按钮D、选择“文件”选项卡,选择“退出”选项正确答案：A12、对于信息，下列说法不正确的是( )。

1、在数据管理技术发展过程中，文件系统与数据库系统的重要区别是数据库系统具有专门的数据管理软件。

对错错误参考答案：对2、作为HIS的组成部分，决策支持（DSS）属于HIS结构中的第一层次。

对错错误参考答案：错3、广义的远程医学涵盖了远程医疗、远程保健、远程医学支持和医学信息服务四个方面的医学活动。

对错错误参考答案：错4、人体外信息是生物信息学(bioinformatics)的主要研究领域。

对错错误参考答案：错5、作为一种信息标准，SNOMED属于信息表达标准。

对错错误参考答案：对6、符号是构成数据的基本单元，是语法信息表达的基础。

对错错误参考答案：对7、在Access中，宏操作命令Close用于关闭报表。

对错错误参考答案：错8、在Access中，“必填字段”属性的取值有“是”或“否”两项。

对错错误参考答案：对9、贝叶斯定理决策法就是利用贝叶斯定理修正先验概率，求得后验概率，据此进行决策的方法。

对错错误参考答案：对10、在Access“报表向导”中设置字段排序时，一次最多能设置3个排序字段。

对错错误参考答案：错保存判断题阅卷二、单选题保存单选题阅卷1、医学决策支持系统的主要功能有：用药指导，______，医师指令的自动评价，自动报警、提示和警戒，诊断帮助等。

传递行政信息管理提示病例分析运行成本控制错误参考答案：A2、如果一张数据表中含有照片，那么在ACCESS中，“照片”这一字段的数据类型通常为______。

备注超链接OLE对象文本错误参考答案：C3、在ACCESS中，如果要在“医生基本信息”报表结尾处添加整个报表中医生数量的统计，可以将统计函数放在______中。

页面页脚组页脚报表页脚主体错误参考答案：C4、下面对办公信息系统特点的描述有错误的是_____。

设备驱动以技术为依托，以自动化设备为工具，为用户提供一个良好的自动化办公环境面向结构化的管理问题强调实时的工作方式错误参考答案：C5、医学信息系统由硬件和网络平台、软件系统、数据资源、______和操作人员等要素构成。

P384二、单选题1、医院信息化需要以什么为核心进行临床信息系统的统一规划，使之覆盖患者整个诊疗过程中的所有医疗业务和相关管理业务：电子病历2、什么是电子健康档案的主要信息来源和重要组成部分：电子病历3、电子健康是指以计算机网络为依托，以健康需求为导向，以下列哪项为基础，提供个性化服务的国民健康综合信息平台：电子健康档案4、什么是依附于医务人员的大脑、诊断程序或某种情景中的无形的非编码化的知识？如医务人员的临床经验、诊疗能力及技巧等：卫生隐性知识5、以美国为代表的技术学派认为：知识管理就是对信息的管理6、以日本为代表的行为学派认为：知识管理就是对人的管理7、负责卫生信息学标准的ISO技术委员会是：TC2158、负责卫生的信息收集、制定和推广工作的ANSI专业技术委员会是：HISB9.专门研究临床信息系统之间信息交换等卫生信息标准的CEN技术委员会是TC25110.负责卫生信息相关标准开发的ASTM技术委员会是E3111.根据疾病的某些特征将疾病分门别类进行编码的卫生信息标准是国际疾病分类（ICD）12.一种系统化和多轴的临床用语词汇表，用于描述和表达复杂的临床症状和论断，并且支持多方面编码的卫生信息标准是系统医学命名法13.美国以住院病人医疗费用及住院天数作为主要影响因素的疾病群代码系统，专门用于美国医疗保险预付制度的分类编码标准是诊断相关组（DRG）14.美国付账赔偿系统中为诊断和治疗过程提供的分类编码策略是通过过程术语（CPT）15.国际社区医疗分类标准是指ICPC16.HL7组织发布的用于电子病例结构的标准是HL7 CDA17、什么是HL7开发过程的关键构件，并给出了HL7标准星系需求的静态视图？HL7 RIM18、以下哪个为不同子系统之间的互联提供集成方案，促进医疗信息系统的集成？IHE19、以下哪个提供完整、详细的医院跨信息系统的信息交换格式，对医疗保险信息系统的完善产生了重大影响？X1220、以下哪个在隐私规定中定义了受保护的健康信息（PHI）？HIPAAP386多选题1、卫生信息学的研究内容包括：卫生信息处理医疗卫生信息系统卫生信息技术2、卫生星系技术（HIT）是以什么为主，研究卫生信息的获取、传输和处理的一门综合性技术？计算机技术通信技术3、卫生信息学的应用领域主要包括：医院信息化区域卫生信息化4、区域卫生信息化建设涉及的要素包括：居民电子健康档案基于健康档案的区域卫生信息平台国家统一的信息标准与规范基于区域卫生信息平台的业务应用系统5根据卫生信息的存在方式，卫生信息包括；人体内信息人体外信息6、卫生知识包括；显性知识隐性知识7、卫生管理研究的学派包括；技术学派行为学派综合学派8、从管理对象上讲，知识管理包含的要素包括；信息技术信息资源人力资源9．卫生信息分类的基本方法包括: ABDA.线分类法B.面分类法C.点分类法D.混合分类法10. 卫生信息编码的基本方法包括：ACA.命名法编码B.系统法编码C.分类法编码D.混合法编码11.WHO在卫生信息标准化方面的工作包括：ABA.WHO国际分类系列B.WHO统计信息指南C.WHO国际编码系列D.WHO卫生信息指南12.ICD分类原则采用以病因为主，以下哪些为轴心的基本原则? ABCA.解剖部位B.临床表现C.病理D.诊断结果13、下面那些是卫生信息交换标准？ABCA、HL7 Ｂ、DICOMＣ、X12 D、ICD-1014、2007年，中国医学信息会标准化委员会发布《国家卫生信息标准基础框架》的研究成果包括哪些标准文本？ABCA、《国家卫生信息数据模型》B、《卫生信息元数据描述框架》C、《国家卫生数据字典》D、《电子病历数据描述框架》15、2009年5月，卫生部卫生信息标准专业委员会制定了《健康档案基本架构与数据标准》，该标准主要包括：ABA、健康档案基本架构B、健康档案数据标准C、健康档案数据字典D、健康档案描述框架16、2009年12月，卫生部和国家中医药管理局组织制定了《电子病历基本架构与数据标准》，该标准主要包括：ABA、电子病历基本架构B、电子病历数据标准C、电子病历数据字典D、电子病历描述框架17.电子病历的体系架构是健康档案体系架构在医疗服务领域的具体体现，分别体现为（AB）Ａ就诊时间Ｂ疾病或健康问题Ｃ治疗效果 D 医疗服务活动18.区域卫生服务协同是基于以下哪些，实现医疗机构之间的业务协同，医疗机构和社区及纵向业务联动等（AC）A 医院信息平台B 电子病历C 区域卫生信息平台D 电子健康档案19．根据健康档案的内容不同，健康档案可包括（ABCD）A 基于HER卫生数据中心B 居民健康唯一标识（MPI）管理系统C 数据共享与交换平台D 医务人员一卡通管理系统20.区域卫生基础平台包括：基于HER卫生数据中心居民健康唯一标识管理系统数据共享与交换平台医务人员一卡通管理系统P387四、判断题1.卫生信息学是一门研究利用信息技术进行医疗卫生学科相关数据、信息和知识的获取、处理、存储、检索并有效管理与利用的学科。

'短型'单精度Dim c As Integer Dim d As DateDim el As String Dim f As Boolean Dim g As String Dim h As Double Dim i As SingleDim j(4, 3) As Integer，整型'判断'双精度《医药信息技术基础实践指导》作者：晏峻峰练习答案答案由“晓英振辉奇葩计算机”提供(红色加粗是检索词，绿色是备注)Public Class FormlPrivate Sub Forml_Click(ByVal sender As Object, By Vai e As System. Event Args) Handles Me.ClickDim varl As Integer, var2 As Stringvarl=12345var2 = lnputBox("输入Var2="/”输入对话框”)MsgBox(var2 & Chr(13) + Chr(10) & "varl=" & Str(varl))'MsgBox(var2 & vbCrLf & "varl=" & Str(varl))End SubEnd Class定义不同变量Public Class FormlPrivate Sub Buttonl_Click(ByVal sender As System.Object, ByVai e As System.EventArgs) Handles Buttonl.ClickDim a As ShortDim b As Single a = 3.25b = 546.2c = 5383149d = #12/31/2003#'开方'绝对值'e 的6次方el = “ABCDEF” f = False g = "123456" h = 3.24E+100 i = 1.2563E+15 j(0, 0) = 456MsgBox(a & vbCrLf & b & vbCrLf & c & vbCrLf & d & vbCrLf & el & vbCrLf & f & vbCrLf& g & vbCrLf & h & vbCrLf & i & vbCrLf & j(0, 0))End Sub分析不同表达式，定义并输出结果Private Sub Button2_Click(ByVal sender As System.Object, By Vai e As System.EventArgs) Handles Button2.ClickDim x21, x22, x23, x24 As Single Dim x25, x27, x28 As Boolean Dim x26 As Stringx21 = Sqrt(3 A 2/(2*4)) x22 = +Abs(0.123-3) x23 = -Sin(30)x24 = Exp(6) + Log(2.135) x25 = 89 & 12 <> 8912 x26 = "AB" + Str(32.56) + “CD”,x27 = MidCstudent", 5) = "ent" And (5 > 2)'右边数三位x27 = Microsoft.VisualBasic.Rightf'student", 3) = "ent" And (5 > 2) x28 = Not (6 > 2) Or (7 < 9) MsgBox(x21 & vbCrLf & x22 & vbCrLf & x23 & vbCrLf & x24 & vbCrLf & x25 & vbCrLf & x26 &vbCrLf & x27 & vbCrLf & x28)End Sub一百以内随机数Private Sub Button3_Click(ByVal sender As System.Object, By Vai e As System.EventArgs) Handles Button3.ClickDim y As Integer y = lnt(Rnd() * 100) MsgBox(y) End Sube As System.EventArgs)Private Sub Button5_Click(ByVal sender AsSystem.Object,By Vai e As System.EventArgs)e As System.EventArgs)e As System.EventArgs)任意字符串测长度Private Sub Button4_Click(ByVal sender As System.Object, ByVai Handles Button4.ClickDim y As String Dim yl As Integery = "VB 程序设计语言” yl = Len(y)MsgBox(y & "长度为"&yl) End Sub给出字符串查片段位置Handles Button5.ClickDim y As Integery = lnStr(H abc student", "stu") MsgBox(y) End Sub除去字符串两边空格Private Sub Button6_Click(ByVal sender As System.Object, By Vai Handles Button6.ClickDim y As Stringy = Tnm(H Visual C++ ")MsgBoxC 去除左边空格” & y & ”去除右边空格”) End Sub测字符串所占字节数Private Sub Button7_Click(ByVal sender As System.Object, By Vai Handles Button7.ClickDim y As String Dim yl As Integery = "VB 程序设计语言”yl = Len(y) * 2'字符串长度X2MsgBox(y & H 字节数为"& yl) End Sub字符串反序排列Private Sub Button8_Click(ByVal sender As System.Object, By Vai e As System.EventArgs)Handles Button8.ClickDim y, yl As Stringy = ”我去资料室查资料”yl = StrReverse(y)MsgBox(yl)End Sub从字符串中截取字符Private Sub Button9_Click(ByVal sender As System.Object, By Vai e As System.EventArgs) Handles Button9.ClickDim y, yl As Stringy = ”我去资料室查资料”yl = Mid(y, 3, 3) '左边数第三个，数三个MsgBox(yl)End Sub截取字符Private Sub ButtonlO_Click(ByVal sender As System.Object, By Vai e As System.EventArgs) Handles ButtonlO.ClickDim y, yl As Stringy = ”我去资料室查资料”yl = Mid(y, 7, 2)'yl = Microsoft.VisualBasic.Right(y, 2)MsgBox(yl)End Sub在字符串中插入空格Private Sub Buttonll_Click(ByVal sender As System.Object, By Vai e As System.EventArgs) Handles Buttonll.ClickDim y, yl As Stringy = "Thisisabook”8)As System.EventArgs)As System.EventArgs)yl = Mid(y / 1, 4) & Space(l) & Mid(y, 5, 2) & Space(l) & Mid(y, 7, 1) & Space(l) & Mid(y,MsgBox(yl) End Sub求字母ASCII 码Private Sub Buttonl2_Click(ByVal sender As System.Object, By Vai Handles Buttonl2.ClickDim y As Integer y = Asc("Z H ) MsgBox(y) End Sub计算日期间Private Sub Buttonl3_Click(ByVal sender As System.Object, By Vai Handles Buttonl3.ClickDim y As DateDim yl, y2, y3 As Integer y = "2013-1-1"yl = DateDiff(DatelntervaLMonth z y, TodayO)y2 = DateDiff(DatelntervaLWeekOfYear, y, TodayO) y3 = DateDifffDatelnterval.Day, y, TodayO)MsgBox(yl & ”个月 ” & y2 & ”个星期” & y3 & ”天”) End Sub字符串转化为数值Private Sub B utton 14_CI i ck( By Va I sender As System.Object, By Vai e As System. Event Args) Handles Buttonl4.ClickDim y As String Dim a As Integer Dim yl As Integer y = ”42897” yl = Val(y)a = MsgBox(yl # vbOKCancel) If vbOK = a ThenMsgBox(a) End If End Sub输出数据（每行四个，数据间数学公式计算格式,含平方根改变数值的输出形式(小数位数)Private Sub Buttonl5_Click(ByVal sender As System. Object, By Vai e As System.EventArgs) Handles Buttonl5.ClickDim y As Single y = 3287.153MsgBox(Format(y, "000.00")) End Sub四格，数值型00000.00,字符型@@@@@@@@,日期型 ddddddPrivate Sub Buttonl6_Click(ByVal sender As System. Object, By Vai e As System.EventArgs) Handles Buttonl6.ClickDim zl, z2, z3, z4 As Single Dim z5, z6, z7 As String Dim z8 As Date zl = 45.632 z2 = 8246.25 z3 = 123.8 z4=45627 z5 = "student"z6 = "permanence” z7 = "teachers" z8 = #4/5/2004#MsgBox(Format(zl, "OOOOO.OO") & ” ” & Format(z2, ”00000.00”)& Format(z3, ”00000.00”)& " " & Format(z4z ”00000.00”)& vbCrLf & Format(z5, ”{0广8}”)& " " & Fo rmat(z6, ”{0,-8}”)&、“ & Format(z7, ”{0,-8}”)& "" & Format(z8, %”)) ，换行End Sub End ClassIf 语句，select 语句进行有条件的计算，成绩排名，大小排序Public Class FormlPrivate Sub Buttonl__Click(ByVal sender As System.Object, By Vai e As System.EventArgs) Handles Buttonl.ClickDim a As String, b As String, c As Stringx2=n & Format(x2, ”###.###“))公式计算,含对数，绝对值As System.EventArgs)Dim xl As Single, x2 As Singlea = InputBoxf*输入 A”, ”输入数据 Y'',, 500, 500)b = lnputBox(H 输入 B”, ”输入数据 Y”,, 500, 500)c = lnputBox(H 输入 C”, ”输入数据 Y”,, 500, 500) xl = -b + Math.Sqrt(b A 2-4*a*c)/2/ax2 = -b - Math.Sqrt(b A 2-4*a*c)/2/a MsgBox(,,xl=" & Format(xl / ”###.###”) & ” End Sub公式计算Private Sub Button2_Click(ByVal sender As System.Object, By Vai e As System.EventArgs) Handles Button2.ClickDim x As Integer Dim y As Integer Dim z As Single x = 5 y = 9z = (x A 3 + x*y + y A 3)/(2*x*y)MsgBox("(x A 3 + x*y + y A 3)/(2*x* y)=" & z) End SubPrivate Sub Button3_Click(ByVal sender As System.Object, By Vai e As System.EventArgs) Handles Button3.ClickDim x As Single Dim y As Single x = lnputBox(H 输入 x H )y = Math.Log(20) + Math.Absfx -16)MsgBox("Math.Log(20) + Math.Abs(x -16)=" & y) End Sub Private Sub Button4_Click(ByVal sender As System.Object, By VaiHandles Button4.ClickDim x As Single Dim y As Singlex = lnputBox("输入 x") y = 0.231*x + 1.36 MsgBox(n 0.231 * x + 1.36=" & y) End Sub公式计算，角度转换Private Sub Button5_Click(ByVal sender As System.Object, By Vai e As System.EventArgs) Handles Button5.ClickConst g As Single = 9.81Dim v As Single, o As Single, t As Single, s As Singlev = lnputBox("输入初速度”)o = lnputBox("输入角度”)t = 2* v* Math.Sin(o * Math.PI / 180) / gs = v* Math.Sin(2 *o* Math.PI / 180) / gMsgBoxC落地所需时间” & t & ”落地时运动的射程” & s)End SubEnd ClassPublic Class FormlIf语句，随机函数产生奇，偶数,Private Sub Button 1_CIick(ByVaI sender As System.Object, ByVai e As System.EventArgs) Handles Buttonl.ClickDim x As Integerx = lnt(Rnd() * 100)If x Mod 2 = 0 ThenMsgBox(x&”是偶数“)ElseMsgBox(x & "是奇数”)End IfEnd SubIf语句找出a, b, c中最大最小数Private Sub Button2_Click(ByVal sender As System.Object, By Vai e As System.EventArgs) Handles Button2.ClickDim a As Single, b As Single, c As Single, x As Single, y As Singlea = lnputBox("请输入a")b = lnputBox("请输入b")c = lnputBox("请输入c")If a > b Thenx = ay = bElsex = by = aEnd IfIf c > a Thenx = cElseIf c< b Theny = cEnd IfEnd IfMsgBox("最大数” & x & ” 最小数” & y)End SubIf语句进行有条件的计算Private Sub Button3_Click(ByVal sender As System. Object, By Vai e As System. EventArgs) Handles Button3.ClickDim t As Single, f As Singlet = lnputBox("请输入t")If t< 120 Thenf = 0.06*t + 2MsgBox("f = 0.06 * t + 2=H & f)Elsef = 0.06* t* 0.85MsgBox(n f = 0.06 * t * 0.85=" & f)End IfEnd SubIf语句排成绩等级Private Sub Button4_Click(ByVal sender As System.Object, By Vai e As System.EventArgs) Handles Button4.ClickDim x As SingleDim y As Stringx = InputBoxC请输入成绩”)If x >= 90 Theny ="Elself x >= 80 Theny = "B"Elself x >= 70 Theny = ”c“Elself x >= 60 Theny = ,,D HElsey = ,,E nEnd IfMsgBox("成绩” &x& ”等级为" &y)End SubSelect语句进行有条件的计算Private Sub Button5_Click(ByVal sender As System.Object, By Vai e As System.EventArgs) Handles Button5.ClickDim x As Single, y As Singlex = InputBoxC'请输入x")Select Case xCase Is <= -1y = x -1Case Is <= 2y = 2 * xCase Is <= 10y = x * (x + 2)Case Elsey = 0End SelectMsgBox( W & y)End SubPrivate Sub Button6_Click(ByVal sender As System.Object, By Vai e As System.EventArgs) Handles Button6.ClickDim a As String, b As String, c As StringDim xl As Single, x2 As Single, x As Singlea = InputBoxC*输入A”, ”输入数据Y”,, 500, 500)b = InputBoxC'输入B”, ”输入数据Y”,, 500, 500)c = InputBoxC输入C”, ”输入数据Y'', f 500, 500)x=b A2-4*a*cIf x >= 0 Thenxl = -b + Math.Sqrt(x) / 2 / ax2 = -b - Math.Sqrt(x) / 2 / aMsgBox("xl=" & Format(xl z”###.###”)& ”x2=" & Format(x2, ”###.###”)) Elsexl = Math.Sqrt(-x) / 2 / ax2 = -Math.Sqrt(-x) / 2 / aMsgBox(,,xl=" & -b / 2 / a & xl & "i x2=" &-b/2/a&x2 & "i")End IfEnd SubPrivate Sub Button7_Click(ByVal sender As System.Object, By Vai e As System. EventArgs) Handles Button7.ClickDim x As Single, y As Singlex = lnputBox("请输入x")If x <= -1 Then y = x -1Elself x <= 2 Then y = 2 * xElself x<= 10 Then y = x * (x + 2)End IfMsgBox(,,y=H & y)End SubEnd Class1.计算l/(l*2)+l/(2*3)+...+l/(n*n+l)Public Class FormlDim a(19) As IntegerPrivate Sub Buttonl_Click(ByVal sender As System. Object, By Vai e As System.EventArgs) Handles Buttonl.ClickDim i As IntegerDim n As IntegerDim s As Single s = 0 n = InputBoxf"请输入n") For i = 1 To ns = s + l/(i*(i + l))NextMsgBox(,,s=" & s)End Sub2.10个元素的数据，计算下标为奇数的元素和为偶数的元素和Private Sub Button2_Click(ByVal sender As System.Object, ByVai e As System.EventArgs) Handles Button2.ClickDim a(10) As IntegerDim i As IntegerDim x As Integer Dim y As Integer x = 0 y = 0For i = 1 To 10lnputBox(H请输入第” & i & ”个数”) lfiMod2 = 0Thenx = x 4- a(i)Elsey = y+ a(i)End IfNextMsgBox(”下标为奇数的元素和为” &y&”下标为偶数的元素和为” & x) End Sub3.正三角*Private Sub Button3_Click(ByVal sender As System.Object, By Vai e As System.EventArgs) HandlesButton3.ClickDim r As Integer, s As Integer, c As Integer, y(5) As String, j As Integer, ys As String ys ="" r = lDo While r <= 4c = 10-r:s = ly(r) = y(r) & Space(c + s)Do Whiles<=2*r-1y(r) = y(r)&"*"s = s + 1Loopr = r + 1LoopForj = 1T O4ys = ys & y(j) & Chr(lO)NextMsgBox(ys)End Sub4.倒三角*Private Sub Button4_Click(ByVal sender As Sy stem. Object, By Vai e As System. Eve nt Args) Handles Button4.ClickDim r As Integer; s As Integer, c As Integer, y(5) As String, ys As String ys ="" r = 4Do While r >= 1c = 10-r:s = lys = ys & Space(c + s)Do Whiles<=2*r-1ys = ys & s = s + 1Loopr = r-1ys = ys & Chr(lO)LoopMsgBox(ys)End SubPrivate Sub Button5_Click(ByVal sender As System.Object, By Vai e As System.EventArgs) Handles Button5.ClickEnd Sub5.随机函数产生0-100间正整数，统计50万元以上的人数Private Sub Button6_Click(ByVal sender As Sy stem. Object, By Vai e As System.EventArgs) Handles Button6.ClickDim s As StringDim i As IntegerDim x As IntegerDim y As Integerx = 0y = 0s =,H,For i = 0 To 19a⑴=lnt(Rnd() * 100)s = s&a(i)&”,”If a(i)>50Thenx = x + 1Elself a(i) < 10 Then y = y + iEnd IfNextMsgBox(s & vbCrLf & u50万元以上的业务人数为” &x&”,10万元以下的业务人数为”&y)End Sub6.20个数据从高到低排序Private Sub Button7_Click(ByVal sender As System.Object, By Vai e As System.EventArgs) Handles Button7.Click'Dim a(19) As IntegerDim t As IntegerDim i As IntegerDim j As IntegerDim x As StringDim y As StringTori = 0Tol9' a(i) = lnt(Rnd() * 100)' x = x&a(i)&H,"'NextFor i = 0 To 19Forj = 19Toi + lStep-lIf a(j) < a(j -1) Then t = a(j) a(j) = a(j-l) a(j-l) = tEnd IfNexte As System.EventArgs) y = y& a(i) & NextMsgBoxfx & vbCrLf & y) End Sub7. 8位数的整数，0-9这10个数字出现次数Private Sub Button8_Click(ByVal sender As Sy stem. Object, By Vai Handles Button8.ClickDim a As IntegerDim b(9) As IntegerDim s As IntegerDim u As StringDim i As Integer Randomize))a = lnt(Rnd() * 90000000 + 10000000)For i = 0 To 7s = Mid(a, i + 1,1) b(s) = b(s) + 1Next u = H 8 位数为：(" & a & ”)” & vbCrLfFor i = 0 To 9u = u & i & "出现次数:*• & b(i) & vbCrLfNextMsgBox(u) End Sub8. 产生20个8位整数Private Sub Button9_Click(ByVal sender As System.Object,By Vai eAs System.EventArgs) Handles Button9.ClickDim b(19) As IntegerDim i As IntegerDim s As Strings =""For i = 0 To 19b(i) = lnt(Rnd() * 90000000 + 10000000)s = s & b(i) & vbCrLfNextMsgBox(s) End Sub9. Do while 做第1题，且当l/(n*n+l)<10 * -6才结束计算Private Sub ButtonlO_Click(ByVal sender As System.Object, By Vai e As System.EventArgs) Handles ButtonlO.CIickDim i As IntegerDim t As SingleDim s As Integeri = lt = l/(i*(i + l))s = 0Do While t>= 0.000001s = s + ti = i + lt = l/(i*(i + l))LoopMsgBox(,,s=" & s)End Sub10.Do until .........loopPrivate Sub Buttonll_Click(ByVal sender As System.Object, By Vai e As System.EventArgs) Handles Buttonll.ClickDim i As IntegerDim t As SingleDim s As Single i = l t=l/(i*(i + l)) s = 0Dos = s + ti = i + lt = l/(i*(i + l))Loop While t >= 0.000001 MsgBox(,,s=" & s)End Sub11.动态数组Private Sub Button 14_Click(ByVal sender As System.Object, By Vai e As System.EventArgs) Handles Buttonl4.ClickDim a() As IntegerDim i As IntegerDim n As IntegerDim x As Integer Dim y As Integer x = 0 y = 0n = lnputBox("请输入数组的数量”) ReDim a(n)For i = 1 To na⑴=lnputBox("请输入第” & i &”个数”)If i Mod 2 = 0 Thenx = x + a(i)Elsey=y+a⑴End IfNextMsgBox(”下标为奇数的元素和为” &y&吓标为偶数的元素和为” &x) End Sub12.输入字符串，递减排序Private Sub Buttonl5_Click(ByVal sender As Sy stem. Object, By Vai e As System.EventArgs) Handles Buttonl5.ClickDim s As String Dim y As StringDim t As StringDim a() As StringDim i As IntegerDim j As Integer Dim I As Integer t =,H, y = ,H,s = lnputBox("请输入要排序的字符串”)I = Len(s) ReDim a(l)For i = 1 To Ia(i) = Mid(s, \, 1) NextFor i = 1 To IFor j = I To i + 1 Step -1If a(j) < a(j -1) Then t = a(j) a(j) = a(j -1) a(j-l) = tEnd IfNexty = Y&a(i)NextMsgBox(s & vbCrLf & y)End Sub13.N阶魔方阵(不会考啦)Private Sub Buttonl6_Click(ByVal sender As Sy stem. Object, By Vai e As System.EventArgs) Handles Buttonl6.ClickDim n As IntegerDim i As IntegerDim j As Integer Dim s As String Dim t As StringDim i_0 As IntegerDim j_0 As IntegerDim mfz_bz(9, 9) As StringDim mfz(9, 9) As Stringn = InputBoxC,请输入魔方阵阶数N”)If n < 3 Or n > 9 Or n Mod 2 <> 1 ThenMsgBoxC*您输入的魔方阵阶数N不在范围内，请输入3-9之间的奇数。