VB 程序设计编程考试题及答案
1.. 输入 3 个数,输出最大的数
2. 有一元二次方程:aX
2
+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. 我国目前有 1 3 亿人口,按人口年增长率 %计算,多少年后我国人口将超过 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. 有一元二次方程:aX
2
+bX+c=0,依次输入 a,b,c,判断此方程是否有实根
Dim a, b, c, n
评论0
最新资源