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

1/30《医药信息技术基础实践指导》作者：晏峻峰练习答案答案由“晓英振辉奇葩计算机”提供（红色加粗是检索词，绿色是备注）PublicClassForm1PrivateSubForm1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMe.ClickDimvar1AsInteger,var2AsStringvar1=12345var2=InputBox(输入Var2=,输入对话框)MsgBox(var2&Chr(13)+Chr(10)&var1=&Str(var1))'MsgBox(var2&vbCrLf&var1=&Str(var1))EndSubEndClass定义不同变量PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimaAsShort‘短型DimbAsSingle‘单精度DimcAsInteger‘整型DimdAsDateDime1AsStringDimfAsBoolean‘判断DimgAsStringDimhAsDouble‘双精度DimiAsSingleDimj(4,3)AsIntegera=3.25b=546.2c=5383149d=#12/31/2003#2/30e1=ABCDEFf=Falseg=123456h=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))EndSub分析不同表达式，定义并输出结果PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimx21,x22,x23,x24AsSingleDimx25,x27,x28AsBooleanDimx26AsStringx21=Sqrt(3^2/(2*4))‘开方x22=+Abs(0.123-3)‘绝对值x23=-Sin(30)x24=Exp(6)+Log(2.135)‘e的6次方x25=89&128912x26=AB+Str(32.56)+CD'x27=Mid(student,5)=entAnd(52)‘右边数三位x27=Microsoft.VisualBasic.Right(student,3)=entAnd(52)x28=Not(62)Or(79)MsgBox(x21&vbCrLf&x22&vbCrLf&x23&vbCrLf&x24&vbCrLf&x25&vbCrLf&x26&vbCrLf&x27&vbCrLf&x28)EndSub一百以内随机数PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickDimyAsIntegery=Int(Rnd()*100)MsgBox(y)EndSub3/30任意字符串测长度PrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.ClickDimyAsStringDimy1AsIntegery=VB程序设计语言y1=Len(y)MsgBox(y&长度为&y1)EndSub给出字符串查片段位置PrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton5.ClickDimyAsIntegery=InStr(abcstudent,stu)MsgBox(y)EndSub除去字符串两边空格PrivateSubButton6_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton6.ClickDimyAsStringy=Trim(VisualC++)MsgBox(去除左边空格&y&去除右边空格)EndSub测字符串所占字节数PrivateSubButton7_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton7.ClickDimyAsStringDimy1AsIntegery=VB程序设计语言y1=Len(y)*2‘字符串长度×2MsgBox(y&字节数为&y1)EndSub4/30字符串反序排列PrivateSubButton8_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton8.ClickDimy,y1AsStringy=我去资料室查资料y1=StrReverse(y)MsgBox(y1)EndSub从字符串中截取字符PrivateSubButton9_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton9.ClickDimy,y1AsStringy=我去资料室查资料y1=Mid(y,3,3)‘左边数第三个，数三个MsgBox(y1)EndSub截取字符PrivateSubButton10_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton10.ClickDimy,y1AsStringy=我去资料室查资料y1=Mid(y,7,2)'y1=Microsoft.VisualBasic.Right(y,2)MsgBox(y1)EndSub在字符串中插入空格PrivateSubButton11_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton11.ClickDimy,y1AsStringy=Thisisabook5/30y1=Mid(y,1,4)&Space(1)&Mid(y,5,2)&Space(1)&Mid(y,7,1)&Space(1)&Mid(y,8)MsgBox(y1)EndSub求字母ASCII码PrivateSubButton12_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton12.ClickDimyAsIntegery=Asc(Z)MsgBox(y)EndSub计算日期间隔PrivateSubButton13_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton13.ClickDimyAsDateDimy1,y2,y3AsIntegery=2013-1-1y1=DateDiff(DateInterval.Month,y,Today())y2=DateDiff(DateInterval.WeekOfYear,y,Today())y3=DateDiff(DateInterval.Day,y,Today())MsgBox(y1&个月&y2&个星期&y3&天)EndSub字符串转化为数值PrivateSubButton14_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton14.ClickDimyAsStringDimaAsIntegerDimy1AsIntegery=42897y1=Val(y)a=MsgBox(y1,vbOKCancel)IfvbOK=aThenMsgBox(a)EndIfEndSub6/30改变数值的输出形式（小数位数）PrivateSubButton15_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton15.ClickDimyAsSingley=3287.153MsgBox(Format(y,000.00))EndSub输出数据（每行四个，数据间隔四格，数值型00000.00，字符型@@@@@@@@，日期型ddddddPrivateSubButton16_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton16.ClickDimz1,z2,z3,z4AsSingleDimz5,z6,z7AsStringDimz8AsDatez1=45.632z2=8246.25z3=123.8z4=45627z5=studentz6=permanencez7=teachersz8=#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))‘换行EndSubEndClassIf语句，select语句进行有条件的计算，成绩排名，大小排序PublicClassForm1数学公式计算格式，含平方根PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimaAsString,bAsString,cAsString7/30Dimx1AsSingle,x2AsSinglea=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,###.###))EndSub公式计算PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimxAsIntegerDimyAsIntegerDimzAsSinglex=5y=9z=(x^3+x*y+y^3)/(2*x*y)MsgBox((x^3+x*y+y^3)/(2*x*y)=&z)EndSub公式计算，含对数，绝对值PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickDimxAsSingleDimyAsSinglex=InputBox(输入x)y=Math.Log(20)+Math.Abs(x-16)MsgBox(Math.Log(20)+Math.Abs(x-16)=&y)EndSubPriv