实验一程序流程设计.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 Publica设计文本框的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 valueb thisform text2 valuec thisform text3 valueIFb ad aa bb dENDIFIFc ad aa cc dENDIF IFc bd bb cc dENDIFthisform label2 caption STR a 4 thisform label3 caption STR b 4 thisform label4 caption STR c 4 3 设计个人纳税计算程序 税法 规定 工资 薪金所得 使用超额累进税率 以每月收入额减去800元后的余额 为应纳税所得额 其税率表见表5 3 Text1的KeyPress事件代码 LPARAMETERSnKeyCode nShiftAltCtrlIFnKeyCode 13n val this value IFn 800MESSAGEBOX 不超过800元 不必纳税 ELSES1 500 0 05S2 2000 0 15S3 5000 0 2S4 20000 0 25S5 40000 0 3S6 60000 0 35S7 80000 0 4S8 100000 0 45n n 800 DOCASECASEn 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 60000s n 40000 0 3 s5CASEn 80000s n 60000 0 35 s6 CASEn 100000s n 80000 0 4 s7OTHERWISEs n 100000 0 45 s8ENDCASEthisform label2 caption 共计纳税 STR round s 2 8 2 元 this SelStart 0this SelLength LEN this value ENDIFENDIF 4 完备数 是指一个数恰好等于它的因子之和 如6的因子为1 2 3 而6 1 2 3 因而6就是完备数 编制程序 找出1 1000之间的全部 完备数 分析 依题意可知 要想知道一个自然数是否为完备数 首先必须找除其所有因数 从2开始到这个数的最打因数为止 偶数不大于其值的二分之一 奇数不大于其值的三分之一 进行整除判断 凡是可以被整除的数均为这个数的因数 由此 可画出其流程图 编写Command1的Click事件代码 thisform container1 list1 clearforn 1to1000t iif n 2 0 n 2 n 3 a 2s 1dowhilea tifn a 0s s aendifa a 1enddoifs nthisform container1 list1 additem str n 6 endifendfor 编写Command2的Click事件代码 releasethisform 5 输出99乘法表 格式如下图 1 利用双重循环分别处理行 列的输出 编写Command1的Click事件代码 Thisform list1 clearThisform list1 addlistitem 1 1 fork 1to9Thisform list1 addlistitem str k 3 1 k 1 endforforn 1to9Thisform list1 addlistitem str n 3 n 1 1 fork 1tonThisform list1 addlistitem str k n 3 n 1 k 1 endforEndfor编写Command2的Click事件代码 releasethisform 6 小学生做加减法的算术练习程序 计算机连续地随机给出两位数的加减法算术题 要求学生回答 答对的打 答错的打 将做过的题目存放在列表框中备查 并随时给出答题的正确率 分析 随机函数RAND 返回一个 0 1 之间的随机小数 为了生成某个范围内的随机整数 可以使用以下公式 Int 最大值 最小值 1 RAND 最小值 其中最大值和最小值为指定范围中的最大 最小数 给出部分由窗体的激活 activate 事件代码完成 a int 10 90 rand b int 10 90 rand p int 2 rand docasecasep 0this text1 value str a 3 str b 3 this text1 tag str a b 将本题答案放入text1 tag中casep 1ifa bt aa bb tendif this text1 value str a 3 str b 3 this text1 tag str a b 将本题答案放入text1 tag中endcasen val this tag this tag str n 1 this text2 setfocusthis text2 value 编写Command1的Click事件代码 ifval thisform text2 value val thisform text1 tag item allt thisform text1 text thisform text2 text k val thisform list1 tag thisform list1 tag str k 1 elseitem allt thisform text1 text thisform text2 text endifthisform list1 additem item 1 将题目和答案放入列表框中的第一项x vAL thisform list1 tag val thisform tag p 正确率为 chr 13 str x 100 5 2 thisform label1 caption 共 allt thisform tag 题 pthisform activate 调用出题代码 7 使用命令按钮组设计简易计算器程序 如图所示 编写commandgroup1的click事件代码 ifthisform tag T thisform text1 value allt right str this value 1 thisform tag elsea thisform text1 valuethisform text1 value a allt right str this value 1 endif编写 按钮command11的click事件代码 a thisform text1 valuethisform text1 value a 编写 按钮command12的click事件代码 a thisform text1 valuethisform text1 value allt str a thisform tag T 编写 按钮command12的click事件代码 a thisform text1 valuethisform text1 value a thisform tag 编写 按钮command12的click事件代码 a thisform text1 v