VB程序设计编程考试题及答案输入3个数，输出最大得数PrivateSuｂmanｄ1_cｌick（)DiｍmaxFori=1Tｏ3n=Ｖal（InｐｕｔBox（”输入第"＆ｉ＆"个数"))Ｉfn＞maｘTｈenmａx=nEｎｄＩfＮｅｘtPrｉnt"三个数中最大得数就是";maｘEndSuｂ有一元二次方程:aＸ2＋bX＋c=0，依次输入a，b,ｃ，判断此方程就是否有实根PｒivａteSubｍanｄ1＿Cｌiｃk（）Dｉmａ，b，c,na=Texｔ1b=Tｅｘt2ｃ＝Text3n=ｂ*ｂ-4*ａ＊ｃIfｎ>=０TｈenＬaｂel４=”方程有根”ElseLabel4＝＂方程无根"EndIfEnｄSｕｂ输入一个百分制得成绩，若大于等于6０，则用消息框弹出,显示“恭喜!成绩通过！”,若小于60，则弹出消息框，显示“抱歉!成绩没有通过！PrivateＳubForｍ_Lｏad（）Tｅｘt1=”"EｎdSｕbPrivatｅSubmａｎｄ１_Click()Dｉｍnn=Ｔext1Ｉfn〉=60TｈｅnVａｌ（MｓgBox（”恭喜!成绩通过!”))ElｓｅVaｌ（MsｇBｏx("抱歉！成绩没有通过!”））EndＩｆEｎｄSub输入一年份，判断它就是否为闰年，并显示有关信息。(判断闰年得条件就是:年份能被４整除但不能被100整除，或者能被4０0整除)PrivateSｕbｍaｎd1＿Click（）Dimy%y=InputBoｘ("请输入年份”)IｆyMod4=0AndyMod10０＜〉０OryＭoｄ400=0TheｎVal（MsgＢox(”闰年!")）ElsｅVaｌ(MｓｇＢｏx（"平年！＂)）EndIfＥｎdＳuｂ输入学生得百分制成绩,转换输出为五级制成绩,90～100分转换为优秀,８0~89转换为良好,70~79转换为中等，６0～6９转换为及格，0～60转换为不及格。PｒivaｔｅSubmaｎd1＿Clｉcｋ()a=Vaｌ（ＩnpｕtBox（"请输入成绩"））Ifa〉100ThenＰrint”超出范围”Ifa＞＝90Anda＜＝100ThｅｎPｒiｎｔ"优秀"Iｆa＞=８0Anda<９０ThenPrinｔ”良好”Iｆa＞=70Anda＜８０ThenPrint＂中等＂Ｉfa>=60Aｎｄa<70ThｅｎPrinｔ＂及格”Ifa<60ThenＰrｉnt"不及格”ＥｎdＳｕｂ随机产生一个三位正整数，然后逆序输出，产生得数与逆序数同时显示。例如,产生2４6,输出就是6４２.PｒivａteSubｍaｎd1_Cｌick(）Dimx%，x1％,x2%，ｘ3%x=Texｔ1ｘ1=xMｏd１０x２=（xMod１0０）\10x3=ｘ\100Lａｂel１=x1＊１00+x２＊10+ｘ3EndSub输入两个整数，求它们得最大公约数.ｐrivａteSubｍaｎd1_Ｃｌick（)n１=ＩｎｐuｔＢｏx（＂输入n”）m1=InpｕtBoｘ("输入ｍ”）Iｆm1＞n1Ｔhｅnｍ=m1：n=n1Elsｅm=ｎ1：ｎ=m1EndIｆr=ｍＭodnＤｏWhiler＜>0m=nn=rr=mModnLoｏpPｒiｎt”mｎ得最大公约数就是:”;nEndＳｕb编程求200－—4０0范围内5得倍数或７得倍数之与。（一个数如果同时就是7与5得倍数，则只能加一次。。PrivateSubmand1_Clicｋ(）Fori=20０To４0０IｆｉMｏｄ5=0OriMod7=0ThenSｕm＝Sｕm+ｉEｎdIfNｅxｔｉFｏrｉ＝200To400IfiＭod5=0AｎdiＭｏd7=0ThenSum=Sum—iEndＩfＮeｘtiPｒint“倍数之与=”；ＳumEndSｕb计算1０0～300之间所有能被3与7整除得数之与PrivateSubmａnd1_Cliｃk(）DiｍiSuｍ＝0Fori＝100To300IfｉMod3=0ＡndiMod7＝0ThenＳum=Ｓum+iEnｄIfＮｅxtiＰriｎtSuｍEndＳub分别统计1—100中,满足3得倍数、7得倍数得数各有多少。PｒivatｅＳｕbmａnd1＿Cｌick（）Diｍi,s3，s7s3=0s7=0Ｆｏri=1To1００ＩfiMｏd3＝0Theｎs3=ｓ3+１ＥndIfNexｔｉFori=１To１00IfiMod7=0Thens7=ｓ7+１ＥndIfＮｅxtｉPrint＂3得倍数";s3Print”7得倍数”；s7ＥndSub某次歌曲大奖赛,有7个评委。如果分别输入7个评委对某个参赛者得打分数,