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