实验一 程序流程设计推荐.ppt

实验一 程序流程设计 1、理解大小写转换函数。在文本框中输入文本串，按“转大写”按钮，文本中的英文字母变为大写，按“转小写”按钮，文本中的英文字母变为小写，如图所示。 设计代码 方法一： 首先设计文本框的InteractiveChange事件代码，使得输入的字符存入表单的Tag属性(用来存储程序所需的任何额外数据)中： thisform.tag=this.value 编写“大写”按钮Command1的Click事件代码： thisform.text1.value=upper(thisform.tag) 编写“小写”按钮Command2的Click事件代码： thisform.text1.value=lower(thisform.tag) 编写“复原”按钮Command2的Click事件代码： thisform.text1.value=thisform.tag * 方法二： 首先在表单的load事件代码中声明一个全局变量a： Public a 设计文本框的InteractiveChange事件代码，使得输入的字符存入表单的Tag属性(用来存储程序所需的任何额外数据)中： a=this.value 编写“大写”按钮Command1的Click事件代码： thisform.text1.value=upper(a) 编写“小写”按钮Command2的Click事件代码： thisform.text1.value=lower(a) 编写“复原”按钮Command2的Click事件代码： thisform.text1.value=a * 2、输入3个 不同的数，将他们从大到小排序。 分析： 先将a与b比较，把较大者放入a中，小者放入b中；再将a与c比较，把较大者放入a中，小者放入c中，此时a为三者中的最大者；最后将b与c比较，把较大者放入b中，小者放入c中，此时a、b、c已由大到小顺序排列； 流程图如下： 输入a,b,c {给出三个数a,b,c} 如果ba 真 交换a,b 如果ca 真 交换a,c 如果cb 真 交换b,c 输出a,b,c {输出交换后的a,b,c} * * 对象 属性 属性值 说明 Command1 Caption 排序 按钮标签 label1 Caption 请输入3个数 Label2~label4 Caption Text1~ Text3 Value 0 InputMask 9999 * 编写Command1的Click事件代码： a=thisform.text1.value b=thisform.text2.value c=thisform.text3.value IF ba d=a a=b b=d ENDIF IF ca d=a a=c c=d ENDIF * IF cb d=b b=c c=d ENDIF thisform.label2.caption=STR(a,4) thisform.label3.caption=STR(b,4) thisform.label4.caption=STR(c,4) * 3、设计个人纳税计算程序。“税法”规定，工资、薪金所得，使用超额累进税率。以每月收入额减去800元后的余额，为应纳税所得额。其税率表见表5-3。 * 输入n {输入当月收入} n←n-800 {输入应纳税所得额} S1=500*0.05 S2=2000*0.1+ s1 S3=5000*0.15+ S2 S4=20000*0.2+ S3 S5=40000*0.25+ S4 S6=60000*0.3+ S5 S7=80000*0.35+ S6 S8=100000*0.4+ S7 情形 n=500 s ←n*0.05 n=2000 s ←(n-500)*0.1+s1 n=5000 s ←(n-2000)*0.15+s2 n=20000 s ←(n-5000)*0.2+s3 n=40000 s ←(n-20000)*0.25+s4 n=60000 s ←(n-40000)*0