VB程序设计编程考试~题及其答案~.doc

-_VB 程序设计编程考试题及答案1.输入输入 3 个数，输出最大的数个数，输出最大的数 Private Sub command1_click() Dim max For i = 1 To 3 n = Val(InputBox(“输入第“ max End Sub2.有一元二次方程：有一元二次方程：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 - 4 * a * c If n >= 0 Then Label4 = “方程有根“ElseLabel4 = “方程无根“ End If End Sub3. 输入一个百分制的成绩，若大于等于输入一个百分制的成绩，若大于等于 60，则用消息框弹出，显示，则用消息框弹出，显示“恭喜！成绩通过！恭喜！成绩通过！” ， 若小于若小于 60，则弹出消息框，显示，则弹出消息框，显示“抱歉！成绩没有通过！抱歉！成绩没有通过！ Private Sub Form_Load() Text1 = “ End SubPrivate Sub Command1_Click() Dim n n = Text1 If n > =60 Then Val (MsgBox(“恭喜！成绩通过！“) Else Val (MsgBox(“抱歉！成绩没有通过！“) End If End Sub-_4.输入一年份，判断它是否为闰年，并显示有关信息。输入一年份，判断它是否为闰年，并显示有关信息。 （判断闰年的条件是：年份能被（判断闰年的条件是：年份能被 4 整除但不能被整除但不能被 100 整除，或者能被整除，或者能被 400 整除）整除）Private Sub Command1_Click() Dim y% y = InputBox(“请输入年份“) If y Mod 4 = 0 And y Mod 100 100 Then Print “超出范围“ If a >= 90 And a = 80 And a = 70 And a = 60 And a n1 Thenm = m1: n = n1Elsem = n1: n = m1-_End Ifr = m Mod nDo While r Max Then Max = a(I): m = I Next I Print “max=“; Max Print “max 的下标为“; m End Sub-_20. 随机产生随机产生 10 个个30,100内的整数，求最大值、最小值和平均值。内的整数，求最大值、最小值和平均值。 Private Sub Command1_Click() Dim a(1 To 10) For i = 1 To 10 a(i) = Int(Rnd * 71) + 30 Print a(i) Next i Max = a(1) Min = a(1) Avg = a(1) For i = 2 To 10 If a(i) > Max Then Max = a(i) If a(i) Max Then Max = a(i) If a(i) max Then max = b(i) Next i End Sub 30. 编写一个过程计算并输出区间编写一个过程计算并输出区间100，1000内所有素数的和内所有素数的和(要求判断素数使用过程（函 数或子过程）来实现。调用该过程。(提示：只能被 1 和自身整除的自然数称为素数。)