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

1、VB程序设计编程考试题及答案1.输入3个数，输出最大的数2 .有一元二次方程：aX2+bX+c=0 ,依次输入a, b, c,判断此方程是否有实根3 .输入一个百分制的成绩，若大于等于60,则用消息框弹出，显示“恭喜！成绩通过！"，若小于60,则弹出消息框，显示“抱歉！成绩没有通过！4 .输入学生的百分制成绩，转换输出为五级制成绩，90100分转换为优秀，8089转换为良好，7079转换为中等，6069转换为及格，060转换为不及格。5 .随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产生246,输出是642。6 .输入两个整数，求它们的最大公约数。7 .分别

2、统计1-100中，满足3的倍数、7的倍数的数各有多少。8 .输入一串字符，统计其中字母A(不区分大小写)出现的次数。9 .我国目前有13亿人口，按人口年增长率 0.8%计算，多少年后我国人口将超过26亿。10 .小猴有桃若干，第一天吃掉一半多一个；第二天吃剩下桃子的一半多一个；以后每天都吃尚存桃子的一半多一个，到第7天只剩一个，问小猴原有桃多少？11 .百元买百鸡问题。假定小鸡每只5角，公鸡每只2元，母鸡每只3元，编程求解购鸡方案。12 .编程求斐波那契数列前 11项。(斐波那契数列：F(0)=f(1)=1, F(n尸F(n-1)+F(n-2) n>=2 )13 .已知有序数组a(),编

3、程插入x (x的值为14)。数组a中的元素分别为12, 6, 4, 89,75, 63, 100, 20, 31。14.找出被3、5、7除，余数均为1的最小的5个正整数。15利用随机函数产生50100范围内的20个随机数，显示其中的最大值、最小值和平均值。16.编一函数，统计字符串中汉字的个数。1 .输入3个数，输出最大的数Private Sub command1_click()Dim maxFori = 1 To 3n = Val(InputBox("输入第"& i & "个数") If n > max Then max = nE

4、nd IfNextPrint "三个数中最大的数是"max End Sub2 .有一元二次方程：aX2+bX+c=0 ,依次输入a, b, c,判断此方程是否有实根a = Textlb = Text2c = Text3n = b * b - 4 * a * cIf n >= 0 ThenLabel4 ="方程有根"ElseLabel4 ="方程无根"End IfEnd Sub3 .输入一个百分制的成绩，若大于等于60,则用消息框弹出，显示“恭喜！成绩通过!若小于60,则弹出消息框，显示“抱歉！成绩没有通过 ！Private Su

5、b Form_Load()Text1 =""End SubPrivate Sub Command1_Click()Dim nn = Text1If n > 60 ThenVal (MsgBox("恭喜！成绩通过！")ElseVal (MsgBox("抱歉！成绩没有通过！")End IfEnd Sub4 .输入学生的百分制成绩，转换输出为五级制成绩，90100分转换为优秀，8089转换为良好，7079转换为中等，6069转换为及格，060转换为不及格。Private Sub Command1_Click() a = Val(Inp

6、utBox("请输入成绩")If a > 100 Then Print "超出范围"If a >= 90 And a <= 100 Then Print "优秀If a >= 80 And a < 90 Then Print "良好"If a >= 70 And a < 80 Then Print "中等"If a >= 60 And a < 70 Then Print "及格"If a < 60 Then Print &qu

7、ot;不及格"End Sub5 .随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产生246,输出是642。Private Sub Command1_Click()Dim x%, x1%, x2%, x3%.x = Textlx1 = x Mod 10x2 = (x Mod 100) 10x3 = x100Labell = x1 *100 + x2 *10 + x3End Sub6 .输入两个整数，求它们的最大公约数。private Sub Command1_Click()n1 = InputBox("输入 n")m1 = InputBox(

8、"输入 m")If m1 > n1 Thenm = m1: n = n1Elsem = n1: n = m1End Ifr = m Mod nDo While r <> 0m = n n = r r = m Mod nLoopPrint "m n的最大公约数是："nEnd Sub7 .分别统计1-100中，满足3的倍数、7的倍数的数各有多少。Private Sub Command1_Click()Dim i, s3, s7s3 = 0s7 = 0For i = 1 To 100If i Mod 3 = 0 Thens3 = s3 + 1

9、End IfNext iFor i = 1 To 100If i Mod 7 = 0 Thens7 = s7 + 1End IfNext iPrint "3 的倍数"s3Print "7 的倍数"s7End Sub8 .输入一串字符，统计其中字母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 = "

10、A" Thena = a + 1End IfNext iPrint "a出现的次数："aEnd Sub9 .我国目前有13亿人口，按人口年增长率0.8%计算，多少年后我国人口将超过26亿。Private Sub Command1_Click() Dim a, i a = 13 i = 0Do While a < 26a = a *(1.008) i = i + 1LoopPrint iEnd Sub10 .小猴有桃若干，第一天吃掉一半多一个；第二天吃剩下桃子的一半多一个；以后每天 都吃尚存桃子的一半多一个，到第7天只剩一个，问小猴原有桃多少？Private

11、Sub Command1_Click()Dim a, i a = 1Fori = 1 To 6 a = 2 * (a + 1) Next iPrint "小猴原有桃"a;"只” End Sub11 .百元买百鸡问题。假定小鸡每只 5角，公鸡每只2元，母鸡每只3元，编程求解购鸡 7K oPrivate Sub Command1_Click()Print "小鸡""""母鸡""""公鸡"Print ""For x = 1 To 100For y =

12、1 To 100For z = 1 To 100If 0.5 * x + 2 * y + 3 * z = 100 ThenPrint "" x; "" y; "" zEnd If Next z Next y Next x End Sub12 .编程求斐波那契数列前11项。(斐波那契数列：F(0)=f(1)=1,F(n尸F(n-1)+F(n-2)n>=2 )Private Sub Command1_Click()Dim x() As IntegerDim n%, i% n = 11ReDim x(n - 1)x(0) = 1x(1

13、) = 1For i = 2 To n - 1x(i) = x(i - 1) + x(i - 2)Next iFor i = 0 To n - 1Print x(i),If (i + 1) Mod 5 = 0 Then PrintNextEnd Sub n = Val(InputBox("输入序列数")13 .已知有序数组a(),编程插入x (x的值为14)。数组a中的元素分别为12, 6, 4, 89,75, 63, 100, 20, 31。窗体上放text1、text2、command1三个控件Dim A() As IntegerPrivate Sub Command1

14、_Click()Dim i, Ip, t, ins, n As IntegerText1.Text =""For i = 0 To UBound(A) - 1Text1.Text = Text1.Text & " " & A(i)Next iIp = Val(InputBox("请输入数字")For i = 0 To UBound(A).If Ip < A(i) ThenReDim Preserve A(UBound(A) + 1) t = A(i) A(i) = Ip ins = i Exit ForEnd I

15、fNext iFor i = ins + 1 To UBound(A) -1 n = A(i) A(i) = t t = nNext iText2.Text =""For i = 0 To UBound(A) - 1Text2.Text = Text2.Text & " " & A(i)Next i End SubPrivate Sub Form_Load()ReDim A(9)A(0) = 4: A(1) = 6: A(2) = 12: A(3) = 20A(4) = 31: A(5) = 63: A(6) = 75: A(7) = 8

16、9A(8) = 100End Sub14.找出被3、5、7除，余数均为1的最小的5个正整数。Private Sub Form_Click()Dim CountN%, n%CountN = 0n = 1Don = n + 1If n Mod 3 = 1 And n Mod 5 = 1 And n Mod 7 = 1 Then Print nCountN = CountN + 1End IfLoop Until CountN = 5 End Sub15利用随机函数产生50100范围内的20个随机数，显示其中的最大值、最小值和平均值。Private Sub Form_Click()Dim i%, min%, max%, avg%, x%min = 50max = 100avg = 0For i = 1 To 20x = Int(Rnd * 51 + 50)Print x;If x > max Then max = xIf x < min Then min = xavg = avg + xNext iPrintPrint "最小值="min,"最大值="max,"平均值="avg / 20End Sub16.编一函数，统计字符串中汉字的个数。