VB程序设计编程考试题及答案精选文档Word文档下载推荐.docx

1、Private Sub Form_Load（）Text1 = ”Dim nn = Text1 =60 ThenVal （MsgBox（恭喜！成绩通过！”）ElseVal （MsgBox（”抱歉！4.输入一年份，判断它是否为闰年，并显示有关信息。（判断闰年的条件是:年份能被4整除但不能被100整除,或者能被400整除）Dim yy = InputBox（请输入年份）If y Mod 4 = 0 And y Mod 100 100 Then Print ”超出范围If a = 90 And a = 100 Then Print ”优秀= 80 And a 90 Then Print ”良好”= 7

2、0 And a 80 Then Print ”中等= 60 And a 70 Then Print ”及格If a 60 Then Print ”不及格”6.随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产生246，输出是642.Dim x, x1%， x2%， x3%x = Text1x1 = x Mod 10x2 = （x Mod 100） 10x3 = x 100Label1 = x1 * 100 + x2 10 + x37.输入两个整数，求它们的最大公约数。private Sub Command1_Click（） n1 = InputBox（输入n”） m1 =

3、 InputBox（”输入m”） If m1 n1 Then m = m1： n = n1 m = n1: n = m1 End If r = m Mod n Do While r 0 m = n n = r LoopPrint ”m n 的最大公约数是：”； n8.编程求200-400范围内5的倍数或7的倍数之和。（一个数如果同时是7和5的倍数，则只能加一次.。For i = 200 To 400If i Mod 5 = 0 Or i Mod 7 = 0 ThenSum = Sum + iNext iIf i Mod 5 = 0 And i Mod 7 = 0 ThenSum = Sum -

4、 iPrint “倍数之和=”； Sum9.计算100300之间所有能被3和7整除的数之和Dim iSum = 0For i = 100 To 300If i Mod 3 = 0 And i Mod 7 = 0 ThenPrint Sum10.分别统计1100中，满足3的倍数、7的倍数的数各有多少。Dim i， s3， s7s3 = 0s7 = 0For i = 1 To 100If i Mod 3 = 0 Thens3 = s3 + 1If i Mod 7 = 0 Thens7 = s7 + 1Print 3的倍数； s3Print ”7的倍数”; s711.某次歌曲大奖赛,有7个评委。如果

5、分别输入7个评委对某个参赛者的打分数,按照去掉一个最高分和一个最低分的计算办法，求出该参赛者的平均得分。Dim max, a（1 To 7）， min, sFor i = 1 To 7a（i） = Val（InputBox（输入第” i 个数max = a（1）min = a（1）s = a（1）For i = 2 To 7If a（i） max Then max = a（i）If a（i） min Then min = a（i）s = s + a（i）s = s min maxs = s / 5Print ”平均分; s12.输入一串字符,统计其中字母A（不区分大小写）出现的次数。Dim c

6、 As String， a As Integerb = InputBox（请输入字符”）For i = 1 To Len（b） c = UCase（Mid（b, i, 1） If c = ”A Then a = a + 1 Next i Print ”a出现的次数:”; a13.我国目前有13亿人口，按人口年增长率0。8%计算，多少年后我国人口将超过26亿。Dim a, ia = 13i = 0Do While a 26 a = a （1。008）i = i + 1LoopPrint i14.小猴有桃若干，第一天吃掉一半多一个；第二天吃剩下桃子的一半多一个;以后每天都吃尚存桃子的一半多一个,到

7、第7天只剩一个，问小猴原有桃多少？Dim a， ia = 1For i = 1 To 6a = 2 （a + 1）Print ”小猴原有桃 a;只”15.求100以内的素数Dim i, jFor i = 2 To 100For j = 2 To i 1If i Mod j = 0 Then Exit ForNext jIf j = i Then Print i16.百元买百鸡问题。假定小鸡每只5角，公鸡每只2元，母鸡每只3元,编程求解购鸡方案。Print ”小鸡”； ” ”母鸡”; 公鸡Print ”For x = 1 To 100For y = 1 To 100For z = 1 To 10

8、0If 0。5 x + 2 * y + 3 z = 100 Then x; ”； y； zNext zNext yNext x17.编程求斐波那契数列前11项。（斐波那契数列：F（0）=f（1）=1, F（n）=F（n-1）+F（n2） n=2 ）Dim F（11）, i As LongF（0） = 1F（1） = 1For i = 2 To 10F（i） = F（i - 1） + F（i - 2）For i = 0 To 11Print F（i）；18.将输入的字符串以反序显示。例如:输入“ASDFGT”,显示“TGFDSA”Dim a， b, c， d, na = InputBox（”输入

9、字符串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 a19.随机产生10个30,100内的整数，求最大值及所对应的下标Dim a（1 To 10）， mRandomizeFor I = 1 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 = Imax= MaxPr

10、int ”max的下标为”； m20.随机产生10个30,100内的整数,求最大值、最小值和平均值。Dim a（1 To 10）For i = 1 To 10a（i） = Int（Rnd 71） + 30Print a（i）Min = a（1）Avg = a（1）If a（i） Max Then Max = a（i）If a（i） Min Then Min = a（i） Avg = Avg + a（i）Avg = Avg / 10max=”;min=”； Minavg= AvgEnd Sub 21.随机产生10个30，100内的整数，求最小值及所对应的下标。a（I） = Int（Rnd * 7

11、1） + 30If a（I） Min Then Min = a（I）：Print ”min=”；Print ”min的下标为”;22.随机生成一个整型的二维数组，范围在10，20之间，以下三角形式输出该数组.Dim a（1 To 10， 1 To 10）， i, j As IntegerFor j = 1 To 10a（i， j） = Int（Rnd *11 + 10）For j = 1 To iPrint Spc（3）； a（i， j）；Print23.随机产生10个1100的正整数放入数组，显示产生的数，求最大值、最小值、平均值。a（i） = Int（Rnd * 101） + 1If a（

12、i） Max Then Max = a（i）If a（i） Min Then Min = a（i）max=”；Print ”avg=”;24.利用随机函数生成一个44的矩阵（即二维矩阵）,范围是20,50内的整数，输出该矩阵所有数据之和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）Print 换行sum=”； sum25.已知有序数组a（），编程插入x（x的值为14）。数组a中的元素分别为12,6，4，89,75，63,100，20

13、，31。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） = a（i）a（k） = xFor i = 0 To n + 1Print a（i）；26.编写一函数，计算Double类型一维数组所有元素的平均值。27.编一子过程ProcMin,求一维数组

14、a中的最小值，子过程的形参自己确定Private Sub command1_Click（）Dim a（1 To 10）, min， ia（i） = Int（Rnd * 101）Print a（i）;Call ProcMin（a（）， min）min =”; minSub ProcMin（b（）， min）Dim imin = b（LBound（b）For i = LBound（b） + 1 To UBound（b）If b（i） min Then min = b（i）28.编一子过程ProcMin,求一维数组a中的最小值，子过程的形参自己确定。Private Sub Form_Click（）D

15、im a（1 To 10）, amin， i%a（i） = Int（Rnd 101）Call ProcMin（a（）， amin）Print ”amin =”； aminIf b（i） min Then min = b（i）29.编一个函数，求一维数组a中的最大值,函数的形参自己确定。Dim a（1 To 10）， amax， i%Call ProcMax（a（）, amax）Print ”amax = amaxSub ProcMax（b（）， max）Dim i%If b（i） max Then max = b（i）30.编写一个过程计算并输出区间100，1000内所有素数的和（要求判断素数使用过程（函数或子过程）来实现。调用该过程。（提示：只能被1和自身整除的自然数称为素数。