admin 管理员组文章数量: 1086019
2024年4月19日发(作者：weblogic启动闪退)
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
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(不区分大小写)出现的次数。
Private Sub Command1_Click()
Dim c As String, a As Integer
b = InputBox("请输入字符")
For i = 1 To Len(b)
c = UCase(Mid(b, i, 1))
If c = "A" Then
a = a + 1
End If
Next i
Print "a出现的次数："; a
End Sub
9. 我国目前有13亿人口，按人口年增长率%计算，多少年后我国人口将超过26亿。
Private Sub Command1_Click()
Dim a, i
a = 13
i = 0
Do While a < 26
a = a *
i = i + 1
Loop
Print i
End Sub
10. 小猴有桃若干，第一天吃掉一半多一个；第二天吃剩下桃子的一半多一个；以后每天
都吃尚存桃子的一半多一个，到第7天只剩一个，问小猴原有桃多少？
Private Sub Command1_Click()
Dim a, i
a = 1
For i = 1 To 6
a = 2 * (a + 1)
Next i
Print "小猴原有桃"; a;”只”
End Sub
11. 百元买百鸡问题。假定小鸡每只5角，公鸡每只2元，母鸡每只3元，编程求解购鸡
方案。
Private Sub Command1_Click()
Print "小鸡"; " "; "母鸡"; " "; "公鸡"
Print ""
For x = 1 To 100
For y = 1 To 100
For z = 1 To 100
If * x + 2 * y + 3 * z = 100 Then
版权声明：本文标题：VB程序设计编程考试题及答案 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1713463167a635926.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论