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，求其最大公约数a21.求：要求：用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值，求S31. 某单位制定生产计划，未来五年的生产量年递增率为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. 编写一个在数组中查找最大值的函数过程。

要求给定或由机器产生一系列随机数构成一个一维数组，然后调用该过程，就可以找到并显示数组中的最大值。

45. （96）任意输入n 值，编程求n!46．（80）已知铁路货运的费用与路程s的关系如下表所示：设计窗体界面如下图所示，程序运行后，用户输入路程和货物重量，单击命令按钮，显示总共需要的费用。

47.在“神州号”程序中，需要判断飞船飞行状况。

当飞船速度继续加大时，飞船将达到第二宇宙、第三宇宙速度（见下表）试编写程序，输入不同的飞船速度V，判断它的各种飞行状况，显示出来。

飞船速度（V）单位（km/s）飞行状况7.91<=V<11.19 飞船绕地球做匀速圆周运动11.19<=V<16.67 飞船离开地球的控制,围绕太阳转V>16.67 飞船挣脱太阳引力飞出太阳系48. ?，编写一个求的Sub过程，对于任意给定的n值，调用该过程求出相应的s值——————————————————答案———————————————————4. 给定年份和月份，判断该年是否是闰年。

并根据给出的月份判断是什么季节、该月有多少天。

（闰年的条件是：年份能被4整除但不能被100整除或能被400 整除）4Private Sub Command1_Click()Dim x As Integer, y As IntegerText1.Text = InputBox("请输入年份")x = Val(Text1.Text)Text3.Text = (x Mod 4) = 0 And (x Mod 100 <> 0) _Or (x Mod 4) = 0 And (x Mod 400 = 0)End SubPrivate Sub Command2_Click()Dim x As Integer, y As IntegerText2.Text = InputBox("请输入月份")y = Val(Text2.Text)Select Case yCase 3 To 5Text4.Text = "春季"Case 6 To 8Text4.Text = "夏季"Case 9 To 11Text4.Text = "秋季"Case 1, 2, 12Text4.Text = " 冬季"End SelectEnd SubPrivate Sub Command3_Click()Dim x As Integer, y As IntegerText1.Text = InputBox("请输入年份")x = Val(Text1.Text)Text3.Text = (x Mod 4) = 0 And (x Mod 100 <> 0) _Or (x Mod 4) = 0 And (x Mod 400 = 0)Text2.Text = InputBox("请输入月份")y = Val(Text2.Text)Select Case yCase 1, 3, 5, 7, 8, 10, 11Text5.Text = "31天"Case 4, 6, 9, 12Text5.Text = "30天"Case 2If Text1.Text = 0 ThenText5.Text = "29天"ElseText5.Text = "28天"End IfEnd SelectEnd Sub6. 编写程序，输入学生的姓名、学号和成绩（高数、英语和专业课），判断该学生能获得几等奖学金，并输出结果。

获奖条件是：一等奖学金要求所有成绩在95分以上；二等奖学金要求所有成绩在90分以上；三等奖学金要求所有成绩在88分以上。

6Private Sub Command1_Click()Dim m%, n%, d%, sun%, no$, name$no = InputBox("输入学号")name = InputBox("输入姓名")m = Val(Text1.Text)n = Val(Text2.Text)d = Val(Text3.Text)sun = m + n + dIf m > 95 And n > 95 And d > 95 ThenLabel5.Caption = name & "获一等奖学金"ElseIf m >= 90 And n >= 90 And d >= 90 ThenLabel5.Caption = name & "获二等奖学金"ElseIf m >= 88 And n >= 88 And d >= 88 ThenLabel5.Caption = name & "获三等奖学金"ElseLabel5.Caption = name & "没有奖学金"""End IfEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Label5.Caption = " "End Sub8 当任意输入x值时求f(x)的值。