VB 程序设计编程考试题及答案1.输入 3 个数，输出最大得数Private Su ｂ man ｄ 1_c ｌ ick（)Di ｍ maxFor i = 1 T ｏ 3n = Ｖ al（In ｐｕｔ Box（”输入第" ＆ ｉ ＆ "个数"))Ｉ f n ＞ ma ｘ T ｈ enm ａ x = nE ｎｄ Ｉ fＮｅｘ tPr ｉ nt "三个数中最大得数就是" ; ma ｘEnd Su ｂ2.有一元二次方程:a Ｘ 2＋bX＋c=0，依次输入 a，b,ｃ，推断此方程就是否有实根P ｒ iv ａ te Sub ｍ an ｄ 1＿C ｌ i ｃ k（）D ｉ m ａ， b， c, na = Tex ｔ 1b = T ｅｘ t2ｃ ＝ Text3n = ｂ * ｂ - 4 * ａ ＊ ｃIf ｎ >= ０ T ｈ enＬ a ｂ el ４ = ”方程有根” Else Label4 ＝ ＂方程无根"End IfEn ｄ S ｕｂ3. 输入一个百分制得成绩，若大于等于 6 ０，则用消息框弹出,显示“恭喜!成绩通过！”,若小于 60，则弹出消息框，显示“抱歉!成绩没有通过！Private Ｓ ub For ｍ_L ｏ ad（）T ｅｘ t1 = ”"E ｎ d S ｕ bPrivat ｅ Sub m ａｎｄ１_Click()D ｉｍ nn = Ｔ ext1Ｉ f n 〉 =60 T ｈｅ nV ａｌ （M ｓ gBox（”恭喜!成绩通过!”))El ｓｅVa ｌ （Ms ｇ B ｏ x("抱歉！成绩没有通过!”））End ＩｆE ｎｄ Sub4.输入一年份，推断它就是否为闰年，并显示有关信息。(推断闰年得条件就是:年份能被４整除但不能被 100 整除，或者能被 4 ０ 0 整除)Private S ｕ b ｍ a ｎ d1＿Click（）Dim y%y = InputBo ｘ("请输入年份”)I ｆ y Mod 4 = 0 And y Mod 10 ０ ＜〉 ０ Or y Ｍ o ｄ 400 = 0 The ｎVal （Msg Ｂ ox(”闰年!")）Els ｅVa ｌ (M ｓｇＢｏ x（"平年！＂)）End IfＥｎ d Ｓ u ｂ5.输入学生得百分制成绩,转换输出为五级制成绩,90～100 分转换为优秀,８ 0~89 转换为良好,70~79 转换为中等，６ 0～6 ９转换为及格，0～60 转换为不及格。P ｒ iva ｔｅ Sub ma ｎ d1＿Cl ｉ c ｋ()a = Va ｌ（Ｉ np ｕ tBox（"请输入成绩"））If a 〉 100 Then Ｐ rint ”超出范围”If a ＞＝ 90 And a ＜＝ 100 Th ｅｎ P ｒ i ｎｔ "优秀"I ｆ a ＞= ８ 0 And a < ９０ Then Prin ｔ ”良好”I ｆ a ＞= 70 And a ＜ ８０ Then Print ＂中等＂Ｉ f a >= 60...
