资源预览内容
第1页 / 共13页
第2页 / 共13页
第3页 / 共13页
第4页 / 共13页
第5页 / 共13页
第6页 / 共13页
第7页 / 共13页
第8页 / 共13页
第9页 / 共13页
第10页 / 共13页
亲,该文档总共13页,到这儿已超出免费预览范围,如果喜欢就下载吧!
资源描述
1. 在两个文本框中分别输入用户名和密码,点击“注册”按钮,出现三种情况:a) 若至少一个文本框为空,者提示“用户名或密不能为空!”b) 若输入的用户名的已经在后台的“用户”表中存在,则提示“此用户名已被占用,请重新输入!”c) 排除上述两种情况,则出现“注册成功”信息,并把该新注册的用户名及密码写入后台的“用户”表中2. 输入用户名和密码,点击“登录”按钮,可能出现的三种情况:a) 该用户已在用户表中,而且密码也正确,则出现“您已成功登录本系统”的信息;b) 若用户名已存在于后台的“用户”表中,则显示“密码错误”的信息c) 若用户名不在用“户表”中,则显示“您尚未注册”的信息3. 点击“退出”按钮,退出程序注册(comand1) cliif all(tisorm.ext1.au)= or allt(thir.texalu)=esaebox(用户名或密码不能为空!,17,提示)elssele 用户loate fo用户名allt(thisfrmtextale)i fnd()mesaebo(此用户名已被占用,请重新输入!,49,提示)eseappendbakreplac 用户名 t alltrim(tisfrmxt.vaue)rec 密码 h allri(thsfrm.text.val)esagbo(注册成功,65,恭喜!)hif.tet.vlu=thisform.tet2.vle=ndfedif登入(comnd) clcif llt(hisform.text1vle)=or allt(hisom.tt.alue)=mesagebo(用户名或密码不能为空!,17,提示)elseslect 用户loct for alt(用户名)=al(tsrm.text1.value)f fund()ialt(密码)=all(thsfm.tt2.lue)mesageox(您已成功登录本系统!,恭喜)elsmessaebox(密码错误!,49,提示)ndfelsemesabox(您尚未注册!,49,提示)ndifedf选择左边组合框中的课程号,右侧列表中显示该课程的全部成绩。Cob1 interctivehngselec 课程loate or 课程号this.valuethisormfsh在左上角文本框中输入学号,点击“查找”按钮,右侧显示该学生的相关信息。若输入学号为空,则出现“学号不能为空”的提示;若所输入的学号不在学生表中,则显示“查无此人!”查找(commnd1) Cicksele 学生f llt(thrm.ext1.vale)=messebo(学号不能为空)tsor.text1stfouslsocate o 学号=lt(thrm.tt1.al)if not un()mesagebox(查无此人!,1,出错啦!)hisfmext1.valuehifor.txt1sefcsnifendifhsfr.refes点击“转换”按钮,完成摄氏到华氏、华氏到摄氏、摄氏到摄氏、华氏到华氏的转换。转换(ommad1) Clki at(hisform.text1.value)=returnelif val(tsfom.text1.alue)=0retuelsei isform.combo1.value=tisform.cobo2.valuethisfomtxt2.value=hisfom.text1.alueelsef thiform.combo1.vale=摄氏sfom.tet2.alue=9/5*al(thsform.text.alue)+32lsetisfor.text.vale(val(thisorm.tet.vau)-32)5/9endiendifendiifhiormreres1 点击“出题”按钮,由程序随机产生两个两位数的正整数,分别填写在左侧的两个文本框中;2 用户输入上述两个数相加的结果,点击“答题”按钮,出现以下两种可能的情况:a) 若用户计算正确,则给出“答对了,真棒!”的提示b) 若用户给出的答案错误,则给出“不对啊,再仔细想想!”的提示。3 点击“退出”按钮,退出程序出题(coman1) clicisfomx1vale=nt(rand()*90)+1hisfrm.ext2.vale=int(n())+10thisfom.tx3.value=thisformrfsh答题(comnd2) clik=vl(thisform.tet.val)b=tisfor.text1.auec=tisform.text2.vlef =b+cessageox(答对了,真棒!,6,coguatios)eeessaex(不对啊,再仔细想想!,17,出错啦!)eni1.用户选择组合框中的学号,右侧文本框中显示相应的姓名;2.点击“确定”按钮,出现两个可能的情况::c) 若用户勾选了至少一个运动项目,则把学号、姓名及所报项目写入后台的“报名表”,且在界面的表格控件中显示报名结果d) 若用户没有勾选任何运动项目,则不写表。点击“清空报名表”按钮,则清空后台“报名表”中的所有数据,并在界面的表格控件中反映出来。.点击“退出”按钮,退出程序。确定(ommand)n0ifhifor.cbo.alue=unenifslect 报名表ifthsfom.check1value=.tn=1endififthisreck.value.tn=1ndifif thifomhek3auet.ndif =1ppen blankreplace 学号 wit thsfor.cobo.vlue,姓名 with tifrm.txt姓名.vauihior.heck1.value.t.reace 项目1 with hiorm.chec1.ctonedifif thisfrmcheckvalet.repla 项目2with thsform.che2.pionendiff hisfor.hec.vale=.t.replae项目with ifor.ceck3.captionendifnifthsformresh清空报名表selet 报名表zapthisorm.rfeshomb nteractivchahifor.ck.valu=.thisfor.chec.vale.thisform.hec3.value=.f.thsfrmresh.点击“查找”按钮,可能出现的三种情况:a) 若学号文本框为空,则出现“学号不能为空”的提示b) 若在成绩表中找不到输入的学号,则出现“没有找到该学生的成绩”的提示c) 若输入的学号在成绩表中找到,则右侧的表格控件显示该学生的所有成绩,并在下方的文本框中显示该学生所有课程的平均成绩。.点击“退出”按钮,退出程序。查找if ll(thisfomtext1value)=messgeb(学号不能为空!)reurnendifsel 成绩locte f alt(学号)=alt(tsm.tx1.value)if fn()sele * from 成绩 wher lt(学号)=all(thisform.ext.al) io urr 个人成绩thisform.grd1ecodsoretp=1thsrmgrid.recordsurc=个人成绩thsform.ri1.vsible=.ee ag(成绩) as 平均成绩 om 个人成绩 nto cursr pjcjsepjctorm.text.vl=平均成绩lsemessageox(没有找到该学生的成绩!)hisform.grid.viible.f.ndifthsfo.rersh1.点击“产生三个整数”按钮,由程序随机生成三个随机的整数,分别填写在三个文本框中:2.点击“排序输出”按钮,在下方的三个文本框中按从大到小的顺序分别输出上述三个数。3.点击“退出”按钮,退出程序。产生三个整数thisfor.text1.value=in(and()*10)thisom.tex.vleint(rand()*100)thisormtex3.luit(rn()100)tisfotet4.vlue=tisform.txt5.alue=hisfor.exvale=thisform.efreh排序输出x=thifom.te.alue=hiformet2.aluez=thifom.t.valueifxytx=yy=tenififxtxzz=tendifif zty=zz=tedifthisform.text4.value=thisform.txalue=yhsom.text6vluezthisorm.reesh在程序文件pr中完成,要求运行时提示用户输入起止数字,然后显示找到的所有素数。并输出这些素数的平均值。inut 开始: o starnpu 结束: end
网站客服QQ:2055934822
金锄头文库版权所有
经营许可证:蜀ICP备13022795号 | 川公网安备 51140202000112号