《VB期末考試大題答案.doc》由會員分享，可在線閱讀，更多相關《VB期末考試大題答案.doc（9頁珍藏版）》請在裝配圖網上搜索。

1給定年份和月份，判斷該年是否是閏年。并根據(jù)給出的月份判斷是什么季節(jié)、該月有多少天。（閏年的條件是：年份能被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編寫程序，輸入學生的姓名、學號和成績（高數(shù)、英語和專業(yè)課），判斷該學生能獲得幾等獎學金，并輸出結果。 獲獎條件是：一等獎學金要求所有成績在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米以上。 用三個文本框控件分別輸入性別、年齡、身高信息，根據(jù)這些信息判斷是否符合征兵條件，用標簽控件輸出結果。 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為某航空公司設計一售機票程序，能根據(jù)月份和訂票數(shù)決定優(yōu)惠率，計算票價。假設優(yōu)惠折扣規(guī)定如下：①在旅游的旺季7～9月份，如果訂票數(shù)超過20張，票價優(yōu)惠15%；20張以下，票價優(yōu)惠5%。②在旅游的淡季1～5月份、10月份和11月份，如果訂票數(shù)超過20張，票價優(yōu)惠30%，20張以下，票價優(yōu)惠20%。③其他情況，一律優(yōu)惠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 = "所訂機票的優(yōu)惠率為:" & 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語句求三個數(shù)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 Else Print "年份："; y; "不是閏年!" b = False End 8北京化工大學北方學院決定組織成績優(yōu)秀的學生免費旅游，可以獲得旅游的條件如下： （1)所考3門課程即英語、高等數(shù)學、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 End Sub 9在“神州號”程序中，需要判斷飛船飛行狀況。當飛船速度繼續(xù)加大時，飛船將達到第二宇宙、第三宇宙速度（見下表）試編寫程序，輸入不同的飛船速度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個整數(shù)，找出其中絕對值最小的數(shù)。 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