VB编程题经典案例备课讲稿.pdfVIP

精品文档 VB 经典案例 1 输入 3 个数，输出最大的数 X=val(text1) y=val(text2) z=val(text3) if x=y then if x=z then print x else print z end if else if y=z then print y end if 2 2 有一元二次方程： aX +bX+c=0 ，依次输入 a，b ，c，判断此方程是否有实根 a=val(text1) b=val(text2) c=val(text3) If b*b-4*a*c=0 then print 有实根“ ” else print 无实根“ ” end if 3 输入一个成绩，若大于等于 60 ，则用消息框显示 “恭喜！成绩通过！ ”，若小于 60 ，则弹 出消息框显示 “抱歉！成绩没有通过！ ” N=val (text1) if n=60 then msgbox 恭喜！成绩通过” ! ” else msgbox