文档介绍：输入３个数，输出最大的数
有一元二次方程：aX２+bX+ｃ=０，依次输入ａ,b，c,判断此方程是否有实根
输入一个百分制的成绩,若大于等于６0,则用消息框弹出，显示“恭喜！成绩通过!”,若小于60，则弹出消息框,显示“抱歉！成绩没有通过！”
输入一年份,判断它是否为闰年，并显示有关信息。（判断闰年的条件是：年份能被４整除但不能被１0０整除，或者能被400整除）
输入学生的百分制成绩,转换输出为五级制成绩，９０～100分转换为优秀,80～89转换为良好，7０～7９转换为中等，60～69转换为及格,0~60转换为不及格。
随机产生一个三位正整数,然后逆序输出，产生的数与逆序数同时显示。例如，产生2４６,输出是6４２.
输入两个整数,求它们的最大公约数。
编程求200--400范围内5的倍数或7的倍数之和。（一个数如果同时是7和５的倍数，则只能加一次.。
计算100~３00之间所有能被3和7整除的数之和
分别统计1—１００中,满足3的倍数、7的倍数的数各有多少。
某次歌曲大奖赛,有7个评委。如果分别输入7个评委对某个参赛者的打分数，按照去掉一个最高分和一个最低分的计算办法，求出该参赛者的平均得分。
输入一串字符，统计其中字母Ａ（不区分大小写）出现的次数。
我国目前有13亿人口，％计算,多少年后我国人口将超过２6亿。
小猴有桃若干，第一天吃掉一半多一个；第二天吃剩下桃子的一半多一个;以后每天都吃尚存桃子的一半多一个，到第７天只剩一个，问小猴原有桃多少?
求１00以内的素数
百元买百鸡问题。假定小鸡每只5角，公鸡每只2元，母鸡每只３元，编程求解购鸡方案。
编程求斐波那契数列前11项。(斐波那契数列:Ｆ(0）=f（１）=1, F(n)=Ｆ（n-1）+F(n－2) n〉=2 )
将输入的字符串以反序显示。例如：输入“ASＤFGT”,显示“TGＦDSA”
随机产生１0个［３０，１00］内的整数,求最大值及所对应的下标
随机产生１0个[30,100］内的整数，求最大值、最小值和平均值.
随机产生1０个[30,100]内的整数,求最小值及所对应的下标.
随机生成一个整型的二维数组，范围在［10，20]之间，以下三角形式输出该数组.
随机产生10个１～1０0的正整数放入数组，显示产生的数，求最大值、最小值、平均值。
利用随机函数生成一个４×4的矩阵(即二维矩阵)，范围是［２0，50］内的整数，输出该矩阵所有数据之和
已知有序数组a(），编程插入x(x的值为１4）。数组a中的元素分别为{1２，6，4，89,75，６3，100,２0，31｝.
编写一函数，计算Douｂle类型一维数组所有元素的平均值。
用函数过程求表达式１+１/2+1/3+１/４+…+1／n的和。
编一子过程ProｃＭin，求一维数组ａ中的最小值，子过程的形参自己确定。
编一个函数，求一维数组a中的最大值，函数的形参自己确定。
编写一个过程计算并输出区间［10０，100０］内所有素数的和(要求判断素数使用过程（函数或子过程）。（提示:只能被１和自身整除的自然数称为素数。）
(注：本答案第一行代码应在题目之后，自行调整）
Privatｅ Sｕb Commａnd１1_Ｃlick（）
’1. 输入3个数，输出最大的数
Ｄim maｘ％
Ｘ1 =　Val（InputBox（”input”）)
X2　= Vａl(IｎputBoｘ(”iｎput"))
ｘ３ = Vａl(InputBoｘ（"iｎｐut"）)
max =　X１
If　ｍax 〈= Ｘ2 Tｈen
max = Ｘ2
Eｎｄ Iｆ
Iｆ maｘ〈=　ｘ3 Ｔheｎ
max ＝ x3
End　If
MsｇＢｏｘ (”3个数之中的最大数max=”　& ｍax)
Enｄ Sub
Private Sｕb Cｏmmand12_Click()
'２. 　'有一元二次方程：aX2+bX+ｃ=0,依次输入a,b,c,判断此方程是否有实根
a　= Val（ＩnpｕtBoｘ("input"))
B　= Ｖal（ＩnputBｏx("ｉnput"））
c = Val（ＩnputBｏx（”inpｕt＂））
s = B　＾ 2 -　４＊ a　＊ c
Iｆ a 〈> 0 Tｈen
Iｆ s =　0　Then
ＭsｇBox (”两个相等实根＂）
ElsｅIｆ s　＞　0 Thｅｎ
MsｇBｏx (”两个不相等实根"）
ＥlsｅIf s < 0 Tｈeｎ
MsgBoｘ（＂两个不相等虚根"）
Eｎｄ If
Elｓｅ
MsgBox (" 无解”）
Enｄ If
Ｅnd