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)

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天"

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）在18~20之间，身高（size）在1.65米以上；或者女性（sex）年龄（age）在16~18之间，身高（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 <= 20 And d > 1.63 Then

Label5.Caption = "符合征兵条件"

ElseIf m = "女" And n >= 16 And n <= 18 And d > 1.6 Then

Label5.Caption = "符合征兵条件"

Else

Label5.Caption = "不符合征兵条件"

End If

End Sub

Private Sub Command2_Click()

End

End Sub

5为某航空公司设计一售机票程序，能根据月份和订票数决定优惠率，计算票价。假设优惠折扣规定如下：①在旅游的旺季7～9月份，如果订票数超过20张，票价优惠15%；20张以下，票价优惠5%。②在旅游的淡季1～5月份、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 <= 20 Then r = 20 Else r = 30

Case 7 To 9

If n <= 20 Then r = 5 Else r = 15

Case Else

r = 20

End Select

Label4.Caption = "所订机票的优惠率为:" & Str(r) & "%"

Label6.Caption = "单张票价为" & (100 - r) * dj / 100 & "元" & "，共收款" & (100 - r) * dj * n / 100 & "元"

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

Text1.Text = Month(Date)

End Sub

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

Private Sub Command1_Click()

i = Val(Text1.Text)

j = Val(Text2.Text)

k = Val(Text3.Text)

m = i

If (i < j) Then m = j

If (m < k) Then m = k

Text4.Text = m

End Sub

Private Sub Command3_Click()

End

End Sub

7输入一公元年号，判断是否是闰年。闰年的条件是：年号能被4整除但不能被100整除，或者能被400整除。

Private Sub Command1_Click()

Dim y As Long, _

m As Long

Dim b As Boolean

Me.Cls

b = False

y = Val(InputBox("年份", "请输入"))

m = Val(InputBox("月份", "请输入"))

If y Mod 4 = 0 Or y Mod 400 = 0 Then

Print "年份："; y; " 是闰年!"

b = True

Print "年份："; y; "不是闰年!"

b = False

End

8北京化工大学北方学院决定组织成绩优秀的学生免费旅游，可以获得旅游的条件如下：（1)所考3门课程即英语、高等数学、VB的总分超过285分，并且每门课程的成绩超过90分，这样的学生可以免费旅游颐和园、故宫和天坛；

（2)每门课程的成绩都在88分以上，这样的学生可以免费旅游颐和园、故宫；

（3)每门课程的成绩都在80分以上，这样的学生可以免费旅游颐和园；

（4）其他条件都没有免费旅游资格。

编程输入某学生3门课的成绩，判断此学生可以到何处旅游。

Private Sub Command1_Click()

Dim m%, n%, d%, sun%

m = Val(Text1.Text)

n = Val(Text2.Text)

d = Val(Text3.Text)

sun = m + n + d

If sun >= 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 Sub

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

飞船速度（ V）单位（km/s）飞行状况

7.91<=V<11.19 飞船绕地球做匀速圆周运动

11.19<=V<16.67 飞船离开地球的控制 ,围绕太阳

转

V>16.67 飞船挣脱太阳引力飞出太阳系

Private Sub Command1_Click()

Dim v!

v = Val(Text1.Text)

If (v > 7.91 And v < 11.19) Then

Text2.Text = "飞船绕地球做匀速圆周运动"

ElseIf (v >= 11.19 And v < 16.67) Then

Text2.Text = "飞船离开地球的控制 ,围绕太阳转"

ElseIf (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.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 = m

End Sub

Private Sub Command3_Click()

End

End Sub