vb期末考试大题答案1

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