程序设计编程考试题及答案
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB程序设计编程考试题及答案
1..输入3个数，输出最大的数
2.有一元二次方程：aX2+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.有一元二次方程：aX2+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
n = Text1
If n > 60 Then
Val (MsgBox("恭喜！成绩通过！"))
Else
Val (MsgBox("抱歉！成绩没有通过！"))
End If
End Sub
4.输入学生的百分制成绩，转换输出为五级制成绩，90～100分转换为优秀，80～89转
换为良好，70～79转换为中等，60～69转换为及格，0～60转换为不及格。
Private Sub Command1_Click()
a = Val(InputBox("请输入成绩"))
If a > 100 Then Print "超出范围"
If a >= 90 And a <= 100 Then Print "优秀"
If a >= 80 And a < 90 Then Print "良好"
If a >= 70 And a < 80 Then Print "中等"
If a >= 60 And a < 70 Then Print "及格"
If a < 60 Then Print "不及格"
End Sub
5.随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产生
246，输出是642。
Private Sub Command1_Click()
Dim x%, x1%, x2%, x3%
x = Text1
x1 = x Mod 10
x2 = (x Mod 100) \ 10
x3 = x \ 100
Label1 = x1 * 100 + x2 * 10 + x3
End Sub
6.输入两个整数，求它们的最大公约数。
private Sub Command1_Click()
n1 = InputBox("输入n")
m1 = InputBox("输入m")
If m1 > n1 Then
m = m1: n = n1
Else
m = n1: n = m1
End If
r = m Mod n
Do While r <> 0
m = n
n = r
r = m Mod n
Loop
Print "m n 的最大公约数是："; n
End Sub
7.分别统计1-100中，满足3的倍数、7的倍数的数各有多少。
Private Sub Command1_Click()
Dim i, s3, s7
s3 = 0
s7 = 0
For i = 1 To 100
If i Mod 3 = 0 Then
s3 = s3 + 1
End If
Next i
For i = 1 To 100
If i Mod 7 = 0 Then
s7 = s7 + 1
End If
Next i
Print "3的倍数"; s3
Print "7的倍数"; s7
End Sub
8.输入一串字符，统计其中字母A(不区分大小写)出现的次数。