ess测验程序设计题技巧.doc

ess测验程序设计题技巧————————————————————————————————作者:————————————————————————————————日期: 1、给输入的内容给出判断:练****册六:,在窗体FormGrade中,编写“等级”按钮的单击事件处理代码,实现如下功能:根据下表,将由文本框Text1输入成绩对应的等级显示有文本框Text2中。DimaAsIntegerDimsAsStringa=Text1Ifa>=0Anda<=100ThenIfa>=90Thens="A"ElseIfa>=75Thens="B"ElseIfa>=60Thens="C"Elses="D"EndIfText2=sEndIf练****册八:。在窗体FormNumber中,编写“位数”按钮的单击事件处理代码,实现如下功能:在文本框Text1中输入一个不超过4位的正整数,判断它的位数,结果显示在文本框Text2中。DimaAsInteger,bAsIntegera=Text1Ifa>0Anda<1000ThenIfa>=100Thenb=3ElseIfa>=10Thenb=2Elseb=1EndIfEndIfText2=b例1:ess数据库“”。要求编写窗体djzh上“成绩等级”按钮的单击事件处理代码,实现如下功能:当成绩小于0或大于100,显示“非法数据”,否则按如下规则转换:成绩≥85:优秀60≤成绩<85:合格成绩<60:不合格DimcjAsSingle,djAsStringcj=="优秀"Case60To84dj="合格"Case0To59dj="不合格"CaseElsedj="非法数据"=dj例2:ess数据库“”。要求编写窗体leapyear上“是否闰年”按钮的单击事件处理代码,实现如下功能:输入一个日期,单击“是否闰年”按钮,根据判断结果显示“是闰年”或“不是闰年”。(参见P218字符串转换日期函数DateValue)闰年的条件是:年份能被4整除但不能被100整除,或能被400整除。DimyAsIntegery=Year(DateValue())If(yMod4=0AndyMod100<>0)OryMod400=="是闰年"="不是闰年"EndIf例3:ess数据库“”。要求编写窗体FrmPrime上“判断素数”按钮的单击事件处理代码,判断文本框text1中自然数是否为素数(只能被1和本身整除的自然数),并将判断结果显示在标签Label1中。DimiAsInteger,jAsInteger,xAsInteger,pdAsStringx=Text1Fori=2Toxpd="素数"Forj=2ToSqr(i)IfiModj=0Thenpd="不是素数"=pd练****册三:,在窗体FormNum中,编写“判断”按钮的Click事件代码,实现如下功能:根据输入的字符判断是否为数字,若是显示“Yes”,否则显示“No”。DimaAsStringa=Text1Ifa>="0"Anda<="9"ThenText2="Yes"ElseText2="No"EndIf例4:ess数据库“”。要求编写窗体Judge上“判断”按钮的单击事件处理代码,判断文本框text1中字符是否是数字,并将判断结果显示在标签Label1中。DimCAsStringC=>="0"AndC<="9"=C&"是数字!"=C&"是其它字符!"EndIf例5:ess数据库“”。要求编写窗体qsws的“求三位数字”按钮的单击事件处理代码,实现如下功能:在text1输入一个三位正整数,单击“求三位数字”按钮,分别在text2、text3、text4上显示其百位数字、十位数字和个位数字;若输入的整数不足三位,则退出窗体。a=<100Ora>=Int(a/1)Mod10sw=Int(a/10)Mod10bw=Int(a/100)===gwEndIf2、对输入的两个值进行运算或判断:练****册一:ess数据库p