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/，编写一个求的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 整除）
4
Private Sub Command1_Click()
Dim x As Integer, y As Integer
Text1.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 Sub
Private Sub Command2_Click()
Dim x As Integer, y As Integer
Text2.Text = InputBox("请输入月份")
y = Val(Text2.Text)
Select Case y
Case 3 To 5
Text4.Text = "春季"
Case 6 To 8
Text4.Text = "夏季"
Case 9 To 11
Text4.Text = "秋季"
Case 1, 2, 12
Text4.Text = " 冬季"
End Select
End Sub
Private Sub Command3_Click()
Dim x As Integer, y As Integer
Text1.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 y
Case 1, 3, 5, 7, 8, 10, 11
Text5.Text = "31天"
Case 4, 6, 9, 12
Text5.Text = "30天"
Case 2
If Text1.Text = 0 Then
Text5.Text = "29天"
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论