如果您无法下载资料,请参考说明:
1、部分资料下载需要金币,请确保您的账户上有足够的金币
2、已购买过的文档,再次下载不重复扣费
3、资料包下载后请先用软件解压,在使用对应软件打开
VB语句代码结构解析PrivateSubCommand1_Click()DimaASInteger,iAsIntegeri=5a=16i=i+Sqr(a)+1Text1.Text=iText2.Text=aEndSub题:国庆期间,某超市实行打折优惠,购物满100元打9折,不满100元打9.5折,请用VB编写程序计算应收款额。如何在VB源程序编辑环境下验证代码的执行结果PrivateSubCommand1_Click()DimmAsSingle,nAsSinglem=InputBox("第一个数是:","请输入第一个数")n=InputBox("第二个数是:","请输入第二个数")Ifm<nThenm=nEndIft=MsgBox("两数中较大的一个是"+Str(m))EndSub题:请写出结果Fori=2To10Step2s=s+iNextiPrints‘Label1.Caption=sTheEnd