Чапаев на своем белом коне ____ носился по

王聪在班里是有名的“物理迷”，他爱观察，勤思考．一天，妈妈到超市购买了一台家用豆浆机，他仔细观察了豆浆机的构造、铭牌和制作豆浆的过程，发现其中用到了许多物理知识．

（1）豆浆机电源线的插头有三个脚，如图所示，其中稍长些的脚是把豆浆机的金属部分与______相连接．

（2）豆浆机的机头主要由一个电热器（电热丝）和一个电动机带动的打浆器构成．制作豆浆的过程是先加热，再打浆，再加热煮熟，即加热和打浆是交替进行的．由此可知，豆浆机中的电动机和电热器的连接方式是______．

（3）豆浆机铭牌上的部分技术参数如表．豆浆机在额定电压下打浆时，通过电动机的电流是多少？

一级预防的效应包括（）

A.避免或减少对病因的暴露

B.降低发病率

C.提高生存率

D.阻止或减缓疾病的发展

E.提高生活质量

下述综合征中常具有昼轻夜重规律的是（）

A.急性脑病综合征

B.遗忘综合征

C.痴呆综合征

D.精神自动症

E.Capgras综合征

正六的大学生克服被拒绝的恐惧可以从（）入手。

A.多参加与人打交道的活动

B.走出书本，活跃一些

C.做类似销售的社会兼职

D.避免与别人争论

[说明] 在一些财务软件中，经常需要将阿拉伯数字的账目转化为汉语习惯中的金额计数方法，例如： “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