最新VB程序设计教程 第三版 泷沛曾等著 实验B答案.doc
最新VB程序设计教程 第三版 泷沛曾等著 实验B答案
简介：本文档为《最新VB程序设计教程 第三版 泷沛曾等著 实验B答案doc》，可适用于职业岗位领域
最新VB程序设计教程第三版泷沛曾等著实验B答案VB程序设计教程第三版泷沛曾等著实验B答案第一题PrivateSubCommandClick()Dimf!,c!f=Val(Text)c=*(f)Text=Format(c,"")EndSubPrivateSubCommandClick()Dimc!,f!c=Val(Text)f=*cText=Format(f,"")EndSub第二题PrivateSubCommandClick()Dimr!,s!r=Val(Text)s=*r^Label=Format(s,"")EndSubPrivateSubCommandClick()Dimr!,d!r=Val(Text)d=*r*Label=Format(d,"")EndSubPrivateSubTextlostfocus()IfNotIsNumeric(Text)ThenText=MsgBox("输入有非数字字符请重新输入")TextSetFocusEndIfEndSub第四题PrivateSubCommandClick()TextText=UCase(Text)Label=Len(Text)EndSubPrivateSubTextlostfocus()IfIsNumeric(Text)ThenText=MsgBox("输入有非字母字符请重新输入")TextSetFocusEndIfEndSub第五题PrivateSubFormClick()RandomizeDimaAsInteger,bAsInteger,cAsInteger,dAsIntegerd=Int(Rnd*)Print""da=db=(d)Modc=dModPrint""cbaEndSub第题PrivateSubFormclick()label=left(text,)label=mid(text,,)label=right(text,)endsub第题PrivateSubFormclick()Dima!,b!,c!,d!,e!a=Val(InputBox("输入实数"))b=a^c=Sqr(a)d=a^e=a^()Print"平方"Format(b,"")"平方根"Format(c,"")"立方"Format(d,"")"立方根"Format(e,"")EndSub
