1、1 给定年份和月份,判断该年是否是闰年。并根据给出的月份判断是什么季节、该月有多少天。 (闰年的条件是:年份能被 4 整除但不能被 100 整除或能被 400 整除)Private 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)Text2.Text = InputBox(“请输入月
2、份 “)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 Sub2 编写程序,输入学生的姓名、学号和成绩(高数、英语和专业课),判断该学生能获得几等奖学金,并输出结果。获奖条件是:一等奖学金要求所有成绩在 95 分以上;二等奖学金要求所有成绩在
3、90 分以上;三等奖学金要求所有成绩在 88 分以上。Private 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 + d If m 95 And n 95 And d 95 Then Label5.Caption = name & “获一等奖学金“ ElseIf m = 90 And n = 90
4、And d = 90 Then Label5.Caption = name & “获二等奖学金“ ElseIf m = 88 And n = 88 And d = 88 Then Label5.Caption = name & “获三等奖学金“ Else Label5.Caption = name & “没有奖学金“ End If End Sub Private Sub Command2_Click() Text1.Text = “ Text2.Text = “ Text3.Text = “ Label5.Caption = “ “ End Sub 3 编写一个程序输入某人的身高(cm)和体重
5、(kg) ,按下式确定其体重是否为标准、过胖或过瘦:(1)标准体重=身高-110;( 2)超过标准体重 5kg 为过胖;(3)低于标准体重 5kg 为过瘦。Private Sub Command1_Click()Dim m!, n%, d!m = Val(Text1.Text)n = Val(Text2.Text)d = n - 110Label5.Caption = “ 按你的身高,标准体重为:“ & d & “ 公斤“If m - d 5 ThenLabel6.Caption = “你比较胖,请注意瘦身“ElseIf m = d ThenLabel6.Caption = “你是标准体重“E
6、lseLabel6.Caption = “你比较瘦,请注意锻炼“End IfEnd SubPrivate Sub Command2_Click()Text1.Text = “ “Text2.Text = “ “Label5.Caption = “ “Label6.Caption = “ “End SubPrivate Sub Command3_Click()EndEnd Sub4 征兵的条件是:男性(sex)年龄( age)在 1820 之间,身高(size)在 1.65 米以上;或者女性(sex)年龄(age)在 1618 之间,身高(size )在 1.60 米以上。用三个文本框控件分别输
7、入性别、年龄、身高信息,根据这些信息判断是否符合征兵条件,用标签控件输出结果。Private Sub Command1_Click()Dim m$, n%, d!m = Text1.Textn = Val(Text2.Text)d = Val(Text3.Text)If m = “男“ And n = 18 And n 1.63 ThenLabel5.Caption = “符合征兵条件“ElseIf m = “女“ And n = 16 And n 1.6 ThenLabel5.Caption = “符合征兵条件“ElseLabel5.Caption = “不符合征兵条件“End IfEnd
8、SubPrivate Sub Command2_Click()EndEnd Sub5 为某航空公司设计一售机票程序,能根据月份和订票数决定优惠率,计算票价。假设优惠折扣规定如下:在旅游的旺季 79 月份,如果订票数超过 20 张,票价优惠 15%;20张以下,票价优惠 5%。在旅游的淡季 15 月份、10 月份和 11 月份,如果订票数超过20 张,票价优惠 30%,20 张以下,票价优惠 20%。其他情况,一律优惠 20%。Private Sub Command1_Click()Dim m%, n%, r%, dj!m = Val(Text1.Text)n = Val(Text2.Text)
9、dj = Val(Text3.Text)Select Case mCase 1 To 5If n = 285 And m 90 And n 90 And d 90 ThenLabel5.Caption = “可以免费旅游颐和园?故宫和天坛“ElseIf m = 88 And n = 88 And d = 88 ThenLabel5.Caption = “可以免费旅游颐和园?故宫“ElseIf m = 80 And n = 80 And d = 80 ThenLabel5.Caption = “可以免费旅游颐和园“ElseLabel5.Caption = “不可以免费旅游“End IfEnd S
10、ubPrivate Sub Command2_Click()Text1.Text = “Text2.Text = “Text3.Text = “Label5.Caption = “ “End SubPrivate Sub Command3_Click()EndEnd Sub9 在“神州号”程序中,需要判断飞船飞行状况。当飞船速度继续加大时,飞船将达到第二宇宙、第三宇宙速度(见下表)试编写程序,输入不同的飞船速度 V,判断它的各种飞行状况,显示出来。飞船速度( V) 单位(km/s)飞行状况 7.9116.67 飞船挣脱太阳引力飞出太阳系 Private Sub Command1_Click()
11、Dim v!v = Val(Text1.Text)If (v 7.91 And v = 11.19 And v = 16.67) ThenText2.Text = “飞船挣脱太阳引力飞出太阳系“End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub10 编一段程序,从键盘输入 3 个整数,找出其中绝对值最小的数。Private Sub Command1_Click()i = Val(Text1.Text)j = Val(Text2.Text)k = Val(Text3.Text)m = Abs(i)If (m Abs(j) Then m = Abs(j)If (m Abs(k) Then m = Abs(k)Text4.Text = mEnd SubPrivate Sub Command3_Click()EndEnd Sub