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

《程序设计编程考试题及答案》由会员分享，可在线阅读，更多相关《程序设计编程考试题及答案（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亿人口，按人口年增长率%计算，多少年后我国人口将超过26亿。10.小猴有桃若干，第一天吃掉一半多一个；第二天吃剩下桃子的一半多一个；以后每天都吃尚存桃子的一半多一个,到第7天只剩一个,问小猴原有桃多少1 1 百元买百鸡问题。假定小鸡每只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, 6

3、, 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(lnpu tBox(输入第& i & 个数)If n max Thenmax = nEnd lfNextPrint 三个数中最大的数是 ; maxEnd Sub2. 有一元二次方程：aX2+bX+c=0，依次输入a, b,

4、 c,判断此方程是否有实根 Private Sub Command1_Click()Dim a, b,c, na = Text1b = Text2c = Text3n = b * b- 4 * a * clf n = 0ThenLabel4 = 方程有根ElseLabel4 = 方程无根End IfEnd Sub3. 输入一个百分制的成绩，若大于等于60，则用消息框弹出，显示“恭喜！成绩通过！”， 若小于60，则弹出消息框，显示“抱歉！成绩没有通过！Private Sub Form_Load()Text1 = End SubPrivate Sub Command1_Click()Dim nn

5、= Text1If n 60 ThenVai (MsgBox(恭喜！成绩通过！)ElseVai (MsgBox(抱歉！成绩没有通过！)End IfEnd Sub4. 输入学生的百分制成绩，转换输出为五级制成绩，90100分转换为优秀，8089转 换为良好，7079转换为中等，6069转换为及格，060转换为不及格。Private Sub Command1_Ciick()a 二 Vai(lnpu tBox(请输入成绩)If a 100 Then Print 超出范围lf a=90Anda=80Anda=70Anda=60Anda70ThenPrint及格lf a n1Thenm= m1: n =

6、 n1Elsem = n1: n = m1End Ifr = m Mod nDo While r 0m = nn = rr = 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 + 1End IfNext iFor i = 1 To 100If i Mod 7 = 0 Thens7 = s7 + 1End IfNe

7、xt iPrint 3的倍数; s3Print 7的倍数; s7End Sub8. 输入一串字符，统计其中字母A(不区分大小写)出现的次数。Private Sub Command1_Click()Dim c As String, a As Integerb = Inpu tBox(请输入字符)For i = 1 To Len(b)c = UCase(Mid(b, i, 1)If c = A Thena = a + 1End If Next iPrint a出现的次数：;aEnd Sub9. 我国目前有13亿人口，按人口年增长率%计算，多少年后我国人口将超过26亿。Private Sub Com

8、mand1_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 = Val(lnpu tBox(输入序列数)13. 已知有序数组a()，编程插

9、入x (x的值为14)。数组a中的元素分别为12, 6,4, 89, 75，63，100，20，31。窗体上放text1、text2、command1三个控件Dim A() As lntegerPrivate Sub Command1_Click()Dim i, lp, t, ins, n As lnteger II IIFor i = 0 To UBound(A) - 1= & & A(i)Next iIp = Val(Inpu tBox(请输入数字)For i = 0 To UBound(A)If Ip max Then max = xIf x min Then min = x avg =

10、 avg + xNext iPrintPrint 最小值=; min, 最大值=; max, 平均值=; avg / 20End Sub16.编一函数，统计字符串中汉字的个数。Private Sub Command1_Click()Dim c1%c1 = CountCText1; Tab(20); 有; c1; 个汉字数End SubFunction CountC%(ByVal s$)Dim i%, t%, k%, c$For i = 1 To Len(s)c = Mid(s, i, 1)If Asc(c) 0 Then k = k + 1Next iCountC = kEnd Function