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

4.1 参考答案： Private Sub CmdNetIncome_Click() Dim Principal As Currency, Interest As Single, Year As Integer, _ NetIncome As Currency Principal = Val(TxtPrincipal) 接收用户输入到文本框中的本金 Interest = Val(TxtInterest) 接收用户输入到文本框中的年利息 Year = Val(TxtYear) 接收用户输入到文本框中的存储年数 NetIncome = Principal * (1 + Interest) ^ Year - Principal 计算纯收益 LblNetIncome = 本金￥ TxtPrincipal ， TxtYear 年期纯收益为 Format(NetIncome, ￥#,0.00) 利用标签显示纯收益 End Sub 4.2 参考答案Left(S, Pos) InsStr Right(S, Len(S) - Pos) 4.3 Dim x As Single x = Val(txtx) TxtSin = Format(Sin(x), 0.0000) TxtCos = Format(Cos(x