实验一 程序流程设计.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.valueIFbad=aa=bb=dENDIFIFcad=aa=cc=dENDIF,IFcbd=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)IFn800MESSAGEBOX(不超过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就是完备数。编制程序，找出11000之间的全部“完备数”。分析：依题意可知，要想知道一个自然数是否为完备数，首先必须找除其所有因数。从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=1ifabt=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=Tthisform.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.valuet