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.我国目前有 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 ,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,判断此方程是否有实根
Private Sub Command1_Click()
Dim a, b, c, n
评论0
最新资源