浙江省高中信息技术选考加试题VB专项练习题十及答案

VB132261.VBABC1111D2.ADima(1to10)asintegerBDima(10)asintegerCDima(1to4,4to10)asintegerDDima(20To2)AsInteger3.zbyaxex22VBAx^2+e^2+(a*x+b*y)/zBx*x+e*e+(a*x+b*y)/zCzbyaxex22Dx^2+exp(2)+(a*x+b*y)/z4.VB3*3\5mod5A0B1C3D55.VBmid(bbs.ydxz.cn,5)Abbs.yBdxz.cnCydxz.cnDxz.cn6.VBABCDabcdATrueBFalseCTDF7.XY00Ax*y=0and(x=0ory=0)Bx*y=0andx+y0CNot(x=0andy=0)and(x=0ory=0)D(x=0ory=0)and(x0ory0)8.VBPrivateSubCommand1_Click()s=25Fori=1To10Step3s=s+iMod4NextiPrintsEndSubsA29B30.5C31D409.text1text2APrivateSubText1_Click()Text2.Text=Text1.TextEndSubBPrivateSubText1_Change()Text2.Text=Text1.TextEndSubCPrivateSubCommand1_Click()Text1.Text=Text2.TextEndSubDPrivateSubText2_Change()Text1.Text=Text2.TextEndSub10.VBADbclickBChangCKeyAsciiDLoad11.:199343451483199190242445324497190343451483199199242445324497190199451483343199242445324497190199199483343451242445324497,,190199199242324343445451483497ABCD12.VBPrivateSubCommand1_Click()Dima(10)AsInteger,b(15)AsIntegeri=1Fork=1To5a(i)=kb(k)=iNextkPrinta(k-1),b(k-1)EndSubA01B51C05D5513.12kA4B5C6D751421541741851914.VBCmd1Label1