文档介绍：. .
- .jz*
VB程序设计编程考试题及答案
1..输入3个数，输出最大的数
：aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根
，假设大于等于60，那么用消息框弹出，显示“恭喜！成绩通过！〞，假设小于60，那么弹出消息框，显示“抱歉！成绩没有通过！
，转换输出为五级制成绩，90～100分转换为优秀，80～89转换为良好，70～79转换为中等，60～69转换为及格，0～60转换为不及格。
，然后逆序输出，产生的数与逆序数同时显示。例如，产生246，输出是642。
，求它们的最大公约数。
-100中，满足3的倍数、7的倍数的数各有多少。
，统计其中字母A(不区分大小写)出现的次数。
，%计算，多少年后我国人口将超过26亿。
，第一天吃掉一半多一个；第二天吃剩下桃子的一半多一个；以后每天都吃尚存桃子的一半多一个，到第7天只剩一个，问小猴原有桃多少？
。假定小鸡每只5角，公鸡每只2元，母鸡每只3元，编程求解购鸡方案。
。〔斐波那契数列：F(0)=f(1)=1, F(n)=F(n-1)+F(n-2) n>=2 〕
()，编程插入x〔x的值为14〕。数组a中的元素分别为{12，6，4，89，75，63，100，20，31}。
、5、7除，余数均为1的最小的5个正整数。
15利用随机函数产生50~100X围内的20个随机数，显示其中的最大值、最小值和平均值。
，统计字符串中汉字的个数。
输入3个数，输出最大的数
Private Sub mand1_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
有一元二次方程：aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根
Private Sub mand1_Click()
Dim a, b, c, n
.