欢迎来到天天文库
浏览记录
ID:12417155
大小:490.00 KB
页数:15页
时间:2018-07-17
《vb设计习题含答案》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、程序设计作业 VB 2012年6月8日4-1)设计一个计算购书价程序,界面如图所示。要求:1)界面上的文字全部为宋体五号字2)按图示给文本框取名。为“计算总价(C)”和“退出(X)”按钮设访问键3)15编写代码,使得运行时焦点定位在DJ文本框中,输入单价后,按Tab键可输入数量。在输入单价和数量后,点击“计算总价(C)”按钮,将计算出的总价钱,先是在文本框ZJ中,单击“退出(X)”按钮结束运行。运行时,计算出的总价为只读,用户不能在界面上修改计算出的总价,且焦点不能定位在ZJ文本框中。提示:先将文本框中
2、的内容使用Val函数转换后再进行计算。1)将ZJ文本框改换成标签,将标签的BorderStyle属性设置为1-FixedSingle,用标签输出计算结果。文本框DJ文本框SJ文本框ZJ源程序:PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,dAsSinglea=Val(DJ.Text)b=Val(SJ.Text)d=a*bZJ=Format(d,"0.00")EndSubPrivateSubCommand2_Click()EndEndSub截图:(4-2
3、)设计一个收款计算程序,界面如图所示。要求:1)三个输入文本框依次取名为T1、T2、T3,应付款文本框取名为TRESULT。151)运行时焦点在折扣一栏,输入折扣后,按Tab键可输入单价,再按Tab键可输入数量。2)单击“计算”按钮计算应付款,应付款内容为只读。3)单击“清除”按钮或“ESC”键清除应付款内容,并将焦点定位在“折扣”一栏,选中“折扣”中的内容,以便修改。提示:使用以下语句定位焦点并选中文本T3.SetFocusT3.SelStart=0T3.SelLength=Len(T3.Text)4
4、)单击“退出”按钮结束执行。源程序:PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSingle,dAsSinglea=Val(T1.Text)b=Val(T2.Text)c=Val(T3.Text)d=a*b*(c/10)TRESULT=Format(d,"0.00")EndSubPrivateSubCommand2_Click()T3.SetFocusT3.SelStart=0T3.SelLength=Len(T3.Text)T1.Text="
5、"T2.Text=""T3.Text=""TRESULT.Text=""EndSubPrivateSubCommand3_Click()EndEndSub截图:15(4-5)(3-2)设计见面如图所示,单击“出题”按钮,产生任意两个[1,100]之间的随机正数,单击“计算”按钮,求这两数的和。源程序:PrivateSubCommand1_Click()Text1=Int(100*Rnd+1)Text2=Int(100*Rnd+1)EndSubPrivateSubCommand2_Click()Text3
6、=Val(Text1.Text)+Val(Text2.Text)EndSubPrivateSubForm_Load()EndSub截图:15(5-2)(5-1)从文本框中输入一个数,单击“判断”按钮判断它能否同时被3、5、7整除,若能整除,则在窗体上显示“能同时被3、5、7整除”,否则显示“不能整除”源程序:PrivateSubCommand1_Click()x=Val(Text1.Text)A=xMod3IfA<>0ThenLabel2.Caption="结果:此数不能被3、5、7整除"B=xMod5
7、ElseIfB<>0ThenLabel2.Caption="结果:此数不能被3、5、7整除"C=xMod7ElseIfC<>0ThenLabel2.Caption="结果:此数不能被3、5、7整除"Else:Label2.Caption="结果:此数能被3、5、7整除"EndIfEndSub截图:(5-3)(5-2)用InputBox函数输入三个数,选出其中的最大数和最小数,显示与窗体上。15源程序:PrivateSubForm_Click()A=InputBox("请输入数据1:","数据输入")B=
8、InputBox("请输入数据2:","数据输入")C=InputBox("请输入数据3:","数据输入")Max=AMin=AIfB>MaxThenMax=BIfBMaxThenMax=CIfC
此文档下载收益归作者所有