VB程序设计编程考试题及答案 .docVIP

VB程序设计编程考试题及答案 输入3个数，输出最大的数 Private Sub command1_click() Dim max For i = 1 To 3 n = Val(InputBox(输入第 i 个数)) If n max Then max = n End If Next Print 三个数中最大的数是 ; max End Sub 有一元二次方程：aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根 Private Sub Command1_Click() Dim a, b, c, n a = Text1 b = Text2 c = Text3 n = b * b -