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

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的倍数、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, 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, 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 = 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<= 100 Then Print "优秀"lf a>=80Anda<90ThenPrint"良好"lf a>=70Anda<80ThenPrint"中等"lf a>=60Anda<70ThenPrint"及格"lf a < 60 Then Print "不及格"End Sub5. 随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产生 246，输出是642。Private Sub Command1_Ciick()Dim x%, x1%, x2%, x3%x = Text1x1 = x Mod 10x2 = (x Mod 100) 10x3 = x 100Label1 = x1 * 100 + x2 * 10 + x3 End Sub6. 输入两个整数，求它们的最大公约数 private Sub Command1_Click()n1=InputBox("输入 n")m1=InputBox("输入 m")Ifm1> n1Thenm= m1: n = 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 IfNext 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 Command1_Click()Dim a, ia = 13i = 0Do While a < 26a = a *i = i + 1LoopPrint iEnd Sub10. 小猴有桃若干，第一天吃掉一半多一个；第二天吃剩下桃子的一半多一个；以后每天 都吃尚存桃子的一半多一个，到第7天只剩一个，问小猴原有桃多少Private Sub Command1_Click()Dim a, ia = 1For i = 1 To 6a = 2 * (a + 1)Next iPrint "小猴原有桃"；a;”只”End Sub11. 百元买百鸡问题。假定小鸡每只5角，公鸡每只2元，母鸡每只3元，编程求解购鸡 方案。Private Sub Command1_Click()Print"小鸡"II" "母鸡" " " "公鸡"PrintII IIFor x= 1To100For y= 1To100For z= 1To100If *x +2 *y +3 * z = 100 Then厂| _|_ II IIIIIIIIIIPrint ""x; ""y; ""zEnd IfNext zNext yNext xEnd Sub12. 编程求斐波那契数列前11项。(斐波那契数列：F(O)=f=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) = 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()，编程插入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<A(i)ThenReDim Preserve A(UBound(A) + 1)t=A(i)A(i) = Ipins = iExit ForEnd IfNext iFori=ins +1 To UBound(A) - 1n=A(i)A(i) = tt=nNext i II IIFor i = 0 To UBound(A) - 1= & " " & 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 Then Print nCountN = CountN +1End IfLoop Until CountN=5End Sub 15利用随机函数产生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 = x avg = 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