VB期末考試大題答案.doc

《VB期末考試大題答案.doc》由會(huì)員分享，可在線閱讀，更多相關(guān)《VB期末考試大題答案.doc（9頁(yè)珍藏版）》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。

1給定年份和月份，判斷該年是否是閏年。并根據(jù)給出的月份判斷是什么季節(jié)、該月有多少天。（閏年的條件是：年份能被4整除但不能被100整除或能被400整除） Private Sub Command1_Click() Dim x As Integer, y As Integer Text1.Text = InputBox("請(qǐng)輸入年份 ") 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("請(qǐng)輸入月份") 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("請(qǐng)輸入年份") 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("請(qǐng)輸入月份") 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編寫程序，輸入學(xué)生的姓名、學(xué)號(hào)和成績(jī)（高數(shù)、英語(yǔ)和專業(yè)課），判斷該學(xué)生能獲得幾等獎(jiǎng)學(xué)金，并輸出結(jié)果。 獲獎(jiǎng)條件是：一等獎(jiǎng)學(xué)金要求所有成績(jī)?cè)?5分以上；二等獎(jiǎng)學(xué)金要求所有成績(jī)?cè)?0分以上；三等獎(jiǎng)學(xué)金要求所有成績(jī)?cè)?8分以上。 Private Sub Command1_Click() Dim m%, n%, d%, sun%, no$, name$ no = InputBox("輸入學(xué)號(hào)") 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 & "獲一等獎(jiǎng)學(xué)金" ElseIf m >= 90 And n >= 90 And d >= 90 Then Label5.Caption = name & "獲二等獎(jiǎng)學(xué)金" ElseIf m >= 88 And n >= 88 And d >= 88 Then Label5.Caption = name & "獲三等獎(jiǎng)學(xué)金" Else Label5.Caption = name & "沒(méi)有獎(jiǎng)學(xué)金" End If End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Label5.Caption = " " End Sub 3編寫一個(gè)程序輸入某人的身高（cm）和體重（kg），按下式確定其體重是否為標(biāo)準(zhǔn)、過(guò)胖或過(guò)瘦： （1）標(biāo)準(zhǔn)體重=身高-110；（2）超過(guò)標(biāo)準(zhǔn)體重5kg為過(guò)胖；（3）低于標(biāo)準(zhǔn)體重5kg為過(guò)瘦。 Private Sub Command1_Click() Dim m!, n%, d! m = Val(Text1.Text) n = Val(Text2.Text) d = n - 110 Label5.Caption = " 按你的身高，標(biāo)準(zhǔn)體重為：" & d & "公斤" If m - d > 5 Then Label6.Caption = "你比較胖，請(qǐng)注意瘦身" ElseIf m = d Then Label6.Caption = "你是標(biāo)準(zhǔn)體重" Else Label6.Caption = "你比較瘦，請(qǐng)注意鍛煉" 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米以上。 用三個(gè)文本框控件分別輸入性別、年齡、身高信息，根據(jù)這些信息判斷是否符合征兵條件，用標(biāo)簽控件輸出結(jié)果。 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為某航空公司設(shè)計(jì)一售機(jī)票程序，能根據(jù)月份和訂票數(shù)決定優(yōu)惠率，計(jì)算票價(jià)。假設(shè)優(yōu)惠折扣規(guī)定如下：①在旅游的旺季7～9月份，如果訂票數(shù)超過(guò)20張，票價(jià)優(yōu)惠15%；20張以下，票價(jià)優(yōu)惠5%。②在旅游的淡季1～5月份、10月份和11月份，如果訂票數(shù)超過(guò)20張，票價(jià)優(yōu)惠30%，20張以下，票價(jià)優(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 = "所訂機(jī)票的優(yōu)惠率為:" & Str(r) & "%" Label6.Caption = "單張票價(jià)為" & (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語(yǔ)句求三個(gè)數(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輸入一公元年號(hào)，判斷是否是閏年。閏年的條件是：年號(hào)能被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("年份", "請(qǐng)輸入")) m = Val(InputBox("月份", "請(qǐng)輸入")) If y Mod 4 = 0 Or y Mod 400 = 0 Then Print "年份："; y; " 是閏年!" b = True Else Print "年份："; y; "不是閏年!" b = False End 8北京化工大學(xué)北方學(xué)院決定組織成績(jī)優(yōu)秀的學(xué)生免費(fèi)旅游，可以獲得旅游的條件如下： （1)所考3門課程即英語(yǔ)、高等數(shù)學(xué)、VB的總分超過(guò)285分，并且每門課程的成績(jī)超過(guò)90分，這樣的學(xué)生可以免費(fèi)旅游頤和園、故宮和天壇； （2)每門課程的成績(jī)都在88分以上，這樣的學(xué)生可以免費(fèi)旅游頤和園、故宮； （3)每門課程的成績(jī)都在80分以上，這樣的學(xué)生可以免費(fèi)旅游頤和園； （4）其他條件都沒(méi)有免費(fèi)旅游資格。 編程輸入某學(xué)生3門課的成績(jī)，判斷此學(xué)生可以到何處旅游。 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 = "可以免費(fèi)旅游頤和園?故宮和天壇" ElseIf m >= 88 And n >= 88 And d >= 88 Then Label5.Caption = "可以免費(fèi)旅游頤和園?故宮" ElseIf m >= 80 And n >= 80 And d >= 80 Then Label5.Caption = "可以免費(fèi)旅游頤和園" Else Label5.Caption = "不可以免費(fèi)旅游" 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在“神州號(hào)”程序中，需要判斷飛船飛行狀況。當(dāng)飛船速度繼續(xù)加大時(shí)，飛船將達(dá)到第二宇宙、第三宇宙速度（見(jiàn)下表）試編寫程序，輸入不同的飛船速度V，判斷它的各種飛行狀況，顯示出來(lái)。 飛船速度（ V） 單位（km/s） 飛行狀況 7.91<=V<11.19 飛船繞地球做勻速圓周運(yùn)動(dòng) 11.19<=V<16.67 飛船離開(kāi)地球的控制 ,圍繞太陽(yáng)轉(zhuǎn) V>16.67 飛船掙脫太陽(yáng)引力飛出太陽(yáng)系 Private Sub Command1_Click() Dim v! v = Val(Text1.Text) If (v > 7.91 And v < 11.19) Then Text2.Text = "飛船繞地球做勻速圓周運(yùn)動(dòng)" ElseIf (v >= 11.19 And v < 16.67) Then Text2.Text = "飛船離開(kāi)地球的控制 ,圍繞太陽(yáng)轉(zhuǎn)" ElseIf (v >= 16.67) Then Text2.Text = "飛船掙脫太陽(yáng)引力飛出太陽(yáng)系" End If End Sub Private Sub Command2_Click() End End Sub 10編一段程序，從鍵盤輸入3個(gè)整數(shù)，找出其中絕對(duì)值最小的數(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