答案-2014 VB 實(shí)驗(yàn)教學(xué)大綱

計(jì)算機(jī)應(yīng)用基礎(chǔ)（二）實(shí)驗(yàn)教學(xué)大綱課程編號(hào)： 課程名稱：計(jì)算機(jī)應(yīng)用基礎(chǔ)二英文名稱：Fundamentals 2 of Computer Application對(duì) 象：本科上機(jī)時(shí)數(shù)：28小時(shí)（14周）一、實(shí)驗(yàn)說明本實(shí)驗(yàn)大綱中的每個(gè)題目要求在一個(gè)窗體內(nèi)實(shí)現(xiàn)。由于VB2010創(chuàng)建的項(xiàng)目中包含的文件及文件夾較多。為防止學(xué)生上傳的作業(yè)文件不全，要求學(xué)生把項(xiàng)目全部保存（在VB的文件菜單中選擇“全部保存”，見圖一）；項(xiàng)目名稱為學(xué)生本人的學(xué)號(hào)-實(shí)驗(yàn)題序號(hào)。同時(shí)建議學(xué)生自己建立一個(gè)保存位置，見圖二。圖一圖二項(xiàng)目保存后，會(huì)在保存位置的文件夾中自動(dòng)創(chuàng)建一個(gè)文件夾，該文件夾的名稱就是編程人在保存時(shí)所起的項(xiàng)目的名稱。將該文件夾壓縮為 .rar 文件，壓縮文件名為：學(xué)號(hào)-題目序號(hào).rar。將該壓縮文件上傳到183.175.17.80服務(wù)器指定的FTP賬戶中。二、實(shí)驗(yàn)實(shí)驗(yàn)1： 編寫一個(gè)VB.NET程序。要求在窗體設(shè)置一個(gè)按鈕（Button）、一個(gè)文本框（TextBox）和一個(gè)標(biāo)簽（Label）；程序運(yùn)行時(shí)，單擊按鈕，在文本框和標(biāo)簽中同時(shí)顯示“我的第一個(gè)VB程序”。實(shí)驗(yàn)?zāi)康模菏煜B編程環(huán)境，及窗體、標(biāo)簽、文本框、按鈕的簡(jiǎn)單應(yīng)用。實(shí)驗(yàn)2：編寫一個(gè)VB.NET程序。要求在窗體上放置1個(gè)TextBox控件和4個(gè)Button控件。分別單擊這4個(gè)按鈕，可以把文本框的背景色分別設(shè)置為紅色、藍(lán)色、黑色和綠色。實(shí)驗(yàn)?zāi)康模菏煜B編程環(huán)境，及窗體、標(biāo)簽、文本框、按鈕的簡(jiǎn)單應(yīng)用。實(shí)驗(yàn)3：編寫一個(gè)VB.NET程序。要求在窗體上畫一個(gè)文本框和兩個(gè)按鈕，把兩個(gè)按鈕的標(biāo)題分別設(shè)置為“顯示”和“清除”。程序運(yùn)行后，在文本框中輸入一行文字（例如"VB. NET程序設(shè)計(jì)”），如果單擊“顯示”按鈕，則把文本框中的內(nèi)容顯示為窗體標(biāo)題；如果單擊“清除”按鈕，則清除文本框中的內(nèi)容。實(shí)驗(yàn)?zāi)康模菏煜B編程環(huán)境，及窗體、標(biāo)簽、文本框、按鈕的簡(jiǎn)單應(yīng)用。注：前3個(gè)實(shí)驗(yàn)要求在第一次上機(jī)時(shí)完成，教學(xué)第3周末前上交到指定服務(wù)器。(1)實(shí)驗(yàn)4：編寫一個(gè)VB.NET程序。要求在窗體內(nèi)設(shè)置7個(gè)標(biāo)簽（Label）及7個(gè)文本框（TextBox），將每個(gè)標(biāo)簽的Text屬性值設(shè)置為如下表達(dá)式。在程序運(yùn)行時(shí)，單擊窗體空白區(qū)，可在對(duì)應(yīng)的文本框中輸出這些表達(dá)式的值。1） 8*3*622） 7/6*3.2/2.15*(5.5+3.5)3） 344+4.05/124） 653 mod 3.4*fix(3.8)5） “abg”+”34” & “erert”6） true or not (8+3>=23)7） 7>2 or 4<9實(shí)驗(yàn)?zāi)康模簩W(xué)習(xí)VB運(yùn)算符的使用。實(shí)驗(yàn)5：編寫一個(gè)VB.NET程序。設(shè)a=2， b=3， c=4， d=5，S="ABCDEFGHIK"，求下列表達(dá)式的值： (1) 5+(a+b)2(2) cos(b)(sin(a)+1)(3) 8e3ln2 (4) Left(S,4)(5) Mid(S, 3,4)(6) Instr(S, "EFG")(7) Lcase(Right(S, 5)(8) Len(Mid(S, 3) 實(shí)驗(yàn)?zāi)康模簩W(xué)習(xí)VB中函數(shù)的使用。注：實(shí)驗(yàn)4和實(shí)驗(yàn)5要求在教學(xué)第4周末前上交到指定服務(wù)器。(2)實(shí)驗(yàn)6：編寫一個(gè)VB.NET程序。利用速度和距離的計(jì)算公式，按要求進(jìn)行計(jì)算并顯示計(jì)算結(jié)果。已知：a=1.5米/秒2，程序運(yùn)行時(shí)，通過文本框輸入初速度V0和時(shí)間t，單擊窗體，計(jì)算出末速度Vt和距離S的值。要求在顯示結(jié)果時(shí)帶上單位。速度單位是：米/秒，距離單位是：米。實(shí)驗(yàn)?zāi)康模簩W(xué)習(xí)VB的順序結(jié)構(gòu)編程，計(jì)算表達(dá)式的值。實(shí)驗(yàn)7：將試題6用InputBox函數(shù)輸入初速度V0和時(shí)間t，用MsgBox輸出計(jì)算結(jié)果。實(shí)驗(yàn)?zāi)康模簩W(xué)習(xí)VB的順序結(jié)構(gòu)編程，及InputBox、MsgBox函數(shù)的使用。Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim v0 As Single, t As Single, vt As Single, s As Single v0 = Val(InputBox("請(qǐng)輸入初速度v0:") t = Val(InputBox("請(qǐng)輸入時(shí)間t:") vt = v0 + 1.5 * t s = v0 * t + 1 / 2 * 1.5 * t * t MsgBox("末速度vt=" & vt & "m/s" & vbCrLf & "距離s=" & s & "m")End Sub注：實(shí)驗(yàn)6和實(shí)驗(yàn)7要求在教學(xué)第5周末前上交到指定服務(wù)器。(3)實(shí)驗(yàn)8：編寫一個(gè)VB.NET程序，要求3個(gè)問題在同一個(gè)窗體內(nèi)實(shí)現(xiàn)。在窗體上設(shè)置三個(gè)按鈕，單擊每個(gè)按鈕，分別完成每個(gè)問題。問題1：在窗體上放置1個(gè)文本框。在文本框中輸入英文字符，單擊按鈕會(huì)將文本框中的所有大寫字符轉(zhuǎn)換為小寫，所有小寫字符轉(zhuǎn)換為大寫。如輸入I Just MEET Her，則輸出為i jUST meet hER。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i%, ch$ Dim ch1$ = "" For i = 1 To Len(Trim(TextBox1.Text) ch = Strings.Mid(Trim(TextBox1.Text), i, 1) If ch >= "A"c And ch <= "Z"c Then ch1 &= Char.ToLower(ch) ElseIf ch >= "a"c And ch <= "z"c Then ch1 &= Char.ToUpper(ch) Else ch1 &= ch End If Next TextBox1.Text = ch1End Sub問題2：輸入一個(gè)學(xué)生的五門課的考試成績(jī)，判斷其是否為優(yōu)秀。優(yōu)秀的條件為：五門課成績(jī)總分超過450分或每門課程在88以上或每門主課（前三門）的成績(jī)都在95分以上其他課程在80分以上。Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a!, b!, c!, d!, f!, s! a = Val(InputBox("請(qǐng)輸入第1門課的成績(jī)：") b = Val(InputBox("請(qǐng)輸入第2門課的成績(jī)：") c = Val(InputBox("請(qǐng)輸入第3門課的成績(jī)：") d = Val(InputBox("請(qǐng)輸入第4門課的成績(jī)：") f = Val(InputBox("請(qǐng)輸入第5門課的成績(jī)：") s = a + b + c + d + f If (s >= 450) Or (a >= 88 And b >= 88 And c >= 88 And d >= 88 And f >= 88) Or (a >= 95 And b >= 95 And c >= 95 And d >= 80 And f >= 80) Then MsgBox("該同學(xué)的成績(jī)?yōu)閮?yōu)秀！") Else MsgBox("該同學(xué)的成績(jī)不優(yōu)秀！") End IfEnd Sub問題3：運(yùn)輸部門的貨物運(yùn)輸與里程有關(guān)，距離越遠(yuǎn)，每噸貨物的單價(jià)越低，假設(shè)每噸單價(jià)P與距離S之間的關(guān)系如下，輸入貨物重量和運(yùn)送距離后，計(jì)算相應(yīng)的運(yùn)費(fèi)。32S<10028100<=S<200P= 25200<=S<30022.5300<=S<40020400<=S<=100015S>1000實(shí)驗(yàn)?zāi)康模簩W(xué)習(xí)選擇結(jié)構(gòu)的使用。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim t!, s!, p!, price! t = Val(InputBox("請(qǐng)輸入貨物重量：") s = Val(InputBox("請(qǐng)輸入運(yùn)送距離：") Select Case s Case Is < 100 p = 32 Case Is < 200 p = 28 Case Is < 300 p = 25 Case Is < 400 p = 22.5 Case Is <= 10000 p = 20 Case Else p = 15 End Select price = p * s * t MsgBox("運(yùn)費(fèi)為：" & price) End Sub注：教學(xué)第7周末前上交到指定服務(wù)器。(4)實(shí)驗(yàn)9：編寫一個(gè)VB.NET程序，要求3個(gè)問題在同一個(gè)窗體內(nèi)實(shí)現(xiàn)。在窗體上設(shè)置三個(gè)按鈕，單擊每個(gè)按鈕，分別完成每個(gè)問題。問題1：我國(guó)現(xiàn)有人口13億，設(shè)年增長(zhǎng)率為百分之一，編程計(jì)算多少年后增加到30億。Dim p As Single, n% Do n = n + 1 p = 13 * (1 + 0.01) n Loop While p < 30 MsgBox(n & "年后，人口達(dá)到30億。")問題2：將乘法口訣表用上三角形方式輸出。（見課本）1*1=11*2=21*3=31*4=41*5=51*6=61*7=71*8=81*9=92*2=42*3=62*4=82*5=102*6=122*7=142*8=162*9=18。9*9=81問題3：編寫程序輸出如下等腰三角形：Dim i%, j%, s$, n% Label1.text=""n = Val(InputBox("請(qǐng)輸入正三角形行數(shù)：") For i = 1 To n s = "" For j = 1 To i s = "".PadRight(n - i) Next For j = 1 To 2 * i - 1 s = s & "*" Next Label2.Text &= s & vbCrLf Next實(shí)驗(yàn)?zāi)康模簩W(xué)習(xí)循環(huán)結(jié)構(gòu)的使用。注：教學(xué)第9周末前上交到指定服務(wù)器。(5)實(shí)驗(yàn)10：編寫一個(gè)VB.NET程序，要求2個(gè)問題在同一個(gè)窗體內(nèi)實(shí)現(xiàn)。在窗體上設(shè)置二個(gè)按鈕，單擊每個(gè)按鈕，分別完成下面每個(gè)問題。問題1：在窗體中打印輸出楊輝三角，按等腰三角形形式輸出；Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click Dim i%, a%(10, 10), t%, n%, j% n = Val(InputBox("輸入行數(shù)：") For i = 1 To n a(i, i) = 1 : a(i, 1) = 1 Next For i = 3 To n For j = 2 To i - 1 a(i, j) = a(i - 1, j - 1) + a(i - 1, j) Next Next For i = 1 To n Label1.Text = Label1.Text & "".PadRight(n - i) For j = 1 To i Label1.Text = Label1.Text & Str(a(i, j) Next Label1.Text = Label1.Text & vbCrLf NextEnd Sub問題2：產(chǎn)生100個(gè)100以內(nèi)的隨機(jī)數(shù)，將他們從大到小排序后輸出。Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click Dim i%, a%(100), t%, n%, j% For i = 1 To 100 a(i) = Int(Rnd() * 101) Label1.Text = Label1.Text & a(i) & Space(2) Next Label1.Text = Label1.Text & vbCrLf For i = 1 To 99 For j = 1 To 100 - i If a(j) < a(j + 1) Then t = a(j) : a(j) = a(j + 1) : a(j + 1) = t End If Next Next For i = 1 To 100 Label1.Text = Label1.Text & a(i) & Space(2) NextEnd Sub實(shí)驗(yàn)?zāi)康模簩W(xué)習(xí)數(shù)組的使用。 注：教學(xué)第10周末前上交到指定服務(wù)器。(6)實(shí)驗(yàn)11：編寫一個(gè)VB.NET程序，要求2個(gè)問題在同一個(gè)窗體內(nèi)實(shí)現(xiàn)。在窗體上設(shè)置二個(gè)按鈕，單擊每個(gè)按鈕，分別完成下面每個(gè)問題。問題1：編寫求s=1+2!+3!+n! 程序，要求計(jì)算n！用Sub過程實(shí)現(xiàn)。Sub jiecheng(ByVal n As Integer) Dim i As Integer, jc As Long, sum As Long jc = 1 : sum = 0 For i = 1 To n jc = jc * i sum = sum + jc Next MsgBox("1！+2！+。+n！=" & sum)End SubPrivate Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click Dim n As Integer n = Val(InputBox("輸入n:") Call jiecheng(n)End Sub問題2：編寫求s=1+2!+3!+n! 程序，要求計(jì)算n！用 Function過程實(shí)現(xiàn)。（見課本138頁(yè)）實(shí)驗(yàn)?zāi)康模簩W(xué)習(xí)過程的使用。 注：教學(xué)第11周末前上交到指定服務(wù)器。(7)第12教學(xué)周，熟悉上機(jī)考試環(huán)境 ，本周末進(jìn)行上機(jī)考試。實(shí)驗(yàn)12：編寫一個(gè)VB.NET程序，產(chǎn)生100個(gè)兩位數(shù)的隨機(jī)數(shù)，將他們以逗號(hào)分割后存入順序文件num.txt，然后讀入到一個(gè)數(shù)組中排序后輸出。實(shí)驗(yàn)?zāi)康模簩W(xué)習(xí)文件的使用。 注：教學(xué)第13周末前上交到指定服務(wù)器。(8)實(shí)驗(yàn)13：編寫一個(gè)VB.NET程序，要求2個(gè)問題在同一個(gè)窗體內(nèi)實(shí)現(xiàn)。在窗體上設(shè)置二個(gè)按鈕，單擊每個(gè)按鈕，分別完成下面每個(gè)問題。問題1：編程序?qū)崿F(xiàn)一個(gè)數(shù)字時(shí)鐘；并且在該程序中練習(xí)其他控件的使用方法。問題2：編程序?qū)崿F(xiàn)一個(gè)簡(jiǎn)單的計(jì)算器。（界面如圖三所示）圖三實(shí)驗(yàn)?zāi)康模簩W(xué)習(xí)控件的使用。 注：教學(xué)第14周末前上交到指定服務(wù)器。(9)教學(xué)第15周和第16周機(jī)動(dòng)。2014年2月24日