资源描述：
《vb实验任务6参考答案》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、实验任务6参考答案课程名称：程序设计基础VB实验名称——实验六VisualBasic程序设计基础(2)一、实验目的：1．掌握顺序结构的程序设计方法2．掌握常用的接收和输出数据的方法3．进一步掌握常量、变量、运算符、表达式和常用函数的使用二、实验内容（包括实验要求(题目)、实验步骤、程序清单、运行情况）：实验1注意：类型符省略为%——Integer，&——Long，!——Single，#——Double，@——Currency，结果转换方向整型→长整型→单精度型→双精度型→货币型第（1）组总结u加法和减法的情况相同u通常相同类
2、型的操作数进行运算,结果同操作数本身,但是除法/比较特殊,除单精度数据除外(Single),相同数据进行除运算结果是Doubleu不同类型的操作数进行运算,结果通常按占用内存字节数多的方向转换(规则:转换方向整型→长整型→单精度型→双精度型→货币型);也有特例:单精度与长整型运算结果为Double,单精度与货币型相乘运算结果为Double,双精度与货币型相乘运算结果为Double,单精度与整型相除运算结果为Single第（2）组DimaAsInteger,bAsSingle,cAsSinglea<2=3b^2-4*a*c>0
3、"ABC">"ACB""ABC"="abc"200+True#1/1/2007#-#1/1/2000#"30"+140"123"&456"123"+456"123ab"&246实验2请先手工写出以下程序段的运行结果，然后使用立即窗口或在窗体的Click事件过程中分别添加如下的程序段，运行验证，进一步理解和掌握运算符和表达式的应用。（1）PrintSgn(2)PrintSgn(-45Mod2)（2）s$="ABCDEFG~gfedcba"PrintLeft(s,4)PrintChr$(65)PrintAsc(Chr$(65))
4、PrintAsc("Morning")PrintChr$(Asc("Morning")-2)PrintString(5,97),String(5,"Mm")PrintRight(s,4)PrintMid(s,4,8)PrintInstr(s,"efg")PrintSqr(Len(s)+1)PrintLcase(s)（3）PrintCInt(3.56),Int(3.56),Fix(3.56)PrintRound(3.56),format(3.56,”0”)PrintCInt(-3.56),Int(-3.56),Fix(-3.5
5、6)PrintRound(-3.56),format(-3.56,”0”)PrintCInt(3.5),Int(3.5),Fix(3.5)PrintRound(3.5),format(3.5,”0”)PrintCInt(2.5),Int(2.5),Fix(2.5)PrintRound(2.5),format(2.5,”0”)PrintRound(2.445,2),format(2.445,”0.00”)(4)假定当前日期为2009-3-27PrintDay(Now)PrintMonth(Now)PrintYear(Now)P
6、rintDateDiff(”d”,Now,#2009/05/01#)PrintWeekday(Now)PrintWeekday(Now,vbMonday)实验3实验书62页实验4-2OptionExplicitPrivateSubCmdInsert_Click()DimSAsString,InsStrAsString,PosAsIntegerS=TxtStrPos=Val(TxtPos)InsStr=TxtInsStrTxtStr.Text=Left(S,Pos)&InsStr&Right(S,Len(S)-Pos)‘或者T
7、xtStr.Text=Left(S,Pos)&InsStr&Mid(S,Pos+1)EndSub实验4输入本金、年利息和存储年数，单击按钮计算出纯收益显示在标签上，提示：千分位、保留小数位数、￥格式设置应参看课本88采用PrivateSubcmdnetincome_Click()DimbjAsCurrency,lxAsSingle,yearAsInteger,incomeAsCurrencybj=Val(txtbj)lx=Val(Txtlx)year=Val(Txtyear)income=bj*(1+lx)^year-bjl
8、blincome="本金￥"&bj&","&year&"年期纯收益为"&Format(income,"￥#,0.00")EndSub实验5实验书99页实验5-3（参考课本90页例题4-9和课本83-87页的inputbox函数和msgbox函数的用法。）要求用户输入一个三位正整数，然后逆序
