程序设计基础——Visual Basic学习与实验指导 教学课件 作者 陈丽芳习题答案 第4章实验答案.doc

《程序设计基础——Visual Basic学习与实验指导 教学课件 作者 陈丽芳习题答案 第4章实验答案.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、4.1参考答案：PrivateSubCmdNetIncome_Click()DimPrincipalAsCurrency,InterestAsSingle,YearAsInteger,_NetIncomeAsCurrencyPrincipal=Val(TxtPrincipal)'接收用户输入到文本框中的本金Interest=Val(TxtInterest)'接收用户输入到文本框中的年利息Year=Val(TxtYear)'接收用户输入到文本框中的存储年数NetIncome=Principal*(1+Interest

2、)^Year-Principal'计算纯收益LblNetIncome="本金￥"&TxtPrincipal&"，"&TxtYear&"年期纯收益为"&Format(NetIncome,"￥#,0.00")'利用标签显示纯收益EndSub4.2'参考答案Left(S,Pos)&InsStr&Right(S,Len(S)-Pos)4.3DimxAsSinglex=Val(txtx)TxtSin=Format(Sin(x),"0.0000")TxtCos=Format(Cos(x),"0.0000")TxtTan=For

3、mat(Tan(x),"0.0000")TxtCtan=Format(1/Tan(x),"0.0000")4.4参考答案PrivateSubCmdView_Click()DimYAsInteger,XAsInteger,WAsIntegerY=Val(Text1.Text)X=Int((Y-1)*(1+1/4-1/100+1/400)+1)W=X-Int(X/7)*7Text2.Text=CStr(W)EndSub4.5参考答案：PrivateSubForm_Click()DimxAsString,x1AsStri

4、ng,x2AsString,x3AsString,x4AsString,yAsIntegerx=CStr(Int((9999-1000+1)*Rnd)+1000)x1=CStr(Val(Left(x,1)+7)Mod10)x2=CStr(Val(Mid(x,2,1)+7)Mod10)x3=CStr(Val(Mid(x,3,1)+7)Mod10)x4=CStr(Val(Right(x,1)+7)Mod10)y=x4&x3&x2&x1Print"加密前的4位整数是"&xPrint"加密后的结果是"&yEndSub