1、VB 程序设计编程考试题及答案1. 输入 3 个数，输出最大的数Private Sub command1_click()Dim maxFor i = 1 To 3n = Val(InputBox(“输入第“ maxEnd Sub2. 有一元二次方程：aX 2+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 = “方程有根“ElseLabel4 = “方程无根“End I
2、fEnd Sub3. 输入一个百分制的成绩，若大于等于 60，则用消息框弹出，显示“恭喜！成绩通过！” ，若小于 60，则弹出消息框，显示“抱歉！成绩没有通过！Private Sub Form_Load()Text1 = “End SubPrivate Sub Command1_Click()Dim nn = Text1If n =60 ThenVal (MsgBox(“恭喜！成绩通过！ “)ElseVal (MsgBox(“抱歉！成绩没有通过！ “)End IfEnd Sub4. 输入一年份，判断它是否为闰年，并显示有关信息。 （判断闰年的条件是：年份能被 4整除但不能被 100 整除，或者
3、能被 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 = m1End Ifr = m Mod nDo While r Max Then Max = a(I): m = INext IPrint “max=“; MaxPrint “max 的下标为“; mE
4、nd Sub20. 随机产生 10 个30,100内的整数，求最大值、最小值和平均值。Private Sub Command1_Click()Dim a(1 To 10)For i = 1 To 10a(i) = Int(Rnd * 71) + 30Print a(i)Next iMax = a(1)Min = a(1)Avg = a(1)For i = 2 To 10If a(i) Max Then Max = a(i)If a(i) Max Then Max = a(i)If a(i) Min Then Min = a(i)Avg = Avg + a(i)Next iAvg = Avg /
5、 10Print “max=“; MaxPrint “min=“; MinPrint “avg=“; AvgEnd Sub24. 利用随机函数生成一个 44 的矩阵(即二维矩阵), 范围是 20,50内的整数,输出该矩阵所有数据之和Private Sub Command1_Click()Dim a%(4, 5), sumFor i = 1 To 4For j = 1 To 4a(i, j) = Int(Rnd * 31) + 20Print a(i, j);sum = sum + a(i, j)Next jPrint 换行Next iPrint “sum=“; sumEnd Sub25. 已知
6、有序数组 a()，编程插入 x（x 的值为 14） 。数组 a 中的元素分别为12，6，4，89，75，63，100，20，31 。Private Sub Command1_Click()Dim a(), i%, k%, x%, n%a = Array(4, 6, 12, 20, 31, 63, 75, 89, 100)n = UBound(a)x = Val(InputBox(“请输入所要插入数 “)For k = 0 To nIf x a(k) Then Exit ForNext kReDim Preserve a(n + 1)For i = n To k Step -1a(i + 1)
7、= a(i)Next ia(k) = xFor i = 0 To n + 1Print a(i);Next iEnd Sub26. 编写一函数，计算 Double 类型一维数组所有元素的平均值。27. 编一子过程 ProcMin,求一维数组 a 中的最小值，子过程的形参自己确定Private Sub command1_Click()Dim a(1 To 10), min, i%For i = 1 To 10a(i) = Int(Rnd * 101)Print a(i);Next iCall ProcMin(a(), min)PrintPrint “min =“; minEnd Sub Sub
8、ProcMin(b(), min)Dim i%min = b(LBound(b)For i = LBound(b) + 1 To UBound(b)If b(i) min Then min = b(i)Next iEnd Sub28. 编一子过程 ProcMin,求一维数组 a 中的最小值，子过程的形参自己确定。Private Sub Form_Click()Dim a(1 To 10), amin, i%For i = 1 To 10a(i) = Int(Rnd * 101)Print a(i);Next iCall ProcMin(a(), amin)PrintPrint “amin =“; aminEnd SubSub ProcMin(b(), min)Dim i%min = b(LBound(b)For i = LBound(b) + 1 To UBound(b)If b(i) min Then min = b(i)Next iEnd Sub29. 编一个函数，求一维数组 a 中的最大值，函数的形参自己确定。Private Sub Form_Click()Dim a(1 To 10), amax, i%For i = 1 To 10a(i) = Int(Rnd * 101)Print a(i);Next i
