(完整word)VB程序设计编程考试题及答案推荐文档.doc

1、VB 程序设计编程考试题及答案1. 输入 3 个数，输出最大的数Private Sub command1_click()Dim maxFor i = 1 To 3n = Val(InputBox( 输入第 & i & 个数 )If n max Thenmax = nEnd IfNextPrint 三个数中最大的数是 ; maxEnd Sub2. 有一元二次方程： aX 2+bX+c=0 ，依次输入 a， b ， c，判断此方程是否有实根Private Sub Command1_Click()Dim a, b, c, na = Text1b = Text2c = Text3n = b * b -

2、 4 * a * cIf n = 0 ThenLabel4 = 方程有根 ElseLabel4 = 方程无根 End IfEnd 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. 输入

3、一年份，判断它是否为闰年，并显示有关信息。（判断闰年的条件是：年份能被4 整除但不能被 100 整除，或者能被 400 整除）Private Sub Command1_Click()Dim y%y = InputBox( 请输入年份 )If y Mod 4 = 0 And y Mod 100 0 Or y Mod 400 = 0 ThenVal (MsgBox( 闰年！ )ElseVal (MsgBox( 平年！ )End IfEnd Sub5. 输入学生的百分制成绩，转换输出为五级制成绩，90 100 分转换为优秀，80 89 转换为良好， 70 79 转换为中等，60 69 转换为及格，

4、0 60 转换为不及格。Private Sub Command1_Click()a = Val(InputBox( 请输入成绩 )If a 100 Then Print 超出范围 If a = 90 And a = 80 And a = 70 And a = 60 And a 70 Then Print 及格 If a n1 Thenm = m1: n = n1Elsem = n1: n = m1End Ifr = m Mod nDo While r 0m = nn = rr = m Mod nLoopPrint m n的最大公约数是：; nEnd Sub8.编程求 200-400只能加一次。

5、范围内5 的倍数或7 的倍数之和。(一个数如果同时是7 和5 的倍数，则Private Sub Command1_Click()For i = 200 To 400If i Mod 5 = 0 Or i Mod 7 = 0 ThenSum = Sum + iEnd IfNext iFor i = 200 To 400If i Mod 5 = 0 And i Mod 7 = 0 ThenSum = Sum - iEnd IfNext iPrint “倍数之和 End Sub=”; Sum9.计算 100300 之间所有能被Private Sub Command1_Click()Dim iSum

6、= 0For i = 100 To 3003 和7 整除的数之和If i Mod 3 = 0 And i Mod 7 = 0 ThenSum = Sum + iEnd IfNext iPrint SumEnd Sub10. 分别统计 1-100 中，满足 3 的倍数、 7 的倍数的数各有多少。Private Sub Command1_Click()Dim i, s3, s7s3 = 0s7 = 0For i = 1 To 100If i Mod 3 = 0 Thens3 = s3 + 1End IfNext iFor i = 1 To 100If i Mod 7 = 0 Thens7 = s7

7、 + 1End IfNext iPrint 3 的倍数 ; s3Print 7 的倍数 ; s7End Sub11.某次歌曲大奖赛，有7 个评委。如果分别输入7 个评委对某个参赛者的打分数，按照去掉一个最高分和一个最低分的计算办法，求出该参赛者的平均得分。Private Sub Command1_Click()Dim max, a(1 To 7), min, sFor i = 1 To 7a(i) = Val(InputBox( 输入第 & i & 个数 )Next imax = a(1)min = a(1)s = a(1)For i = 2 To 7If a(i) max Then max

8、= a(i)If a(i) min Then min = a(i)s = s + a(i)Next is = s - min - maxs = s / 5Print 平均分 ; sEnd Sub12. 输入一串字符，统计其中字母A( 不区分大小写 )出现的次数。Private Sub Command1_Click()Dim c As String, a As Integerb = InputBox( 请输入字符 )For i = 1 To Len(b)c = UCase(Mid(b, i, 1)If c = A Thena = a + 1End IfNext iPrint a 出现的次数：;

9、aEnd Sub13.我国目前有13 亿人口，按人口年增长率0.8% 计算，多少年后我国人口将超过26 亿。Private Sub Command1_Click()Dim a, ia = 13i = 0Do While a =2）Private Sub Command1_Click()Dim F(11), i As LongF(0) = 1F(1) = 1For i = 2 To 10F(i) = F(i - 1) + F(i - 2)Next iFor i = 0 To 11Print F(i);Next iEnd Sub18.将输入的字符串以反序显示。例如：输入“ASDFGT ”，显示“

10、TGFDSA ”Private Sub Command1_Click()Dim a, b, c, d, na = InputBox( 输入字符串 )n = Len(a)For b = 1 To Int(n 2)c = Mid(a, b, 1)Mid(a, b, 1) = Mid(a, n - b + 1, 1)Mid(a, n - b + 1, 1) = cNext bPrint aEnd Sub19. 随机产生 10 个 30,100 内的整数，求最大值及所对应的下标Private Sub Command1_Click()Dim a(1 To 10), mRandomizeFor I = 1

11、 To 10a(I) = Int(Rnd * 71) + 30Print a(I)Next IMax = a(1)For I = 2 To 10If a(I) Max Then Max = a(I): m = INext IPrint max=; MaxPrint max 的下标为 ; mEnd 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)M

12、in = a(1)Avg = a(1)For i = 2 To 10If a(i) Max Then Max = a(i)If a(i) Min Then Min = a(i)Avg = Avg + a(i)Next iAvg = Avg / 10Print max=; MaxPrint min=; MinPrint avg=; AvgEnd Sub21. 随机产生 10 个 30,100 内的整数，求最小值及所对应的下标。Private Sub Command1_Click()Dim a(1 To 10), mRandomizeFor I = 1 To 10a(I) = Int(Rnd *

13、71) + 30Print a(I)Next IMin = a(1)For I = 2 To 10If a(I) Max Then Max = a(i)If a(i) Min Then Min = a(i)Avg = Avg + a(i)Next iAvg = Avg / 10Print max=; MaxPrint min=; MinPrint avg=; AvgEnd Sub24. 利用随机函数生成一个 4 4 的矩阵 (即二维矩阵 ),范围是 20,50 内的整数 ,输出该矩阵所有数据之和Private Sub Command1_Click()Dim a%(4, 5), sumFor i

14、 = 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. 已知有序数组 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, 10

15、0)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) = a(i)Next ia(k) = xFor i = 0 To n + 1Print a(i);Next iEnd Sub26. 编写一函数，计算 Double 类型一维数组所有元素的平均值。27. 编一子过程 ProcMin, 求一维数组 a 中的最小值，子过程的形参自己确定Private Sub command1_

16、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 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 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