关于记账操作，下列说法中错误的是( )。A．记账工作由计算机自动进行数据处理 B．

患者李某，男，7岁，因上呼吸道感染收住某医院儿科病房。当时高热39℃，咳嗽，经抗生素滴注后体温下降，第4天体温已正常，咳嗽减轻，情况好转。该医院因在搞一项关于儿童电生理无伤性检查方面的研究课题，故经患儿同意后，把患儿作为受试者。次日父母探视时发现孩子的头顶部皮肤有了个直径2mm的圆形丘疹红斑，当了解情况后，即与医生发生了争执。

关于医生对此人体实验的责任，下列说法错误的是（）

A.医生做任何人体实验都必须遵循一定道德原则

B.家属发现与否和有无纠纷发生，这些与医生的技术水平没有关系

C.此人体实验只要受试者同意，不必取得家属同意

D.对临床任何人体实验应取得受试者（包括监护人）的同意

E.家属发现情况与医生发生争执是有道理的

现浇水磨石嵌分格条后______h应浇水养护。

A．10

B．12

C．14

D．21

卵巢生殖细胞来源的肿瘤发生率最高的是（）

A.成熟畸胎瘤

B.未成熟畸胎瘤

C.卵黄囊瘤

D.原发性绒癌

E.无性细胞瘤

[说明] 在一些财务软件中，经常需要将阿拉伯数字的账目转化为汉语习惯中的金额计数方法，例如： “3.45”转化为“叁元四角五分”； “3.4”转化为“叁元四角”； “3.40”转化为“叁元四角零分”； “3.456”转化为“叁元四角五分”； “345.00”转化为“叁百四十五元零角零分”； “345”转化为“叁百四十五元”； 以下Visual Basic代码实现了小写金额转换为大写金额。界面如图10-9所示。结合实际例子说明，仔细阅读下面代码，将 (n) 代码补充完整。

[代码7-1] Begin VB.FormForm1 Caption = "小写金额转换为大写金额" //...窗体描述(略) Begin VB.CommandButton Command1Caption = "退出"//...窗体描述(略) End Begin VB.TextBox Text2 //...窗体描述(略) End Begin VB.TextBox Text1Enabled = 0 ’False //…窗体描述(略) End Begin VB.Labe1 Labe12Caption = "转换为大写金额"//...窗体描述(略) End Begin VB.Labe1 Labe11Caphon = "请输入数字" //...窗体描述(略) End End [代码7-2] Private Function setdata (num As Integer) As String ’数字转换 Select CaSe num Case 0setdata="零" Case 1Setdata="壹" Case 2Setdata="贰" Case 3Setdata="叁" Case4Setdata="肆" Case 5Setdata="伍" Case 6Setdata="陆" Case 7Setdata="柒" Case 8Setdata="捌" Case 9Setdata="玖" End Select End Function Private Function chang (aaa As Integer) As String ’位数转换 Select CaSe aaa Case 1chang="" Case 2chang="十" Case 3chang="百" Case 4chang="千" Case 5chang="万" Case 6chang="十" Case 7chang="百" Case 8chang="千" Case 9chang="亿" Case 10chang="十" End Select End Function [代码7-3] Private Sub Text2_Change ( ) ’小写转大写 Dim i As Integer Dim j As Integer Dim myint As Integer Dim myint1 As Integer Dim mydoub As Double Dim mystr As String Dim mystr1 As String Dim mystr2 As String Dim mystr3 As String Dim mystr4 As String Dim money As Long Dim money1 As Integer Dim money2 As Long mystr=Text2.Text myint=InStr (mystr, ".") If myint=0 Thenmystr=Text2.Text Else mystr3=Right(Text2.Text, Len (Text2.Text ) - myint) If mystr3＜＞""Then’转换小数位 mystr4=Left(mystr3, 1) mystr3=Right(mystr3, Len(mystr3 ) - 1) If mystr4＜＞"0"Then(1)End If If mystr3＜＞""Thenmystr4=Left(mystr3, 1)(2) End IfEnd Ifmystr=Left(Text2.Text,myint - 1) End If j=Len(mystr) For i=1 To Len(mystr,i) money2=Left(mystr,i) money1=Right(money2,1) If money1=0 Then Ifj=5 Then (3) Else (4) End If Else (5)End If j=j-1 Next i Text1.Text=mystr1&"元"&mystr2 ’显示大写 End sub

TYJL-E型计算机联锁，屏幕上的调车信号显示（）灯光，提示灯丝断丝。

A.蓝色

B.红色

C.白闪

D.红闪