2004年下半年一、1-10CAABCBBDDD11-20CADABDBDAC21-30DBBCDABCCA二、1-10BBCDCCDBBB11-20BBDADABACB21-25BDCCA三、1.(56)-(58)ABD2.(59)-(60)BA3.(61)-(62)BC4.(63)-(65)DAC5.(66)B6.(67)-(70)DBCA四、Optiongroup1的Click事件代码:a=val(thisform.text1.value)b=val(thisform.text2.value)c=val(thisform.text3.value)ifa
xml:namespace prefix = bd=aa=bb=dendififa
docasecasethisform.optiongroup1.value=1thisform.label1.caption=str(c)+","+str(b)+","+str(a)casethisform.optiongroup1.value=2thisform.label1.caption=str(a)+","+str(b)+","+str(c)endcase2007年上半年一、1-10D无答案CDCBADBC11-20CACDBACBBA21-30ACCBBDABCA二、1-10BABCCBAAD1.(56)-(58)CBD2.(59)-(61)ACD3.(62)-(65)CAAA4.(66)-(70)无答D11-20AACABCAADC21-25DACCC三、案BABC四、Command1的Click事件代码 /> endforthisform.text1.value="s="+str(s,4)casethisform.optiongroup1.value=2fori=1to100s=s+i^2endforthisform.text1.value="s="+str(s)otherwisefori=1to100step2s=s+iendforthisform.text1.value="s="+str(s,4)endcase2008年上半年一、1-10DCDADBACDB11-20CACCDABDCC21-30BDBCAACBCB二、1-10BBBBDCDCAA11-20BC无答案无答案BACDB无答案21-25DACAB三、1.(56)-(60)ABBDD2.(61)-(63)CAA3.(64)-(66)CAB4.(67)-(70)ABBC四、Commandgroup1的Click代码:ch1=thisform.text1.valuech2=thisform.text2.valuedocasecasethisform.commandgroup1.value=1ifch1=""orch2=""messagebox("、必须填写!")elseusezclocatefor=alltrim(ch1)iffound()messagebox("此学生已注册,请重新输入!")elseinsertintozcvalues(ch1,ch2)endifendifcasethisform.commandgroup1.value=2thisform.text1.value=""thisform.text2.value=""thisform.text1.setfocusotherwisethisform.releaseendcase2008年下半年一、1-10DBDAADBDCA11-20ABADCCBCDB21-30DBABAACBCC二、1-10CCDABBCDDC11-20DACDBDACAD21-25CDBAC三、1.(56)-(59)ACCA2.(60)-(62)BCD3.(63)-(65)BCD4.(66)-(70)ACBBD四、Command1的Click事件代码:yhm=thisform.text1.valuekl=thisform.text2.valueifalltrim(yhm)="ABCDEFGH"andalltrim(kl)="123456"messagebox("欢迎使用!")elsemessagebox("用户名或口令不对,请重新输入!")endif