《vb程序设计编程考试题及答案.doc》由会员分享，可在线阅读，更多相关《vb程序设计编程考试题及答案.doc（7页珍藏版）》请在金锄头文库上搜索。
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.分别统计1-100中，满足3的倍
2、数、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()，编程插入x（x的值为14）。数组a中的元素分别为12
3、，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 maxFor i = 1 To 3n = Val(InputBox(输入第 & i & 个数)If n max Thenmax = nEnd IfNextPrint 三个数中最大的数是 ; maxEnd Sub2. 有一元二次方程：aX2+bX+c=0，依次输入a，b，c，判
4、断此方程是否有实根Private Sub Command1_Click()Dim a, b, c, na = Text1b = Text2c = Text3n = b * b - 4 * a * cIf n = 0 ThenLabel4 = 方程有根 Else Label4 = 方程无根End IfEnd Sub3. 输入一个百分制的成绩，若大于等于60，则用消息框弹出，显示“恭喜！成绩通过！”，若小于60，则弹出消息框，显示“抱歉！成绩没有通过！Private Sub Form_Load()Text1 = End SubPrivate Sub Command1_Click()Dim nn =
5、 Text1If n 60 ThenVal (MsgBox(恭喜！成绩通过！)ElseVal (MsgBox(抱歉！成绩没有通过！)End IfEnd Sub4. 输入学生的百分制成绩，转换输出为五级制成绩，90100分转换为优秀，8089转换为良好，7079转换为中等，6069转换为及格，060转换为不及格。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
6、 n1 Then m = m1: n = n1 Else m = n1: n = m1 End If r = m Mod n Do While r 0 m = n n = r r = m Mod n LoopPrint 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 + 1End IfNext iFor i = 1 To 100If i Mod
7、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 = A Then a = a + 1 End If Next i Print a出现的次数：; aEnd Sub9. 我国目前有13亿人口，按人口年增长率
8、0.8%计算，多少年后我国人口将超过26亿。Private Sub Command1_Click()Dim a, ia = 13i = 0Do While a =2 ）Private Sub Command1_Click()Dim x() As IntegerDim n%, i%n = 11ReDim x(n - 1)x(0) = 1x(1) = 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 Subn =
9、 Val(InputBox(输入序列数)13. 已知有序数组a()，编程插入x（x的值为14）。数组a中的元素分别为12，6，4，89，75，63，100，20，31。窗体上放text1、text2、command1三个控件Dim A() As Integer Private Sub Command1_Click()Dim i, Ip, t, ins, n As IntegerText1.Text = For i = 0 To UBound(A) - 1 Text1.Text = Text1.Text & & A(i)Next iIp = Val(InputBox(请输入数字)For i =
10、0 To UBound(A) If Ip A(i) Then ReDim Preserve A(UBound(A) + 1) t = A(i) A(i) = Ip ins = i Exit For End IfNext iFor i = ins + 1 To UBound(A) - 1 n = A(i) A(i) = t t = nNext iText2.Text = For i = 0 To UBound(A) - 1 Text2.Text = Text2.Text & & A(i)Next iEnd 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) = 89A(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 ThenPrint nCountN = CountN + 1End IfLoop Until CountN = 5End
