文档介绍：实验一程序流程设计
1、理解大小写转换函数。在文本框中输入文本串,按“转大写”按钮,文本中的英文字母变为大写,按“转小写”按钮,文本中的英文字母变为小写,如图所示。
设计代码
方法一:
首先设计文本框的InteractiveChange事件代码,使得输入的字符存入表单的Tag属性(用来存储程序所需的任何额外数据)中:
=
编写“大写”mand1的Click事件代码:
=upper()
编写“小写”mand2的Click事件代码:
=lower()
编写“复原”mand2的Click事件代码:
=
2
方法二:
首先在表单的load事件代码中声明一个全局变量a:
Public a
设计文本框的InteractiveChange事件代码,使得输入的字符存入表单的Tag属性(用来存储程序所需的任何额外数据)中:
a=
编写“大写”mand1的Click事件代码:
=upper(a)
编写“小写”mand2的Click事件代码:
=lower(a)
编写“复原”mand2的Click事件代码:
=a
3
2、输入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}
4
5
对象
属性
属性值
说明
Command1
Caption
排序
按钮标签
label1
Caption
请输入3个数
Label2~label4
Caption
Text1~ Text3
Value
0
InputMask
9999
6
mand1的Click事件代码:
a=
b=
c=
IF b>a
d=a
a=b
b=d
ENDIF
IF c>a
d=a
a=c
c=d
ENDIF
7
IF c>b
d=b
b=c
c=d
ENDIF
=STR(a,4)
=STR(b,4)
=STR(c,4)
8
3、设计个人纳税计算程序。“税法”规定,工资、薪金所得,使用超额累进税率。以每月收入额减去800元后的余额,为应纳税所得额。其税率表见表5-3。
9
输入n {输入当月收入}
n←n-800 {输入应纳税所得额}
S1=500*
S2=2000*+ s1
S3=5000*+ S2
S4=20000*+ S3
S5=40000*+ S4
S6=60000*+ S5
S7=80000*+ S6
S8=100000*+ S7
情形
n<=500
s ←n*
n<=2000
s ←(n-500)*+s1
n<=5000
s ←(n-2000)*+s2
n<=20000
s ←(n-5000)*+s3
n<=40000
s ←(n-20000)*+s4
n<=60000
s ←(n-40000)*+s5
n<=80000
s ←(n-60000)*+s6
n<=100000
s ←(n-80000)*+s7
N>100000
s ←(n-100000)*+s8
10