实验一程序流程设计

《实验一程序流程设计》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、实验一程序流程设计1、理解大小写转换函数。在文本框中输入文本串，按“转大写”按钮，文本中的英文字母变为大写，按“转小写”按钮，文本中的英文字母变为小写，如图所示。设计代码方法一：首先设计文本框的InteractiveChange事件代码，使得输入的字符存入表单的Tag属性(用来存储程序所需的任何额外数据)中：thisform.tag=this.value编写“大写”按钮Command1的Click事件代码：thisform.text1.value=upper(thisform.tag)编写“小写”按钮Command2的Click事件代码：thisform.text1.value=low

2、er(thisform.tag)编写“复原”按钮Command2的Click事件代码：thisform.text1.value=thisform.tag方法二：首先在表单的load事件代码中声明一个全局变量a：Publica设计文本框的InteractiveChange事件代码，使得输入的字符存入表单的Tag属性(用来存储程序所需的任何额外数据)中：a=this.value编写“大写”按钮Command1的Click事件代码：thisform.text1.value=upper(a)编写“小写”按钮Command2的Click事件代码：thisform.text1.value=lowe

3、r(a)编写“复原”按钮Command2的Click事件代码：thisform.text1.value=a2、输入3个不同的数，将他们从大到小排序。分析：先将a与b比较，把较大者放入a中，小者放入b中；再将a与c比较，把较大者放入a中，小者放入c中，此时a为三者中的最大者；最后将b与c比较，把较大者放入b中，小者放入c中，此时a、b、c已由大到小顺序排列；流程图如下：输入a,b,c{给出三个数a,b,c}如果b>a真交换a,b如果c>a真交换a,c如果c>b真交换b,c输出a,b,c{输出交换后的a,b,c}对象属性属性值说明Command1Caption排序按钮标签label1Cap

4、tion请输入3个数Label2~label4CaptionText1~Text3Value0InputMask9999编写Command1的Click事件代码：a=thisform.text1.valueb=thisform.text2.valuec=thisform.text3.valueIFb>ad=aa=bb=dENDIFIFc>ad=aa=cc=dENDIFIFc>bd=bb=cc=dENDIFthisform.label2.caption=STR(a,4)thisform.label3.caption=STR(b,4)thisform.label4.caption=STR(

5、c,4)3、设计个人纳税计算程序。“税法”规定，工资、薪金所得，使用超额累进税率。以每月收入额减去800元后的余额，为应纳税所得额。其税率表见表5-3。输入n{输入当月收入}n←n-800{输入应纳税所得额}S1=500*0.05S2=2000*0.1+s1S3=5000*0.15+S2S4=20000*0.2+S3S5=40000*0.25+S4S6=60000*0.3+S5S7=80000*0.35+S6S8=100000*0.4+S7情形n<=500s←n*0.05n<=2000s←(n-500)*0.1+s1n<=5000s←(n-2000)*0.15+s2n<=20000s←

6、(n-5000)*0.2+s3n<=40000s←(n-20000)*0.25+s4n<=60000s←(n-40000)*0.3+s5n<=80000s←(n-60000)*0.35+s6n<=100000s←(n-80000)*0.4+s7N>100000s←(n-100000)*0.45+s8Text1的KeyPress事件代码:LPARAMETERSnKeyCode,nShiftAltCtrlIFnKeyCode=13n=val(this.value)IFn<800MESSAGEBOX("不超过800元，不必纳税！")ELSES1=500*0.05S2=2000*0.15S3=

7、5000*0.2S4=20000*0.25S5=40000*0.3S6=60000*0.35S7=80000*0.4S8=100000*0.45n=n-800DOCASECASEn<=500s=n*0.05CASEn<=2000s=(n-500)*0.1+s1CASEn<=5000s=(n-2000)*0.15+s2CASEn<=20000s=(n-5000)*0.2+s3CASEn<=40000s=(n-20000)*0.25+s4CASEn