VB程序设计编程考试题及答案(共11页).doc

精选优质文档-倾情为你奉上VB程序设计编程考试题及答案1. 输入3个数，输出最大的数Private Sub command1_click()Dim maxFor i = 1 To 3n = Val(InputBox(输入第 & i & 个数)If n max Thenmax = nEnd IfNextPrint 三个数中最大的数是 ; maxEnd Sub2. 有一元二次方程：aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根Private Sub Command1_Click()Dim a, b, c, na = Text1b = Text2c = Text3n = b * b - 4 * a * cIf n = 0 ThenLabel4 = 方程有根 Else Label4 = 方程无根End IfEnd Sub3. 输入一个百分制的成绩，若大于等于60，则用消息框弹出，显示“恭喜！成绩通过！”，若小于60，则弹出消