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

《答案-2014 VB 實(shí)驗(yàn)教學(xué)大綱》由會(huì)員分享，可在線閱讀，更多相關(guān)《答案-2014 VB 實(shí)驗(yàn)教學(xué)大綱（8頁珍藏版）》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。

1、計(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)目的名稱。將該

2、文件夾壓縮為 .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

3、編程環(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屬

4、性值設(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） 72 or 4= Ac And ch = ac And ch = 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 =

5、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)。32S10028100=S200P= 25200=S30022.5300=S40020400=S1000實(shí)驗(yàn)?zāi)康模簩W(xué)習(xí)選擇結(jié)構(gòu)的使用。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventAr

6、gs) 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周末

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*

8、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è)窗

9、體內(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) =

10、 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 S

11、ystem.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

12、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 : su

13、m = 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頁）實(shí)驗(yàn)?zāi)康模?/p>

14、學(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日