选择结构作业 (2).doc

《选择结构作业 (2).doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、选择结构作业1、在购买某物品时，若所花钱x在下述范围内，所付钱y按对应折扣支付Y=xx<10000.9x1000<=x<20000.8x2000<=x<30000.7xx>=3000程序代码为：PrivateSubCommand1_Click()Dimx!,y!x=Val(InputBox("输入X的值"))Ifx<1000Theny=xElseIfx<2000Theny=0.9*xElseIfx<3000Theny=0.8*xElsey=0.7*xEndIfPrint"x=";x;"y=";yEndSub3、输入x,y,z三

2、个数，按从大到小次序显示，如图：Xyz排序前2367667排序后6766723程序代码为：PrivateSubCommand1_Click()Dimx!,y!,z!x=InputBox("输入x")y=InputBox("输入y")z=InputBox("输入z")Print"xyz"Print"排序前";x;"";y;"";zIfx

3、如图所示的计算器程序程序代码如下：PrivateSubCommand1_Click()Dimx!,y!,z!x=Val(Text1.Text)y=Val(Text2.Text)c=Trim(Text3.Text)SelectCasecCase"+"z=x+yCase"-"z=x-yCase"*"z=x*yCase"/"z=x/yEndSelectText4.Text=zEndSub7、判断输入文本框中的表达式的左括号“（”和右括号“）”的配对情况程序代码为：Dimn%PrivateSubCommand1_Click()n=0T

4、ext1=""Form1.ClsEndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfChr(KeyAscii)<>"="ThenIfChr(KeyAscii)="("Thenn=n+1ElseIfChr(KeyAscii)=")"Thenn=n-1EndIfElseIfn=0ThenPrint"配对正确，恭喜发财"ElseIfn>0ThenPrint"左括号多于右括号"&n&"个，按“重置”以重新输入"ElsePrint"右括号多于左括号"&Abs(n)&"个，按“重置”以重新

5、输入"EndIfEndIfEndSub1、输入年份，判断是否为闰年（year是闰年，即year能被4整除但不能被100整除，或year能被400整除）程序代码如下：PrivateSubCommand1_Click()Dimx!x=Val(Text1.Text)IfxMod400=0ThenLabel2.Caption="此年份是闰年"ElseIfxMod4=0ThenIfxMod100>0ThenLabel2.Caption="此年份是闰年"EndIfElseLabel2.Caption="此年份不是闰年"EndIfEndIf

6、EndSub1、编写程序，输入一元二次方程的系数a，b，c，计算方程的根（判断两个实根，两个虚根和两个相等根的各种情况）程序代码如下：PrivateSubCommand1_Click()Dima!,b!,c!,x!,y!,z!,h!a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)x=b^2-4*a*cIfx<0ThenLabel4.Caption="此方程无实数根"ElseIfx=0Theny=(-1)*b/2Label4.Caption="此方程有一个实数根"&yElse

7、z=((-1*b)+(b^2-4*a*c)^(0.5))/(2*a)h=((-1*b)-(b^2-4*a*c)^(0.5))/(2*a)Label4.Caption="此方程有两个实数根"&z&"和"&hEndIfEndIfEndSub