[计算机]实验一 程序流程设计.pptVIP

实验一 程序流程设计 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已由大到小顺序排列； 流程图如下： 编写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。 Text1的KeyPress事件代码: LPARAMETERS nKeyCode, nShiftAltCtrl IF nKeyCode=13 n=val(this.value) IF n800 MESSAGEBOX(不超过800元，不必纳税！) ELSE S1=500*0.05 S2=2000*0.15 S3=5000*0.2 S4=20000*0.25 S5=40000*0.3 S6=60000*0.35 S7=80000*0.4 S8=100000*0.45 n=n-800 DO CASE CASE n=500 s=n*0.05 CASE n=2000 s =(n-500)*0.1+s1 CASE n=5000 s =(n-2000)*0.15+s2 CASE n=20000 s =(n-5000)*0.2+s3 CASE n=40000 s =(n-20000)*0.25+s4 CASE n=60000 s =(n-40000)*0.3+s5 CASE n=80000 s =(n-60000)*0.35+s6 CASE n=100000 s =(n-80000)*0.4+s7 OTHERWISE s =(n-