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

VB 程序设计编程考试题及答案 1.. 输入 3 个数，输出最大的数 2 2. 有一元二次方程： aX +bX+c=0，依次输入 a ，b，c ，判断此方程是否有实根 3. 输入一个百分制的成绩，若大于等于 60 ，则用消息框弹出，显示“恭喜！成绩通过！ ”， 若小于 60，则弹出消息框，显示“抱歉！成绩没有通过！ 4. 输入学生的百分制成绩， 转换输出为五级制成绩， 90～ 100 分转换为优秀， 80 ～89 转换为 良好， 70～79 转换为中等， 60～ 69 转换为及格， 0～60 转换为不及格。 5. 随机产生一个三位正整数， 然后逆序输出， 产生的数与逆序数同时显示。 例如， 产生 246 ， 输出是 642 。 6. 输入两个整数，求它们的最大公约数。 7. 分别统计 1-100 中，满足 3 的倍数、 7 的倍数的数各有多少。 8. 输入一串字符，统计其中字母 A( 不区分大小写 ) 出现的次数。 9. 我国目前有 13 亿人口，按人口年增长率 %计算，多少年后我国人口将超过 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 ，6 ，4，89 ， 75， 63 ， 100，20 ，31} 。 14. 找出被 3、5 、7 除，余数均为 1的最小的 5个正整数。 15利用随机函数产生 50~100范围内的 20个随机数，显示其中的最大值、最小值和平均值。 16. 编一函数，统计字符串中汉字的个数。 1. 输入 3 个数，输出最大的数 Private Sub command1_click() Dim max For i = 1 To 3 n = Val(InputBox( 输入第 i 个数 )) If n max Then max = n End If Next Print 三个数中最大的数是 ; max End Sub 2 2. 有一元二次方程： aX +bX+c=0，依次输入 a ，b ，c ，判断此方程是否有实根 Private Sub Command1_Click() Dim a, b, c, n a = Text1 b = Text2 c = Text3 n = b * b - 4 * a * c If n = 0 Then Label4 = 方程有根 Else Label4 = 方程无根 End If End Sub 3. 输入一个百分制的成绩， 若大于等于 60，则用消息框弹出， 显示 “恭喜！成绩通过！ ”， 若小于 60，则弹出消息框，显示“抱歉！成绩没有通过 ！ Private Sub Form_Load() Text1 = End Sub Private Sub Command1_Click() Dim n