文档介绍：输入3个数，输出最大的数
有一元二次方程：aX2+bX+c二0,依次输入a, b, c, 判断此方程是否有实根
输入一个百分制的成绩，若大于等于60,则用消息框弹出，显示“恭喜！成绩通过！”，若小于60,则弹出消息框，显示“抱歉！成绩没有通过！”
输入一年份，判断它是否为闰年，并显示有关信息。
（判断闰年的条件是：年份能被4整除但不能被100 整除，或者能被400整除）
输入学生的百分制成绩，转换输出为五级制成绩， 90—100分转换为优秀，80—89转换为良好，70— 79转换为中等，60〜69转换为及格，0〜60转换为不及格。
随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产生246,输出是642。
输入两个整数，求它们的最大公约数。
编程求200—400范围内5的倍数或7的倍数之和。（一个数如果同时是7和5的倍数，则只能加一次。。
计算100^300之间所有能被3和7整除的数之和
分别统计1-100中，满足3的倍数、7的倍数的数各有多少。
某次歌曲大奖赛，有7个评委。如果分别输入7个评委对某个参赛者的打分数，按照去掉一个最高分和一个最低分的计算办法，求出该参赛者的平均得分。
亿输入一串字符，统计其中字母A(不区分大小写)出现的次数。
，%计算, 多少年后我国人口将超过26亿。
14•小猴有桃若干，第一天吃掉一半多一个；第二天吃剩下桃子的一半多一个；以后每天都吃尚存桃子的一半多一个，到第7天只剩一个，问小猴原有桃多少？
求100以内的素数
百元买百鸡问题。假定小鸡每只5角，公鸡每只2 元，母鸡每只3元，编程求解购鸡方案。
编程求斐波那契数列前11项。(斐波那契数列：
F(0) =f(1)=1, F(n) =F(n-1) +F(n-2) n>=2 )
。例如：输入“ASDFGT”, 显示 “TGFDSA”
随机产生10个［30,100］内的整数，求最大值及所对应的下标
随机产生10个［30,100］内的整数，求最大值、最小值和平均值。
随机产生10个［30, 100］内的整数，求最小值及所对应的下标。
22•随机生成一个整型的二维数组，范围在［10,20］之间，以下三角形式输出该数组。
，显示产生的数，求最大值、最小值、平均值。
24 •利用随机函数生成一个4 X 4的矩阵（即二维矩阵）, 范围是［20,50］内的整数，输出该矩阵所有数据之和
已知有序数组a（）,编程插入X（X的值为14）。数组a中的元素分别为{12, 6, 4, 89, 75, 63, 100, 20, 31}o
编写一函数，计算Double类型一维数组所有元素的平均值。
用函数过程求表达式1+1/2+1/3+1/4+-+1/n的和.
编一子过程ProcMin,求一维数组a中的最小值，子过程的形参自己确定。
29•编一个函数，求一维数组a中的最大值，函数的形参自己确定。
30•编写一个过程计算并输出区间［100, 1000］内所有素数的和（要求判断素数使用过程（函数或子过程）来实现。调用该过程。（提示：只能被1和自身整
除的自然数称为素数。）
（注：本答案第一行代码应在题目之后，自行调整）
Pr i vate Sub Command11_CI ick ()
"・输入3个数，输出最大的数
Dim max%
X1 = VaI (InputBox ("i nput"))
X2 = VaI (InputBox ("i nput"))
x3 = VaI (InputBox("input"))
max ― X1
If max <= X2 Then
max 二 X2
End If
If max <= x3 Then
max 二 x3
End If
MsgBox ("3个数之中的最大数max二"& max)
End Sub
Pr i vate Sub Command12_CI ick （）
*2.'有一元二次方程：aX2+bX+c二0,依次输入a, b,
c,判断此方程是否有实根
a 二 Vai (InputBox("input")) B 二 Vai (InputBox("input")) c 二 Vai (InputBox("input")) s 二 B 八 2-4*a*c
If a <> 0 Then
If s = 0 Then
MsgBox C两个相等实根“)
EIseIf s > 0 Then
MsgBox C两个不相等实根”)
EIseIf