VB操作题

VB操作题

目录

4. 给定年份和月份，判断该年是否是闰年。并根据给出的月份判断是什么季节、该月有多少天。（闰年的条件是：年份能被4整除但不能被100整除或能被400 整除）

6. 编写程序，输入学生的姓名、学号和成绩（高数、英语和专业课），判断该学生能获得几等奖学金，并输出结果。获奖条件是：一等奖学金要求所有成绩在95分以上；二等奖学金要求所有成绩在90分以上；三等奖学金要求所有成绩在88分以上。

8. 已知：。。当任意输入x值时求f(x)的值。请编制程序完成。

9. 编写一个程序输入某人的身高（cm）和体重（kg），按下式确定其体重是否为标准、过胖或过瘦：

（1）标准体重=身高-110；（2）超过标准体重5kg为过胖；（3）低于标准体重5kg为瘦。

10. 征兵的条件是：男性（sex）年龄（age）在18~20之间，身高（size）在1.65米以上；或者女性（sex）年龄（age）在16~18之间，身高（size）在1.60米以上。

用三个文本框控件分别输入性别、年龄、身高信息，根据这些信息判断是否符合征兵条件，用标签控件输出结果。

11. 夏季到了，超市对水果进行促销，具体活动如下：

早市9：00~ 12：00 所有水果打九折；

午市12：00 ~ 16：00 所有水果打8折；

晚市16：00 ~ 21：00 所有水果打7折；

小明今天要去超市买些荔枝，请根据他去的时间段，编程输入荔枝的价格并计算总价。（请注意，他买的水果可能不止1斤）

12. 为某航空公司设计一售机票程序，能根据月份和订票数决定优惠率，计算票

价。假设优惠折扣规定如下：

①在旅游的旺季7～9 月份，如果订票数超过20 张，票价优惠15%；20 张以下，票价优惠5%。

②在旅游的淡季1～5 月份、10 月份和11 月份，如果订票数超过20 张，票价优惠30%，

20 张以下，票价优惠20%。

③其他情况，一律优惠20%。

13. 输入4 个大小不同的数，将它们从大到小排序。

14. 利用if 语句求三个数x，y，z 中的最大值，并将其放入Max 变量中显示输出。

15. 编一段程序，从键盘输入3 个整数，找出其中绝对值最小的数。

16. 税务部门征收所得税，规定如下：

（1）收入在1000内的，免征。

（2）收入在1000~1500元内，超过1000元的部分征税2% 。

（3）收入超过1500元的部分，纳税3%。

（4）当收入达到或者超过5000元时，将3%税金改为4%。

编程实现上述条件的税金，利用InputBox函数进行输入某人的收入，然后根据条件计算所交税金及交税金之后的实际收入，将所交税金及实际收入通过文本框输出

17. 求一个一元二次方程ax^2+... 的根

18. 任意输入5个学生的成绩，当成绩大于等于60小于等于100时，输出该生成绩“合格”，当成绩大于等于0小于60时，输出该生成绩“不合格”，其他情况输出“成绩不合法”，并

统计这5个人的平均分。

19. 用两种循环结构输出101~500之间的所有奇数并输出它们的和。

20. 输入两个正整数m 和n，求其最大公约数a

21.

求：

要求：用InputBox或文本框进行n值的输入，用MsgBox函数输出结果

22. 利用下述公式计算的值（直到最后一项小于为止）。

23. 百鸡问题

公鸡每只5元，母鸡每只3元，小鸡3只1元。现有100元，要求买100只鸡，问：公鸡、母鸡、小鸡各多少只？（所有可能的结果均放在列表框中显示出来）

24. 设计程序，求s=1*（1+2）*（1+2+3）*….*（1+2+3+4+…+n）的值，编程求s不大于20000时最大的n值。

25. 求300~400之间（包括300和400）所有能被3整除的数之和s，并在窗体上打印出s 的值。

26. 已知编程实现：任意输入n的值，求S的值

27. 编程求1到100自然数中被7整除的数据的个数及它们的和。

28. 求S=1!/2 + 2!/3 + 3!/4 + ... + n!/(n+1)，n是从键盘输入的正整数n 。

29．求s，直到最后一项的值小于10^(-6)

30. s=....r任意输入一个n值，求S

31. 某单位制定生产计划，未来五年的生产量年递增率为5%，从第六年起年递

增率调整到8%，试计算产量翻一翻（基数的2 倍）所需的最少年数。

32. 编写一个求4个数中最大数的Sub过程，并调用以验证其正确性。

33. 编写一个求4个数的最小值的函数，在窗体上设计4个文本框输入数据，一个命令按钮“求最小值“，点击该按钮既可调用函数求出4个文本框中的数值的最小值。

34. 编写一个计算圆的面积的函数过程或子过程。要求输入一个半径值，就能够

通过该子过程或函数过程求得以该值为半径的圆的面积

35. S=1/1+1....，编写一个求的Function过程。

36. 编写的Function函数，用该函数实现以下表达式求和，n为任意输入的数值。

37. 在列表框中输入100~200之间不能被3整除的数。窗体上有两个命令按钮和一个列表框，一个命令按钮的标题为“开始”，一个命令按钮的标题为“清除“；点击”开始“按钮后在列表框中列出所有满足条件的数据，点击”清除“按钮后清除列表框中的数据。

38. 已知数组A=array(7,9,5,12,24,32,45)，编写一程序，删除数组中值为x （例如为9）的第一个元素。要求用户可以输入x 。

39. 随机产生n 个（n 由用户输入）[10,20]范围内的无序整数，存放到数组中，

显示结果，并将数组中相同的数只保留一个，其余的删除，最后输出删除后的结果。

40. 利用一维数组统计一班15 个学生0~9、10~19、20~29、……、90~99 及100

各分数段的人数，并将统计结果在列表框中显示出来

41. 有10 个数据，请用冒泡法排序将其按照由小到大的顺排列出来

42. 把两个按升序（即从小到大）排序的数列a(1),a(2),a(3),……,a(10)和b(15)

合并成一个仍为升序排列的新数列

43. 利用随机函数产生20 个50~100 范围内的随机数，显示他们的最大值、最小值和

平均值。

44. 编写一个在数组中查找最大值的函数过程。要求给定或由机器产生一系列随机数构

成一个一维数组，然后调用该过程，就可以找到并显示数组中的最大值。